如何按enter键后移动输入焦点.txt

VB技巧问答10000例 VB技巧问答10000例

在 每 个 KeyPress事 件 中 输 入 如 下 代 码 ： 
     Private Sub Text1_KeyPress (KeyAscii As Integer) 
     If KeyAscii = 13 Then ' The ENTER key. 
     SendKeys "{tab}" ' Set the focus to the next control. 
     KeyAscii = 0 ' Ignore this key. 
     End If 
     End Sub 
<END>