在銉按下事件中加下面的代码
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
SendKeys "+{tab}"
End If
End Sub
在窗体的加载事件中加下面的代码。
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
注意:事先应该设置好TAB銉次序。
在銉按下事件中加下面的代码
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
SendKeys "+{tab}"
End If
End Sub
在窗体的加载事件中加下面的代码。
Private Sub Form_Load()
Me.KeyPreview = True