神马品牌网小区主入口手绘效果图:怎样更改vb焦点快捷键
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 04:24:06
原题是按ESC键就调用Cmd1的Clik事件，该事件过程的作用是在文本框中显示Visual Basic
改Tab键比较麻烦一点，你可以把窗体的keypreview属性设为True
然后在Form_keydown事件内编辑：
if keycode=27 then cmd1_click
可以的话可不可以把全部的代码写出来~谢谢谢谢~我知道，我是真的太笨了~
可是我这样设置后，点Esc键，他的窗子就自动最小话了啊，这是为什么？？
改Tab键比较麻烦一点，你可以把窗体的keypreview属性设为True
然后在Form_keydown事件内编辑：
if keycode=27 then cmd1_click
'
'
'
'
Private Sub cmd1_Click()
Me.Caption = "ESC down,call cmd1_click "
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then cmd1_Click
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Me.Caption = "test"
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
按下ESC键窗体的标题改变,以上代码在VB6,XP系统编译通过
VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可VB中为任何具有 caption的属性的控制创建快捷键，这通过caption 属性中在想作为快捷键的字母前加&号实现。但有一个问题值得注意，而类似文本框这样的控件无 caption 这样的属性，这时可将标签与文本框同时使用。为 lable创建快捷键，标签 Tabindex 属性设置比文本框小1，又因为label 不能接收按点，焦点会自动跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
（1） 首先绘制标签，再绘制文本框。或随意绘制各种控制，将标签 Tabindex 属性设置比文本框小1
（2） 在标签的caption 属性中使用“&”号设定快捷键
这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就会跳至文本框上。