テキストボックスにフォーカスがあり、TABキーが押された時のイベントをひろいたいのですが、KeyPressもKeyDownもイベントが発生しません。
(If KeyCode = vbKeyTab Then
MsgBox "タブキー"
End If
If KeyAscii = vbKeyTab Then ~
のようなコードを記述してもメッセージが表示されない)
ヘルプにはKeyDownでは発生しないという記述がありますが、KeyPressではイベントがひろえるようなことが書いてあるのにひろえないので困っています。
なにかよい方法はありませんでしょうか。
わかりにくい説明で申し訳ありませんが困ってます。
宜しくお願いします。
No.3ベストアンサー
- 回答日時:
テキストボックスのほかに、コントロールを貼り付けていませんか?
他のコントロールにタブ移動していてイベントがこなくなっているのでは?
フォーカスを当てられるほかのコントロールのTabStopをFalseにすればいいのでは?
違ってたらすんません。
じゃ、そゆことで。
貼り付けてました・・・。
見た目は全部ラベルだったのでおかしいなとよくよく見たらテキストボックスの不活性継承の為のピクチャボックスがTabstop=Trueになってました。
おかげさまで無事TAB拾えました。どうもありがとうございました。
No.4
- 回答日時:
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.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のコードを同じにしてしまいました・・・。間違いのご指摘ありがとうございます。
無事解決しました。どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Boxが空白の場合のメッセージボックス 2 2023/06/14 11:06
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) VBAで “:” を含むセルの特定 2 2023/05/11 16:30
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) vba GetAsyncKeyState関数について 1 2023/08/24 12:08
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Access(アクセス) Access の SetFocus について教えてください 5 2022/08/04 07:32
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセル TABキーの動きをマクロで
Excel(エクセル)
-
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
-
4
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
5
型 varchar から型 numeric への変換エラー。
その他(データベース)
-
6
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
7
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
8
CloseとDisposeの違い
Visual Basic(VBA)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
Spreadの選択行の取得について
Visual Basic(VBA)
-
11
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
-
12
VBの「As String * 128」とは?
Visual Basic(VBA)
-
13
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
14
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
15
スプレットシートでフォーカスをあてない方法
Visual Basic(VBA)
-
16
frxファイルの役目
Visual Basic(VBA)
-
17
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
18
コンソールアプリケーションのコマンドプロンプト画面を非表示
Visual Basic(VBA)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
タブキー押下時のイベントをひ...
-
WPFでの時刻入力コントロールに...
-
特定のキーを押すまでループさ...
-
Excel VBA マクロ実行中のみテンキ...
-
複数のテキストボックスのカン...
-
Visual Basic 6.0 コンボボック...
-
VB6で電卓を作っているのですが...
-
VB.NETのDropDownListをReadOnl...
-
ListViewで、PageDownキーイベ...
-
ユーザーフォームのテキストボ...
-
javascript スムーズな動作
-
コンボボックスにキー入力をさ...
-
NULLで検索を行ったときは全件...
-
(VBA)チェックボックスのclick...
-
フォーカスについてお教えください
-
コマンドボタン(入力)をクリッ...
-
EXCEL VBA----ユーザーフォーム...
-
C# DateTimePicker をキー入力...
-
TextboxまたはMaskEditboxでの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
特定のキーを押すまでループさ...
-
一定時間操作されないと自動で...
-
Visual Basic 6.0 コンボボック...
-
タブキー押下時のイベントをひ...
-
WPFでの時刻入力コントロールに...
-
コンボボックスにキー入力をさ...
-
(VBA)チェックボックスのclick...
-
VB.NETのDropDownListをReadOnl...
-
Excel VBA マクロ実行中のみテンキ...
-
EXCEL VBA でIEを制御して、INP...
-
キーイベントを擬似的に発生さ...
-
KEYPREVIEW=TRUEについて。意味...
-
テキストボックスの入力文字を1...
-
VB.NETでフォームがない...
-
エクセルVBAのテキストボック、...
-
IEで、BackSpaceで「戻る」機能...
-
C# WMPメディアの終了検知 その2
-
複数のテキストボックスのカン...
-
コマンドボタン(入力)をクリッ...
おすすめ情報