在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

原文转自：http://www.ltesting.net