1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
rainstormmaster 2004-03-28
- 打赏
- 举报
Option Explicit
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
ColdMooon 2004-03-28
- 打赏
- 举报
来晚了
华芸智森 2004-03-28
- 打赏
- 举报
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
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
artoksxb 2004-03-28
- 打赏
- 举报
MSTOP(陈建华(东莞立晨企业资讯服务有限公司)
答的很全了，不多说啊，我也是VB的，好好学吧，交个朋友
答的很全了，不多说啊，我也是VB的，好好学吧，交个朋友
northwolves 2004-03-28
- 打赏
- 举报
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
SendKeys "{HOME}+{END}"
End Sub
fuzq 2004-03-28
- 打赏
- 举报
该说的都说了
