2
Февраль
2009
Как передать фокус по нажатию Enter?
Как передать фокус по нажатию Enter?
Option Explicit Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys "{tab}" KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys "{tab}" KeyAscii = 0 End If End Sub