Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.SetFocus End If End Sub
wangtopcool(逆水行舟,不进则退)Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.SetFocus End If End Sub如果这样写的话,当然是可以实楼作所说的功能,但是在你每次敲击回车的时候,系统都会发出“滴”的声音。 如果将Text2.SetFocus改为SendKeys "{tab}"。 这样可以消除声音的烦恼。
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub如果这样写的话,当然是可以实楼作所说的功能,但是在你每次敲击回车的时候,系统都会发出“滴”的声音。
如果将Text2.SetFocus改为SendKeys "{tab}"。
这样可以消除声音的烦恼。