读书人

vb.net 按DEL就等点击Button按钮代码

发布时间: 2011-12-27 22:22:54 作者: rapoo

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

读书人网 >VB Dotnet

热点推荐