投稿日 | : 2007/04/24(Tue) 10:55 |
投稿者 | : カズ |
Eメール | : |
URL | : |
タイトル | : Re^5: 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イベントにブレークポイントを設定して
> > 確認してみてはどうでしょうか。
>
どのようなcmbFooterのGotFocusイベントを挿入すればよいでしょうか?
ちなみにtxtNumberのLostFocusは下記のようになっています。
Private Sub txtNumber_LostFocus()
If txtNumber.Text <> "" Then
If cmbFooter.Enabled = False Then
cmbFooter.Enabled = True
cmbFooter.SetFocus
Else
cmbFooter.SetFocus
End If
End If
End Sub