加载中…
个人资料
悦妃云
悦妃云
  • 博客等级:
  • 博客积分:0
  • 博客访问:142,573
  • 关注人气:27
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

VB 实现简单的热键/快捷键功能

(2013-07-21 09:12:03)
标签:

vb快捷键

vb热键

it

分类: 开发源码

代码如下:

 

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function


Private Sub Form_Load()
Timer1.Interval = 50
Label1.Caption = "热键是 F1"
End Sub

 

Private Sub Timer1_Timer()
If MyHotKey(vbKeyF1) Then
MsgBox "你按下了热键!", , "热键提示"
End If
End Sub

 

控件:标签1个,时钟控件1个.

0

阅读 评论 收藏 禁止转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有