ＶＢ２００８ キーイベントを捕まえる事が出来ません

Question

ＶＢ２００８　を勉強中です

 

“キーイベント”等のキーワードでいろいろ検索してみたところ、それらしきコードがみつかったので貼り付けてみたのですが、エラーは出ないものの動かしてみると全く反応しません

 

コード　↓

 

 

Dim R As Keys

　　　　　

“↑元はEnterキーだったのですが、実行中に押すとＦｏｒｍにはりつけていたＢｕｔｔｏｎが反応してしっまたのでＲキーに変えました。”

 

Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = R Then
            Label1.Text = "liuhukukh"
        End If
    End Sub

 

どこが間違えてるのか教えて下さい。

 

あと、ＦｏｒｍのＫｅｙＰｒｅｖｉｅｗは、Trueにしました

Answer 1

Ｋａｎｅｋ さんからの引用

Dim R As Keys

それはKeys型のRという名前の変数にしかなりません。

"Rキーを示す定数"はKeys.Rと書く必要があります。

　　　　　

Ｋａｎｅｋ さんからの引用

If e.KeyCode = R Then

修正はここのRを適切に。e.KeyCode = Keys.Rでも、Dim R As Keys = Keys.Rでも。

Answer 2

教えていただいた方法で試してみましたがうまくいきません

コード　↓　は、これでいいですよね？

 

宣言なし

 

Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.R Then
            Label1.Text = "liuhukukh"
        End If
    End Sub

 

Timerを同時に動かしていますがそれは関係ないですか？

Answer 3

Ｋａｎｅｋ さんからの引用

教えていただいた方法で試してみましたがうまくいきません

”何”を期待して、”どのようになった”のですか？

それが分からない限り、何も答えようがないと思います。

 

Ｋａｎｅｋ さんからの引用

Timerを同時に動かしていますがそれは関係ないですか？

それは期待する結果に影響するようなものなのですか？

影響するのであれば、Timerで何をしているか説明しないと分かりません。

Answer 4

Ｋａｎｅｋ さん、こんにちは

ダッチです。

 

イベントハンドラが設定されていないだけだと思います。

 

Handles Me.KeyDown を form1_KeyDown メソッドの後ろに追加してみてください。

 

Code Snippet

Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)  Handles Me.KeyDown

 

 

 

Answer 5

あ、VBだった。orz

Answer 6

ダッチさん、ありがとうございます！

 

教えていただいた通り　“Handles Me.KeyDown”　を追加したところ問題解決できました。

 

本当に助かりました