投稿日 | : 2007/04/23(Mon) 18:07 |
投稿者 | : matsu |
Eメール | : |
URL | : |
タイトル | : Re: KeyAscii |
> 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にマウスのフォーカスが移りません。
>どこが違うのでしょうか?教えてください。
>ちなみに別の同じようなプログラムではこのコードで正しくフォーカスが移ります。
PUSHENTKEYはどのように定義していますか?
cmbFooter.SetFocusが実行されているのにフォーカスが移らないということですか?