Question

vb 中怎样设置使按回车键上当于单击lable标签命令

由于按钮无法设置透明，我把确定的按钮应标签做的，现在怎样设置使按回车键上当于单击lable标签命令

Answer 1

楼主，告诉你一个取巧的法子，设置一个按钮，其Visiable属性为False，Default属性为True，也就是按回车有效，但是是隐藏的，这个按钮的Click事件会触发单击lable标签命令 ，这不就实现了吗？

Answer 2

不能单以按的回车键就转到标签事件,需要考虑当前光标所在的控件,根据实际环境确定

Answer 3

举个例子：
Private Sub Label1_Click()
Print "abcd"
End Sub
Private Sub form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Label1_Click
End If
End Sub

追问

Private Sub Label4_Click()
Unload Me
MDI_Form.Show
End Sub
后面加上
If KeyAscii = 13 Then
Call Label4_Click
End If
End Sub
鼠标点的时候进去了，按回车就是没反应啊。。。。。

追答

后面的这段加在哪里了
Private Sub Label4_Click()
Unload Me
MDI_Form.Show

End Sub

Private Sub form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Label4_Click
End If
End Sub

追问

这是我的登录窗口的全部代码；点击标签的时候可以，就是按 回车 没反应。。。

追答

把Private Sub form_KeyPress(KeyAscii As Integer)中的form改成焦点所在的控件，如果是text1就改成Private Sub text1_KeyPress(KeyAscii As Integer),如果是combo1，就改成Private Sub combo1_KeyPress(KeyAscii As Integer)

Answer 4

判断 keyascii 的值是否为 13， 如果是 则执行 所需部件的 click 事件。

Answer 5

if keyascii=13 then
call label1_click
end if

追问

怎么不起作用？这段程序应该放到哪？？？