VB 问题 会VB的来啊

来源：百度知道 编辑：UC知道 时间：2024/05/26 11:06:19
当光标放到text1中text1中的字符全部被选中便于删除

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

text1.seltext = length(text1.text)

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

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
回答者： wys_sans - 江湖大侠 九级 10-24 11:22

楼上的正解
当要点击按钮时则
Private Sub Command1_Click()
Text1.SetFocus '让text1获得焦点。
End Sub

用鼠标移动事件，鼠标移动到text1中就选中
Private Sub Text1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Text1.SetFocus
Text1.Selstart = 0
Text1.SelLength = Len(Text1.Text)
End Sub