vb.net 按DEL就等点击Button按钮，代码如何实现？
按DEL就等点击Button按钮，代码如何实现？
快捷键设置
[解决办法]
用键盘钩子，捕捉DEL,然后发送 点击Button按钮 的消息
[解决办法]
Private Declare Function GetAsyncKeyState Lib "user32 " Alias "GetAsyncKeyState " (ByVal vKey As Long) As Integer
If GetAsyncKeyState(27) <> 0 Then
Button1_Click(sender, e)
End If
[解决办法]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox( "button1.click ")
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Button1_Click(sender, e)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
[解决办法]
程序本身有提供一个快捷鍵的事件.
请在哪边实现..不需要用到钩子.
有些特殊才要用到
[解决办法]
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Button1_Click(sender, e)
End If
End Sub
这是最简单的
[解决办法]
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Button1_Click(sender, e)
End If
End Sub
