VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 自动选择 Text 的内容
发表评论(0)作者:, 平台:, 阅读:9999, 日期:2000-03-12
自动选择 Text 的内容

在使用 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