Question

按下Command1键选定TEXT1，按下Command1取消TEXT1的选定怎么做

按下Command1键选定TEXT1的内容，按下Command1取消TEXT1的选定的内容怎么做。。

求具体代码```````

Answer 1

Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

这是选定.
取消.
text1.sellength=0

Answer 2

Private Sub Command1_Click()
Static IsSelect As Boolean
IsSelect = Not IsSelect
If IsSelect = True Then
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
End If
End Sub