投稿日 | : 2007/04/23(Mon) 18:10 |
投稿者 | : popo |
Eメール | : |
URL | : |
タイトル | : Re^2: 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が実行されているのにフォーカスが移らないということですか?
Const PUSHENTKEY As Integer = 13 'EnterKey のように定義されています。
cmbFooter.SetFocusが実行されているのにフォーカスが移らないのです。
ちなみに別の同じようなプログラムではこのコードで正しくフォーカスが移ります。
すごく疑問に思います。