VB后台获得按键,并执行自己的函数(非钩子及热键)
2012-05-08 08:35
429 查看
VB后台获得按键,并执行自己的函数(非钩子及热键)作者:丹心 QQ:121877114答案不太麻烦,一个TIMER控件即可
Option Explicit
'按钮事件
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Sub shift()'你自己的事件
MsgBox "你按下了Shift"
End Sub
Private Sub Form_Load()
Timer1.Interval = 250
End Sub
Private Sub Timer1_Timer()'是否按下shift
If GetAsyncKeyState(vbKeyShift) Then shift
End Sub
Option Explicit
'按钮事件
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Sub shift()'你自己的事件
MsgBox "你按下了Shift"
End Sub
Private Sub Form_Load()
Timer1.Interval = 250
End Sub
Private Sub Timer1_Timer()'是否按下shift
If GetAsyncKeyState(vbKeyShift) Then shift
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- vue中各选项及钩子函数执行顺序详解
- 自己写的一个测试函数执行效率的单元(test on Delphi 7)
- TGraphicControl（自绘就2步，直接自绘自己，不需要调用VCL框架提供的函数重绘所有子控件，也不需要自己来提供PaintWindow函数让管理框架来调用）与TControl关键属性方法速记（Repaint要求父控件执行详细代码来重绘自己，还是直接要求Invalidate无效后Update刷新父控件，就看透明不透明这个属性，因为计算显示的区域有所不同）
- unity中获得一帧中函数执行的时间…
- PHP守护进程函数–后台执行脚本
- 请问HOOK自己进程API写函数头写到一半,其他线程执行该API时怎么办?
- C#使用钩子获得按键信息的方法
- vue生命周期中，钩子函数执行顺序
- 后台执行js先执行前端的JS函数,再执行后台函数的按钮实
- [VB.NET]怎样后台执行控制台程序？
- C语言获得函数的执行时间
- 用钩子获得按键信息实例
- vb获得网络时间的函数（历史上最全最完整最可靠的函数）
- 在别人的程序的任意位置加上调用自己函数的代码，且不影响原程序执行的方法
- 后台操作前台：弹出对话框，执行前台函数，前台调用后台函数
- python 限制函数执行时间，自己实现 timeout
- unity中获得一帧中函数执行的时间以及定位性能热点
- System函数与脚本的后台执行
- 学习记录-Qt按键单击后延迟一段时间触发下一个函数执行
- jQuery ajax 传数据到后台，后台返回时success函数不执行问题