锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net发送组合键 vb 发送按下键盘指令

IT技术容器

VB.net 怎么制作按键连发功能用API函数vb.net发送组合键，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd)'调用这个过程即可对目标窗体发送F1键
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub这里是发送F1vb.net发送组合键的实例 ， 各个按键对应的虚拟键码，要到网上查
vb.net 组合键Ctrl+Enter怎样发送看了很多这方便的解决方案，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起 。
我用一种最简单的方法 ， 只要思路对所有人都能用得起 。
其实非常简单，就是获取键值 ， Ctrl+Enter的健值是10，是不是思路一下就通了 。以下是源码：
Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress
If Asc(e.KeyChar) = 发送快捷键值 Then
发送消息过程()
End If
End Sub
源内容出处：
VB.NET新手求助 在WIN7 64位系统下 向其它窗口发送组合键中[ALT]不起作用 求解!!!!一口气间全部到手
我并不是说，前者体现了后者的
精神真等等理；
但是我确认损失其中之一是很困难的，
一旦你拥有了两者 。
巨大的耳语与咳嗽传自
星期日人潮涌簇 ， 风琴蹙额的宽阔的厅堂
VB.NET组合键直接设置貌似不行可以在窗体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
【vb.net发送组合键 vb 发送按下键盘指令】vb.net发送组合键的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb 发送按下键盘指令、vb.net发送组合键的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：大型电商仓储工作如何，电商仓储后勤的工作

    下一篇：华为台式服务器，华为台式服务器配置