投稿日 | : 2004/12/07(Tue) 14:21 |
投稿者 | : NAO |
Eメール | : |
URL | : |
タイトル | : Re^6: Validateイベントについて |
返事ありがとうございます。
すいません、私の書き方がよくなかったですね。
この質問は、カーソルがTEXT1にある状態で、
ENTERキーを押しても、KeyPressのイベントが発動しないと
いう意味なんです。
またLostFocusは発動させるコードは記述していません。
KeyPressのイベントが発動しないのは、どうして分かるでしょうか。
もし分かりましたら返事ください
> > 返事ありがとうございます。
> > 内容の通りにしたのですが、
> > KeyPressの中にIf KeyAscii = vbKeyReturn Then
> > と記述しても発動しないのですが、
> > 何か他に原因があるのでしょうか。
>
> 私は、Enterキーを押してLostFocusは発動させるコードがどこに書いてあるか
> わからないので、KeyPressの方を書きましたが、もしNAOさんがKeyDownの方に
> そのコードを書いていたら、そちらの方を修正してください。(^^;
>
> Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
> Debug.Print "KeyDown"
> If KeyCode = vbKeyReturn Then
> If IsNumeric(Text1.Text) Then
> KeyCode = 0
> Text2.SetFocus
> End If
> End If
> End Sub