VB文本框赋值后想让光标还在末尾

Question

Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then
Text1.Text = Text1.Text + "年"
End If
End Sub
给文本框赋值后，光标就跑到开头去了，怎样让光标还在末位啊？

Answer 1

text1.selstart=len(text1.text)Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then
Text1.Text = Text1.Text + "年"
Text1.Selstart=Len(Text1.text) '在这里加入这一句
End If
End Sub

Answer 2

Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then
Text1.Text = Text1.Text + "年"
Text1.SelStart = Len(Text1.Text)
End If
End Sub

Answer 3

text1.selstart=len(text1.text)本回答被提问者采纳

Answer 4

不晓得哦，我也在自己学vb的，还不是很会，就来看看啦。