新建一个Form1把Form1的KeyPreview改成True
创新互联专业为企业提供滦南网站建设、滦南做网站、滦南网站设计、滦南网站制作等企业网站建设、网页设计与制作、滦南企业网站模板建站服务,10多年滦南做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
拖入一个Button1到Form1上面
然后加入以下代码
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyData = (Keys.Alt Or Keys.G) Then
Button1.PerformClick() '或者用Button1_Click(Nothing, New EventArgs)
'快捷键Alt+G触发Button1_Click()事件。
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Size = New Size(180, 23)
Button1.Text = "我被局部快捷键给召唤了~"
End Sub
'先建立一个注册表键;此列注册表键名为TestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("TestKey")
'定义注册表键路径,并赋值于注册表键;此列路径为HKEY_CURRENT_USER\TestKey,赋值为 "Test Value"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.")
左键是1
右键是2
中键是4
可以组合相加
左右同时就是3,也可以写做:vbleftbutton+vbrightbutton
VB.NET 参考代码:
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows", False)
For Each strSubKeyName In regKey.GetValueNames()
If regKey.GetValueKind(strSubKeyName) = RegistryValueKind.String Then
MessageBox.Show(regKey.GetValue(strSubKeyName))
' regKey.SetValue(strSubKeyName, "修改后的值")
End If
Next
End Sub
End Class