注册 登录
编程论坛 VB6论坛

请问怎么给设定好的Command添加快捷键呢?

初始元灵 发布于 2016-10-11 15:56, 5596 次点击
软件里有个Command7,用来从数据库提取指定数据。想做的更方便点,输入完编号直接敲回车就把数据提取出来。请问该怎么做?
17 回复
#2
初始元灵2016-10-11 16:00
大神快来吖,版主帮帮忙。
#3
战争领主2016-10-11 16:59
不是vb有键值吗
回车的键值好像是KeyAscii
#4
风吹过b2016-10-11 17:30
在输入编号的框子里检测,检测到回车后,直接调用 Command7 的单击事件。
#5
pengzhanggui2016-10-11 17:34
If KeyAscii <> 13 Then Exit Sub
Call Command.click
#6
初始元灵2016-10-11 19:02
回复 4楼 风吹过b
请问VB会自动调用回车键吗?我在没加代码的情况按了一下回车,直接新建了一个数据库,新建数据库的按钮好像默认setfocus。
#7
初始元灵2016-10-11 19:06
回复 5楼 pengzhanggui
请问版主一下,KeyAscii 在VB中会被识别吗,不需要调用什么或者定义什么吗?
#8
初始元灵2016-10-11 19:06
回复 3楼 战争领主
是通用的Ascii码表,但是我不知道怎么写。
#9
xiangyue05102016-10-11 19:11
回复 5楼 pengzhanggui
个人觉得这样不好,首先是不能采用按键组合的方式,其次如果程序有输入的地方,可能不能避免。

可以这样实现添加一个menu,我记得menu可以定义快捷键的,通过menu某一个菜单再来调用CMD的事件。menu是否显示就看情况了
#10
初始元灵2016-10-11 19:15
回复 9楼 xiangyue0510
就是说自己定义一个菜单,菜单栏可以调用Command7_Click()事件,并且给其带上一个快捷键吗?
#11
pengzhanggui2016-10-12 08:02
回复 7楼 初始元灵
Private Sub textbox_keypress(KeyAscii As Integer)
    If KeyAscii <> 13 Then Exit Sub
    call command7.click
    ...
end Sub
#12
pengzhanggui2016-10-12 08:11
回复 10楼 初始元灵
是的,可以这么做
#13
xzlxzlxzl2016-10-12 09:01
在command caption属性里加“&A-Z按钮名”,则Alt+A-Z就可以是这个按钮的快捷键。
#14
xiangyue05102016-10-12 11:25
回复 10楼 初始元灵
Menu控件可以对某一个/些menu按钮定义快捷键的。 快捷键被按下之后的menu按钮click事件中调用相应的command_Cick即可。
这样可以使用组合按键,也能避免跟正常输入之类的有冲突。
你试一下就好了,很简单的啊
#15
ZHRXJR2016-10-13 20:45
输入完编号直接敲回车就把数据提取出来,可能你是在文本框输入的吧,那么在文本框的KeyPress事件中调用Command_click事件即可。

程序代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
#16
童心未泯872016-10-16 14:39
在caption属性里前面加上(&)+内容就好了吧?
#17
xss_wl2016-10-16 22:20
很简单,只要将Command控件的Default设置为True就可以了,这时直接按下回车键和用鼠标点击该按钮的效果一样。
#18
lester玥2016-10-17 13:11
把按钮Command的属性 Default设置为True 这个按钮就是默认enter按键
在Textbox输入完,按enter就可以执行对应按钮的指令
1