Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0 '选中文本内容
Text1.SelLength = Len(Text1.Text)
End Sub这个答案没有错啊，为什么不关闭问题呢
Private Sub txt_name_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txt_name.SelStart = 0 '选中文本内容
txt_name.SelLength = Len(txt_name.Text)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024