|
分類:[.NET 全般]
VB.NETでEscキーを押すことでフォームを閉じるようにしたいのですが
以下のコードを使うと、
button1にフォーカスが合っている時には閉じるのですが
合っていない時には閉じることができません。
Private Sub Button1_PreviewKeyDown(ByVal sender As Object, _
ByVal e As PreviewKeyDownEventArgs) _
Handles Button1.PreviewKeyDown
Select Case e.KeyCode
'矢印キーが押されたことを表示する
Case Keys.Escape
Button1.PerformClick()
' Me.Close()
End Select
End Sub
いつでもEscキーを押した時に閉じるようにしたいのですが
Sub Form1_KeyPress(ByVal sender As Object, _
ByVal e As KeyPressEventArgs) Handles Me.KeyPress
’ If e.KeyChar = Char.Esc Then Me.Close()
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub
などを試してみましたがうまくいきませんでした。
e.KeyCharの方はescキーのコードが分かりませんでした。
どなたかご助言ください。
|