テキストボックスにフォーカスがあり、TABキーが押された時のイベントをひろいたいのですが、KeyPressもKeyDownもイベントが発生しません。
(If KeyCode = vbKeyTab Then
MsgBox "タブキー"
End If
If KeyAscii = vbKeyTab Then ~
のようなコードを記述してもメッセージが表示されない)
ヘルプにはKeyDownでは発生しないという記述がありますが、KeyPressではイベントがひろえるようなことが書いてあるのにひろえないので困っています。
なにかよい方法はありませんでしょうか。
わかりにくい説明で申し訳ありませんが困ってます。
宜しくお願いします。
No.1
- 回答日時:
こんにちは。
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のコードを同じにしてしまいました・・・。間違いのご指摘ありがとうございます。
無事解決しました。どうもありがとうございました。
No.2
- 回答日時:
KeyPressイベントなら、次のどれでも出来るはずです。
(確認済)例1)
Dim str As String
str = Chr(KeyAscii)
If str = vbTab Then
MsgBox "Tab key!"
End If
例2)
If KeyAscii = 9 Then
MsgBox "Tab key!"
End If
例3)
If KeyAscii = vbKeyTab Then
MsgBox "Tab key!"
End If
No.3ベストアンサー
- 回答日時:
テキストボックスのほかに、コントロールを貼り付けていませんか?
他のコントロールにタブ移動していてイベントがこなくなっているのでは?
フォーカスを当てられるほかのコントロールのTabStopをFalseにすればいいのでは?
違ってたらすんません。
じゃ、そゆことで。
貼り付けてました・・・。
見た目は全部ラベルだったのでおかしいなとよくよく見たらテキストボックスの不活性継承の為のピクチャボックスがTabstop=Trueになってました。
おかげさまで無事TAB拾えました。どうもありがとうございました。
No.4
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
エクセル TABキーの動きをマクロで
Excel(エクセル)
-
frxファイルの役目
Visual Basic(VBA)
-
-
4
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
5
矢印(左右)キーでイベントを発生させたい。
Visual Basic(VBA)
-
6
VBの「As String * 128」とは?
Visual Basic(VBA)
-
7
keypressイベントでEnterキー(ascii=13)が認識できない
Visual Basic(VBA)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
10
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
11
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
12
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
13
文字列の比較
Visual Basic(VBA)
-
14
すでにファイルが開かれている時のエラー回避
Visual Basic(VBA)
-
15
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
16
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
17
ACCESSでコントロールソースの変更
Access(アクセス)
-
18
KEYPREVIEW=TRUEについて。意味が分かりません・・。
Visual Basic(VBA)
-
19
MSFlexGridのデータ表示位置の設定
Visual Basic(VBA)
-
20
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB.NETのDropDownListをReadOnl...
-
【VB】タブ切り替え時のイベント
-
WPFでの時刻入力コントロールに...
-
javascript スムーズな動作
-
タブキー押下時のイベントをひ...
-
スピンボックスについて
-
(VBA)チェックボックスのclick...
-
エクセルVBAのテキストボック、...
-
VB6で電卓を作っているのですが...
-
マウスでコントロールを移動さ...
-
コンボボックスにキー入力をさ...
-
一定時間操作されないと自動で...
-
特定のキーを押すまでループさ...
-
DirectXのDIK発進について
-
キーイベントを擬似的に発生さ...
-
onchangeでイベントが発生しません
-
Visual Basic 6.0 コンボボック...
-
Access データ表示 完了時のイ...
-
GetKeyStateについて
-
テキストボックスの入力文字を1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のキーを押すまでループさ...
-
Visual Basic 6.0 コンボボック...
-
WPFでの時刻入力コントロールに...
-
【VB】タブ切り替え時のイベント
-
コンボボックスにキー入力をさ...
-
(VBA)チェックボックスのclick...
-
IEで、BackSpaceで「戻る」機能...
-
タブキー押下時のイベントをひ...
-
一定時間操作されないと自動で...
-
エクセルVBAのテキストボック、...
-
Excel VBA マクロ実行中のみテンキ...
-
VB.NETでフォームがない...
-
KEYPREVIEW=TRUEについて。意味...
-
VB.NETのDropDownListをReadOnl...
-
キーイベントを擬似的に発生さ...
-
Access データ表示 完了時のイ...
-
複数のテキストボックスのカン...
-
テキストボックスの入力文字を1...
-
コマンドボタン(入力)をクリッ...
-
VBでEnterを押すとTabで飛...
おすすめ情報