投稿日 | : 2007/04/24(Tue) 09:39 |
投稿者 | : カズ |
Eメール | : |
URL | : |
タイトル | : Re^4: 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イベントはプログラム中に存在しません。どのようなアルゴリズムを挿入すればよいでしょうか?