主题：移动TextBox1光标

如果把TextBox1的光标往下移动一行怎么做啊？感谢 感谢 

 参考属性

 

SelectedText
SelectionStart
SelectionLength

谢谢 非常感谢你，  我看懂了的 这个是插入快捷键功能，可以是移动TextBox1的光标吗？相当于点击 TextBox1 然后看一下 “下”的方向键，然后是最后一行了就 弹出一个提示窗口，感谢 感谢 

 参考

 

下载信息  [文件大小：300.0 KB  下载次数：14]

点击浏览该文件:textbox滚动例子.table

谢谢你 ，我下载了例子，看了很久，只是 不知道移动光标该怎么改，能在帮忙看看吗 ，就移动光标，我点一下 TextBox1 的滚动条移动 只是光标就不见了。感谢 感谢 

读下一行

 

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim eidx As Integer = txt.text.Length - 1
Dim sidx As Integer = 0
Dim count As Integer = 1
Dim temp As Integer = 0
For i As Integer = vars("SelectedStart") To eidx
    If Asc(txt.text(i)) = 13 Then
        temp += 1
        If temp > count Then
            eidx = i
            Exit For
        ElseIf temp = count Then
            sidx = i
        End If
    End If
   
Next

txt.SelectionStart = sidx
txt.SelectionLength = 1
Dim str As String = txt.Text.SubString(sidx, eidx-sidx)
msgbox(str)
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(str, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)

谢谢 谢谢 可以了  可以是光标移动到下一行吗？如果是最后一行弹出一个提示，给你填麻烦了 感谢 感谢 

afterload

谢谢  感谢 ，还帮忙做了其他的功能，能再帮忙看看这段吗？

 

If eidx = txt.text.Length - 1 Then

    msgbox("最后一行")

End If