78.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 19 行

在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
（完）