如何为窗体上的Text控件设置访问键？

Question

直接的方法应该没有了，写其他方法促发吧
有一个很搞笑的办法
在一个可以设置快捷键的控件，例如按钮 command1 ，在它的Caption 设置为 &H
，然后把按钮放到看不见的地方，例如form大小外面的地方
Private Sub Command1_Click()
Text1.SetFocus
End Sub
算了，说来笑笑的：）

Answer 1

ALT+a  访问text1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 4 And KeyCode = 65 Then
    Text1.SetFocus
  End If
End Sub

Answer 2

放置一个Label
设置Caption
将它的TabIndex设为TextBox的前一个

Answer 3

设置访问键的方法:
在CAPTION中名字的后面加上(&R)的形式.
这样程序在运行的时候,你按ALT+U 就可以选中了.

Answer 4

在每个控件上的键盘事件中添加：
         ALT+b  访问text1
Private Sub 空件_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 4 And KeyCode = 66 Then
    Text1.SetFocus
  End If
End Sub在任何空件获得案件后都能让TEXT1获的焦点

Answer 5

还可以在别的控件上或本窗体上的任何事件中加上
  Text1.SetFocus
你可以在事件中定义条件，如上面人所说的各种条件

Answer 6

一般用zyl910(910：分儿，我来了！) 的方法
由于label控件不接受焦点，所以焦点会按照TAB键次序自动移到下一控件处,可以利用这一点为Text/Combo/List等指定访问键.将label控件的tabindex属性设为对应要访问的控件的tabindex减1.设有六个控件，将labelA/LabelB/LabelC/的caption分别设为label&A/Label&B/Label&C(即访问键分别为Alt+A、Alt+B、Alt+C),tabindex属性按下列顺序依次设为0-5
labelA/Text1/LabelB/Text2/LabelC/Text3.(注意各确保label的UseMnemonic属性要设为true，不过由于true是默认值，如果没有曾经故意去修改过的话，可不必理会它)注意tabindex顺序很重要

Answer 7

zyl910(910：分儿，我来了！) 的方法最简便也最常见