
テキストボックスにフォーカスがあり、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も見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?
-
【お題】甲子園での思い出の残し方
【お題】「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
これ何て呼びますか
あなたのお住いの地域で、これ、何て呼びますか?
-
単二電池
あなたの家に何本ありますか?
-
自分用のお土産
国内や海外に旅行へ行った時、自分用のお土産ってどれくらい買いますか?
-
矢印(左右)キーでイベントを発生させたい。
Visual Basic(VBA)
-
Ctrl + Cなど複数の入力キーの感知
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
-
4
エクセル TABキーの動きをマクロで
Excel(エクセル)
-
5
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
6
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
7
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
8
VB.NETで他のプロジェクトで作成したフォームを使う方法
Visual Basic(VBA)
-
9
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
10
VBのReturnの使い方
Visual Basic(VBA)
-
11
DateTimePickerでに年月までしか選択できないようにしたいです。
Visual Basic(VBA)
-
12
VB.NETでのイベントの途中終了
Visual Basic(VBA)
-
13
vb.netで画面のコントロールId名を変数で動的に制御し処理する方法
Visual Basic(VBA)
-
14
TextBoxでEnterキーを押すと、にあるButtonを押したのと同じ効果を出す方法
Visual Basic(VBA)
-
15
別フォームから戻ったときのイベント
Visual Basic(VBA)
-
16
DateTimePickerに値を入れたいのですが…
Visual Basic(VBA)
-
17
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
18
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
19
コンボボックスの一部のアイテムを選択不可能に
C言語・C++・C#
-
20
フォームの再読み込み
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
タブキー押下時のイベントをひ...
-
VB.NETでフォームがない...
-
Visual Basic 6.0 コンボボック...
-
KEYPREVIEW=TRUEについて。意味...
-
特定のキーを押すまでループさ...
-
一定時間操作されないと自動で...
-
GetKeyStateについて
-
テキストボックスの入力文字を1...
-
WPFでの時刻入力コントロールに...
-
VC++ で TextBoxから、次...
-
VB.NETのDropDownListをReadOnl...
-
Excel VBA マクロ実行中のみテンキ...
-
vba set Focus
-
SelectionChangeCommitted
-
DirectXのDIK発進について
-
ショートカットキーの変更をしたい
-
TextboxまたはMaskEditboxでの...
-
コンボボックスにキー入力をさ...
-
コマンドボタン(入力)をクリッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
特定のキーを押すまでループさ...
-
(VBA)チェックボックスのclick...
-
タブキー押下時のイベントをひ...
-
Visual Basic 6.0 コンボボック...
-
コンボボックスにキー入力をさ...
-
一定時間操作されないと自動で...
-
テキストボックスの入力文字を1...
-
WPFでの時刻入力コントロールに...
-
エクセルVBAのテキストボック、...
-
キーイベントを擬似的に発生さ...
-
VB.NETのDropDownListをReadOnl...
-
C# WMPメディアの終了検知 その2
-
VB.NETでフォームがない...
-
Access データ表示 完了時のイ...
-
KEYPREVIEW=TRUEについて。意味...
-
ListViewで、PageDownキーイベ...
-
フォーカスについてお教えください
-
自作ダイアログボックス中のエ...
-
イベントハンドラが取得できな...
おすすめ情報