VB怎么将光标移动到文本的最后面?

来源：百度知道 编辑：UC知道 时间：2024/06/18 11:03:32
程序在load的时候,里面有个文本框,Text1中有内容
为了方便记事
我希望在程序加载完成后,输入的光标能自动在Text1中内容的最后面,方便记事
我高手能帮我吗?
代码怎么写?
谢谢各位高手,我想只能以简为优了

text1.SelStart=len(text1)

Text1.SetFocus '//将焦点赋予文本1
Text1.SelStart = Len(Text1.Text)'//光标的位置 = 文本1的字数

'Super 2003.3

Private Sub Text4_GotFocus(Index As Integer)
Select Case Index
Case Is = 0
Text4(0).BackColor = &HC0FFFF
Case Is = 1
Text4(1).BackColor = &HC0FFFF
Case Is = 2
Text4(2).BackColor = &HC0FFFF
Case Is = 3
Text4(3).BackColor = &HC0FFFF
End Select
End Sub

Private Sub Text4_LostFocus(Index As Integer)
Select Case Index
Case Is = 0
Text4(0).BackColor = &H80000005
Case Is = 1
Text4(1).BackColor = &H80000005
Case Is = 2
Text4(2).BackColor = &H80000005
Case Is = 3
Text4(3).BackColor = &H80000005
End Select

End Sub