| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1657 人关注过本帖
标题:Visual Basic怎样设置命令热键?
只看楼主 加入收藏
xandy
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2008-12-6
收藏
 问题点数:0 回复次数:5 
Visual Basic怎样设置命令热键?
窗体成为焦点或者没有成为焦点时都可以用的热键,应该用到哪个API?
搜索更多相关主题的帖子: Basic 热键 Visual 命令 
2008-12-07 01:06
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
这样的问题应该先问百度
不是不知道回答,而是回答的太多了别人都懒得重复回答了
2008-12-11 10:07
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
GETKEYSTAT + timer

三段兄,不要这么小气么

偶是菜鸟鸟偶惧WHO?!!!!
2008-12-11 11:29
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) Then
    Print "按了F2";
End If
End Sub
Timer1的Interval 设为1

用Hook比较省资源 代码就不发了
2008-12-11 13:42
hbutwzc
Rank: 1
等 级:新手上路
威 望:2
帖 子:376
专家分:0
注 册:2008-6-17
收藏
得分:0 
先建立个函数  响应热键事件
Public Sub ShowQuick(keycodee As Integer)
 If keycodee = vbKeyF1 Then Call 事件1
 If keycodee = vbKeyF3  Then Call 事件2
If keycodee = vbKeyF6   Then Call 事件3
 If keycodee = 115 Then Call 事件4
 If keycodee = vbKeyF8 Then Call 事件5
If keycodee = vbKeyF9 Then Call 事件6
 If keycodee = 122 Then Call 事件7
If keycodee = vbKeyF12 Then Call 事件8

End Sub

再在窗体 KeyDown 事件中调用就可以啊
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim CtrlDown
    Call ShowQuick(KeyCode)
    CtrlDown = (Shift And vbCtrlMask) > 0
    If KeyCode = vbKeyReturn Then
        If CtrlDown Then
            Call cmdOK_Click
        End If
    End If
   这是我以前系统里面的 例子
2008-12-11 14:20
e3bnsd
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2007-3-29
收藏
得分:0 
有价值哦。
2012-12-06 23:44
快速回复:Visual Basic怎样设置命令热键?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016442 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved