首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 求助在程序里给事件加个快捷键 [已结帖,结帖人:IDtoID]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • IDtoID
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 结帖率：
    发表于：2008-11-07 15:47:15 楼主
    像这样的事件如何加入快捷键?
    VB code
    

'第一种事件:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       
  Case Is = "Exit"
  Unload me
End Select

End Sub

'第二种事件:
Private Sub Command1_Click()
 Unload me
End Sub
    100  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • tongnaifu
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 15:55:521楼 得分:10
    第二种 command1的caption属性修改为Command1(&A)，然后ALT+A就可以了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-11-07 15:56:312楼 得分:20
    这个不是事件加加入快捷键，是控件加快捷键

    按钮
    caption="ok&C"
    按钮上显示“okc”
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-11-07 16:01:113楼 得分:0
    工具栏
    在属性——〉按钮（选项卡）——〉标题
    输入“查询&c”
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-11-07 16:03:444楼 得分:0
    引用 1 楼 tongnaifu 的回复:
    第二种 command1的caption属性修改为Command1(&A)，然后ALT+A就可以了


    嗯，加（）看着好些
    效果“ok(c)”
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • tongnaifu
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 16:09:295楼 得分:0
    第一种直接实现有些困难，因为大部分工具栏的按钮都是在菜单栏中有相应的项，工具栏只是个快捷方式，所以可以在菜单编辑器中间接实现，实现方法和第二种一样，比如标题是修改为File(&F)，然后ALT+F就可以了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • chenjl1031
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 4
    发表于：2008-11-07 16:09:396楼 得分:10
    第一种是VB.net代码,也有快捷键设置.你找一找.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuoxingyu
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 16:13:047楼 得分:5
    意思不明了

    Command1.Default = True
    这样你按回车键，就等于按了COMMAND1

    Command1.Cancel = True
    这样你按ESC键，就触发Command1事件
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zz005
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 16:28:078楼 得分:0
    谢谢各位.

    不过以上的都是用Alt + X 的

    如果要用Ctrl + Q 的需要怎么做呢?
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zuoxingyu
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 16:34:049楼 得分:5
    你获取到按键是Ctrl + Q的时候，set Command1.value=1
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jhone99
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-11-07 16:42:1510楼 得分:0
    引用 5 楼 tongnaifu 的回复:
    第一种直接实现有些困难，因为大部分工具栏的按钮都是在菜单栏中有相应的项，工具栏只是个快捷方式，所以可以在菜单编辑器中间接实现，实现方法和第二种一样，比如标题是修改为File(&F)，然后ALT+F就可以了



    能实现，我在3楼已经给出答案了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • tongnaifu
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 16:59:4411楼 得分:0
    引用 10 楼 jhone99 的回复:
    引用 5 楼 tongnaifu 的回复:
    第一种直接实现有些困难，因为大部分工具栏的按钮都是在菜单栏中有相应的项，工具栏只是个快捷方式，所以可以在菜单编辑器中间接实现，实现方法和第二种一样，比如标题是修改为File(&F)，然后ALT+F就可以了



    能实现，我在3楼已经给出答案了


    我试过了，不响应
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zhufenghappy
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 17:07:2212楼 得分:20
    引用 1 楼 tongnaifu 的回复:
    第二种 command1的caption属性修改为Command1(&A)，然后ALT+A就可以了

    '第一种事件:
    第一种可以用个辅助按钮加个你需要的快捷键和上面的按钮一样，然后再按钮事件里调用
    Select Case Button.Key
         
      Case Is = "Exit"
      Unload me
    End Select
    可以写个函数通过传不同的参数接受不同的Button.Key

    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • SYSSZ
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 18:40:4613楼 得分:30
    给exit加了一个快捷键ctrl+E
    VB code
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyE And Shift = 2 Then
Dim Button As MSComctlLib.Button
Toolbar1.Tag = "Exit"
Call Toolbar1_ButtonClick(Button)
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Toolbar1.Tag <> "" Then GoTo Line
Select Case Button.Key
Case Is = "Exit"
MsgBox "Exit"
End Select
Line:
Select Case Toolbar1.Tag
Case Is = "Exit"
MsgBox "Exit"
End Select
End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • SYSSZ
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 19:05:5814楼 得分:0
    做一点修改
    VB code
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyE And Shift = 2 Then
Dim Button As MSComctlLib.Button
Toolbar1.Tag = "Exit"
Call Toolbar1_ButtonClick(Button)
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Toolbar1.Tag <> "" Then
GoTo Line
Else
Select Case Button.Key
Case Is = "exit"
MsgBox "Exit"
End Select
End If
Line:
Select Case Toolbar1.Tag
Case Is = "Exit"
MsgBox "Exit"
Toolbar1.Tag = ""
End Select
End Sub
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zz005
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-11-07 20:05:4715楼 得分:0
    谢谢张哥
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved