如何存储并恢复多行TextBox的滚动条精确位置？

问题分析 #

你遇到的问题是：多行TextBox（WordWrap=False，显示水平/垂直滚动条）在批量替换文本后，滚动条自动复位到左上角。尝试的ScrollToCaret只能保证光标可见，无法精确恢复原滚动位置；AutoScrollOffset是容器控件的属性，对TextBox无效，所以设置后没有效果。

WinForms的TextBox控件没有直接暴露滚动条位置的公共属性，需要通过Win32 API来获取和设置滚动条的精确位置。

解决方案实现 #

1. 导入Win32 API函数 #

在窗体类顶部添加API声明（需导入System.Runtime.InteropServices）：

Imports System.Runtime.InteropServices

Public Class YourFormName
    ' 滚动条方向常量
    Private Const SB_HORZ As Integer = 0 ' 水平滚动条
    Private Const SB_VERT As Integer = 1 ' 垂直滚动条

    ' 获取滚动条当前位置
    <DllImport("user32.dll")>
    Private Shared Function GetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
    End Function

    ' 设置滚动条位置
    <DllImport("user32.dll")>
    Private Shared Function SetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
    End Function

    ' 发送滚动同步消息
    <DllImport("user32.dll")>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
    Private Const WM_VSCROLL As Integer = &H115 ' 垂直滚动消息
    Private Const WM_HSCROLL As Integer = &H114 ' 水平滚动消息
    Private Const SB_THUMBPOSITION As Integer = 4 ' 滚动条滑块位置标识

2. 修改文本更新逻辑 #

在TextChanged事件中，先保存滚动条位置和光标位置，更新文本后再精确恢复：

Private bPauseUpdate As Boolean = False
Private CursorLocation As Integer
Private scrollX As Integer ' 保存水平滚动位置
Private scrollY As Integer ' 保存垂直滚动位置

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    If bPauseUpdate Then Exit Sub
    bPauseUpdate = True

    ' 保存当前状态：光标位置 + 滚动条位置
    CursorLocation = TextBox1.SelectionStart
    scrollX = GetScrollPos(TextBox1.Handle, SB_HORZ)
    scrollY = GetScrollPos(TextBox1.Handle, SB_VERT)

    ' 处理文本逻辑（你的修改代码）
    Dim aWorkingText() As String = TextBox1.Lines
    '''''''''''''''''''''''''''''''''''''''''''''
    ' 此处放置你的文本修改代码
    '''''''''''''''''''''''''''''''''''''''''''''

    ' 更新TextBox文本
    TextBox1.Lines = aWorkingText
    bPauseUpdate = False

    ' 恢复光标位置
    TextBox1.SelectionStart = CursorLocation
    TextBox1.SelectionLength = 0 ' 清除选中状态

    ' 恢复滚动条位置并同步界面
    SetScrollPos(TextBox1.Handle, SB_HORZ, scrollX, True)
    SetScrollPos(TextBox1.Handle, SB_VERT, scrollY, True)
    ' 发送消息让TextBox同步内容视图，避免滚动条位置与内容不一致
    SendMessage(TextBox1.Handle, WM_HSCROLL, CType(SB_THUMBPOSITION + &H10000 * scrollX, IntPtr), IntPtr.Zero)
    SendMessage(TextBox1.Handle, WM_VSCROLL, CType(SB_THUMBPOSITION + &H10000 * scrollY, IntPtr), IntPtr.Zero)
End Sub

关键说明 #

• GetScrollPos通过TextBox的窗口句柄直接读取滚动条的精确位置，不受文本更新影响
• SetScrollPos设置滚动条位置后，必须发送WM_HSCROLL/WM_VSCROLL消息，确保TextBox的内容视图同步滚动，否则会出现滚动条位置正确但内容未移动的情况
• 先恢复光标位置再恢复滚动条位置，避免光标位置干扰滚动结果

内容的提问来源于stack exchange，提问作者LPChip