在Visual Basic中，在GotFocus事件中快速选定文本
在使用数据输入控件的时，控件中的当前值常常当需要控件获得焦点时进行更新。这就允许用户马上输入一个新值覆盖掉原来的值。下面是完成这个工作的一个过程。


Public Sub FocusMe(ctlName As Control)
注释：
With ctlName
.SelStart = 0
.SelLength = Len(ctlName)
End With
注释：
End Sub

下面在输入控件的GotFocus事件中增加对这个过程的调用：

Private Sub txtFocusMe_GotFocus()
Call FocusMe(txtFocusMe)
End Sub
（完）