自動選擇Text的內容

使用VFP應用程序進行輸入時，每次進入輸入框，框中的所有內容都會被自動選中。使用下麪的代碼也可以實現類似的功能。
Private Sub MyTextBox _ got focus()
auto select MyTextBox
End Sub

Sub auto select(SelObject As Control)

SelObject。sel start = 0
如果SelObject的類型是MaskEdBox，則
SelObject。SelLength = Len(SelObject。FormattedText)
Else
如果SelObject的類型是TextBox，則
SelObject。SelLength = Len(SelObject。text)
End If
End If
End Sub

位律師廻複