如何将光标始终定位在一个文本框内？

Question

窗体内有数个文本框。如何将光标始终定位在一个文本框内？

Answer 1

Text1 是文体框的name
Private Sub Text1_LostFocus()
Text1.SetFocus
End Sub

Answer 2

Private Sub Command1_Click()
MsgBox "sadf"
End SubPrivate Sub Timer1_Timer()
If Screen.ActiveControl <> Text1 Then Text1.SetFocus
End Sub
设置timer1的interval=200

Answer 3

在按完按钮后在按钮单击事件的最后加一句Text1.Setfocus

Answer 4

在每一个事件的最后一句都加上text1.setfocus
这样其他事件执行时虽然光标不在text中，但是执行完就又回来了，因为执行的速度一般是比较快的，所以用户的感觉就是光标一直在text中