Question

怎么一选定文本框就全选文本框内的内容

每次切换text,都要先删除里面的内容,有没有办法一光标一移到文本框就全选中里面的内容.

Answer 1

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
Text1.SelLength = Len(Text2.Text)
End Sub

只要鼠标一点就会全选

Answer 2

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
End Sub

Answer 3

我用的是 获得焦点事件：） 比较简单

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Answer 4

最常用的选取方法:获得焦点时取得
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Answer 5

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.Text=""
End Sub
想了想感觉真有点多此一举：
既然选中以后就要先删除其中的内容不如直接写成：
Private Sub Text1_Click()
Text1.Text=""
End Sub