7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
begintoday 2003-10-22
- 打赏
- 举报
http://expert.csdn.net/Expert/topic/2303/2303407.xml?temp=.3497888
中有自动生成代码的例子
中有自动生成代码的例子
northwolves 2003-10-22
- 打赏
- 举报
Private Sub Form_Load()
Text1.Text = "123456789"
End Sub
Private Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub
Text1.Text = "123456789"
End Sub
Private Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub
bigpig 2003-10-21
- 打赏
- 举报
up
doudou8090 2003-10-21
- 打赏
- 举报
SelStart = 0
来晚一步
来晚一步
猞猁狲 2003-10-21
- 打赏
- 举报
建议你用combox控件实现你的功能更好！
直接combox1.setFocus就可以被选中
直接combox1.setFocus就可以被选中
hemeijun81 2003-10-21
- 打赏
- 举报
Me.Text1.SetFocus
Me.Text1.SelLength
kmzs 2003-10-21
- 打赏
- 举报
是了，肯定没问题了
踏平扶桑 2003-10-21
- 打赏
- 举报
Private Sub Text1_GotFocus()
With Text1
.SelStart = 0
.SelLength = Len(Text1.Text)
End With
End Sub
With Text1
.SelStart = 0
.SelLength = Len(Text1.Text)
End With
End Sub
captainivy 2003-10-21
- 打赏
- 举报
Private Sub Text1_GotFocus()
With Text1
.SelStart = 0
.SelLength = Len(Text1)
End With
End Sub
With Text1
.SelStart = 0
.SelLength = Len(Text1)
End With
End Sub
WAWQ 2003-10-21
- 打赏
- 举报
Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
yunfeng007 2003-10-21
- 打赏
- 举报
这样
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
Me.Text1.SetFocus
