使用 Tab键在窗体中从一个文本框或备注字段移至另一个文本框或备注字段时,控件中的文本会突出显示。 这使得用户容易在按键时误删文本。 通过使用几行代码,您可以将插入点移至文本框中的第一个位置,从而将意外删除文本的风险降至最低。
为此,请为文本框的 GotFocus 事件创建一个过程。 在 GotFocus 事件过程中,将文本框的 SelLength 属性设置为它的 SelStart 属性。
下面的示例说明如何为名为 txtFirstName 的文本框执行此操作。
Private Sub txtFirstName_GotFocus()
Me.txtFirstName.SelLength = Me.txtFirstName.SelStart
End Sub