vb.net - 强制多行文本框水平滚动条向左

Question

我有一个 MultiLine TextBox，它会随着应用程序的运行在一段时间内更新，并且我已经设法让 TextBox 滚动到底部，确保始终显示最新条目。

但是，有时文本很长并且超出了 TextBox 的一侧，因此 Horizo​​ntal ScrollBar 会滚​​动到右侧。

如何修改下面的代码，使 ScrollBar 始终位于左侧，这意味着行的开头始终可见？请注意，我不想换行，因为我不能在多行中输入一个条目。谢谢。

Private Sub UpdateCurrentProgress(ByVal Text As String)

    If Text = "" Then Exit Sub

    Dim Textbox As TextBox = Me.txtCurrentProgress

    If Textbox.Text <> "" Then Text = vbCrLf & Text

    Textbox.AppendText(Text)
    Textbox.Select(Textbox.TextLength, 0)
    Textbox.ScrollToCaret()

End Sub

Answer 1

您可以像这样选择当前行的第一个字符:

Me.TextBox1.Select(Me.TextBox1.GetFirstCharIndexOfCurrentLine(), 0)