タブキー押下時のイベントをひろいたい。

テキストボックスにフォーカスがあり、TABキーが押された時のイベントをひろいたいのですが、KeyPressもKeyDownもイベントが発生しません。

(If KeyCode = vbKeyTab Then
　MsgBox "タブキー"
End If　

If KeyAscii = vbKeyTab Then ～
のようなコードを記述してもメッセージが表示されない)

ヘルプにはKeyDownでは発生しないという記述がありますが、KeyPressではイベントがひろえるようなことが書いてあるのにひろえないので困っています。

なにかよい方法はありませんでしょうか。
わかりにくい説明で申し訳ありませんが困ってます。
宜しくお願いします。

No.4 回答者： todo36 回答日時： 2001/09/05 14:40

確かにKeyPressでTABキーを拾えませんね(VB4)

対処方法は参考URLにあります

参考URL：http://www.kit.co.jp/vbit/QAndA01.htm

この回答へのお礼

為になる参考URL教えていただきありがとうございました。無事解決しました。

お礼日時：2001/09/10 02:23

No.3 ベストアンサー 回答者： osaosa42 回答日時： 2001/09/05 13:17

テキストボックスのほかに、コントロールを貼り付けていませんか？

他のコントロールにタブ移動していてイベントがこなくなっているのでは？
フォーカスを当てられるほかのコントロールのTabStopをFalseにすればいいのでは？
違ってたらすんません。
じゃ、そゆことで。

この回答へのお礼

貼り付けてました・・・。
見た目は全部ラベルだったのでおかしいなとよくよく見たらテキストボックスの不活性継承の為のピクチャボックスがTabstop＝Trueになってました。
おかげさまで無事TAB拾えました。どうもありがとうございました。

お礼日時：2001/09/10 02:22

No.2 回答者： maruru01 回答日時： 2001/09/05 12:41

KeyPressイベントなら、次のどれでも出来るはずです。

（確認済）

例１）
Dim str As String

str = Chr(KeyAscii)
If str = vbTab Then
MsgBox "Tab key!"
End If

例２）
If KeyAscii = 9 Then
MsgBox "Tab key!"
End If

例３）
If KeyAscii = vbKeyTab Then
MsgBox "Tab key!"
End If

この回答へのお礼

動作確認までして頂いて、丁寧なご回答どうもありがとうございました。
無事解決しました。ありがとうございます。

お礼日時：2001/09/10 02:27

No.1 回答者： itohh 回答日時： 2001/09/04 22:56

こんにちは。

itohhといいます。

KeyPressとKeyDownイベントの引数ですが、意味合いが違います。

KeyPressイベントのKeyAsciiは、Asciiコードが設定されてきます。
KeyDownイベントのKeyCodeは、VBで決めているキーコード定数が設定されてきます。

KeyPressイベントでTabを拾いたい場合は、以下のように行います。
Private Sub Text1_KeyPress(KeyAscii As Integer)
　　Dim Rtn As Integer

　　If KeyAscii = Asc(vbTab) Then
　　　　Rtn = MsgBox("Hit!!", vbOKOnly)
　　End If

End Sub

この回答へのお礼

質問時にコピーしてコードを書いてしまったのでKeyPressとKeyDownのコードを同じにしてしまいました・・・。間違いのご指摘ありがとうございます。
無事解決しました。どうもありがとうございました。

お礼日時：2001/09/10 02:26