投稿日 | : 2004/12/07(Tue) 10:14 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^3: Validateイベントについて |
> 返事ありがとうございます。
> 確かにEnterキーを押した場合、Validateイベントは発動しません
> でしたが、LostFocusは発動していました。
> Enterキーを押した場合に、Validateイベントを発動させる方法は
> ありますでしょうか。
> ご存知でしたら教えて下さい。
ということは、Text1のKeyPressかKeyDownに、Text2.SetFocusのコードを
書いているということでしょうか?
それでしたら、Validateイベントに書いている条件と同じコードをkeyPressや
KeyDownイベントに書いて、それがOKだったらtext2.SetFocusするように
すればいいのでは?
例えば、Text1が数値のみ入力可だとするとこんな感じ。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If IsNumeric(Text1.Text) Then
KeyAscii = 0
Text2.SetFocus
End If
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsNumeric(Text1.Text) Then
Cancel = True
End If
End Sub