在使用 VFP 的应用进行录入时，每进入一个录入框，就自动选择该框中的所有内容。利用以下的代码，也可实现类似的功能。
Private
Sub MyTextBox_GotFocus()
AutoSelect MyTextBox
End Sub
Sub
AutoSelect(SelObject As Control)
SelObject.SelStart = 0
If TypeOf
SelObject Is MaskEdBox Then
SelObject.SelLength =
Len(SelObject.FormattedText)
Else
If TypeOf SelObject Is TextBox
Then
SelObject.SelLength = Len(SelObject.Text)
End If
End If
End
Sub
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
