投稿日 | : 2007/04/24(Tue) 09:28 |
投稿者 | : matsu |
Eメール | : |
URL | : |
タイトル | : Re^3: 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が実行されているのにフォーカスが移らないのです。
> ちなみに別の同じようなプログラムではこのコードで正しくフォーカスが移ります。
> すごく疑問に思います。
cmbFooterのGotFocusイベントで何か処理はしてないですか?
何も処理していないのであれば、GotFocusイベントにブレークポイントを設定して
確認してみてはどうでしょうか。