Question

vb 中 用回车和Esc来触发一个按钮

有两个按钮
C1：“是” ，鼠标点击触发 ，但是想要在任何情况下，按 回车 也能触发，该怎样设置代码？

C2：“否”，同上，在任何情况下，按 Esc 也能触发，该怎样设置代码？

详细介绍下哈，谢了~~~

Answer 1

把按钮的CANCEL属性设为TRUE时，响应ESC键
把按钮的DEFAULT属性设为TRUE，可以响应ENTER键，仅在焦点未发生变化之前~
再有就是根据KEYDOWN事件判断KEYCODE值，来确定调用C1_CLICK 或者调用C2_CLICK

Answer 2

Private Sub form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
call command1_click
end if
If KeyAscii = 27 Then
call command2_click
end if
End Sub

Answer 3

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Command2.SetFocus
End If
End Sub