主题：移动TextBox1光标

 参考属性

SelectedText
SelectionStart
SelectionLength

 参考

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

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

读下一行

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)

If eidx = txt.text.Length - 1 Then

    msgbox("最后一行")

End If

参考代码

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("SelectedText") 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.Select
txt.SelectionStart = eidx
txt.SelectionLength = 0