vb.net键键值,vb中数字键

vb.net怎么设置快捷键

新建一个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

End Sub

End Class

文章标题：vb.net键键值,vb中数字键
网站路径：http://myzitong.com/article/dsidocp.html