7,786
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bydisplay 2003-05-09
- 打赏
- 举报
上面说法都对
Cooly 2003-05-09
- 打赏
- 举报
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'或者使用Sendkeys
'SendKeys "{Home}+{End}"
End Sub
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'或者使用Sendkeys
'SendKeys "{Home}+{End}"
End Sub
zestsnake 2003-05-09
- 打赏
- 举报
text1.setfocus
text1.sellength=len(text1.text)
text1.selstart=1
text1.sellength=len(text1.text)
text1.selstart=1
xinShi18 2003-05-09
- 打赏
- 举报
文本框是TextBox
xinShi18 2003-05-09
- 打赏
- 举报
帮帮我呀，我有急用，谢谢了
