让鼠标进入TextBox时自动选定TextBox中之整串文字

　2006-02-27 21:09:17　来源：WEB开发网　　　

核心提示：这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox中的所有字符，让鼠标进入TextBox时自动选定TextBox中之整串文字，PRivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1)EndSub->

这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox中的所有字符。

PRivateSubText1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1)
EndSub->