VB如何定义焦点？

来源：百度知道 编辑：UC知道 时间：2024/05/14 04:23:32
一个窗体上有TEXT1和一个CMD按钮！

选中该窗体之后，不用选TEXT1，就能再TEXT1中输入数据，输完数据后，直接点回车就是按CMD按钮的！这么实现？
把Text1的TabIndex属性设置为0
之后，虽然是焦点了，但是我希望Text1里边的字反白显示！直接就能该了，省得按删除了！

还有If KeyAscii = 13 Then Call CMD_Click
虽然是回车就管用，但一点回车，系统会有个“崩”的声音，能去掉这个声音不？或者换个方法！

================修改

Private Sub CMD_Click()
MsgBox Text1.Text
End Sub

Private Sub Form_Activate()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call CMD_Click
End If
End Sub

=====================================

或者看看下面这个改得超级复杂的代码

Dim vTemp$

Private Sub CMD_Click()
Debug.Print Text1.Text
End Sub

Private Sub Form_Activate()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Form_Load()
'Text1.MultiLine = True 在设计模式时就要设置这个属性
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
vTemp = Text1.Text
Call CMD_Click
End If
'MsgBox vTemp
End Sub

Private Sub Text1_KeyUp(KeyCode As Int