投稿日 | : 2007/04/24(Tue) 16:53 |
投稿者 | : VB研修生 |
Eメール | : |
URL | : |
タイトル | : マウスのフォーカス |
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
If txtNumber.Text <> "" And KeyAscii = PUSHENTKEY Then
If cmbFooter.Enabled = False Then
cmbFooter.Enabled = True
cmbFooter.SetFocus '付けたし部分(参考)
Else
cmbFooter.SetFocus
End If
End If
End Sub
上記のプロシージャを実行してもtxtNumberからcmbFooterにマウスのフォーカスが移りません。どこが違うのでしょうか?教えてください。ちなみに別の同じようなプログラムではこのコードで正しくフォーカスが移ります。