正文
vb.net组合按键 vbs组合键
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET组合键
直接设置貌似不行 可以在窗体的 KeyDown事件里面写Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("快捷键设置成功")
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Shift And e.KeyCode = Keys.C Then
Button1_Click(sender, e)
End If
End Sub
End Class
相关问答
Q1: 在VB。NET中怎么样给按钮添加快捷键
如果是用Alt组合健vb.net组合按键，最简单vb.net组合按键的方法就是vb.net组合按键，在按钮的Text属性里加个符合，比如想用Alt+A来控制Button1的话，就在Button1的Text属性上加一个A即可。比如Text属性是“vb.net组合按键我是按钮(A)”，如图所示，那么在按下Alt+A就可以执行Button1_Click命令vb.net组合按键了，呵呵
Q2: VB.net中如何将shif+Tab键组合些成一个键
If e.Shift And e.KeyCode = Keys.Tab Then
MsgBox("Is ""Shift+Tab""")
End If
Q3: 如何 在 vb.net 中 按下键盘A与W 两个按键组合时弹出 MsgBox("你按下了A+W键")，最好有例子程序。
楼上的按了一次A+W后,接下来单按W键就会弹出信息框
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If GetAsyncKeyState(Keys.A) And GetAsyncKeyState(Keys.W) Then
MsgBox("你按下了A+W键")
End If
End Sub
End Class
按照顺序的话,这样写:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If GetAsyncKeyState(Keys.A) And e.KeyCode = Keys.W Then
MsgBox("你按下了A+W键")
End If
End Sub
End Class
望采纳~
关于vb.net组合按键和vbs组合键的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
