如何判断RichTextBox中水平滚动条是否可见？

原代码中魔法数字的含义 #

你提到的2097152是Windows窗口样式常量WS_VSCROLL的十进制值，对应十六进制0x200000，用于标识窗口包含垂直滚动条。

水平滚动条对应的常量 #

判断水平滚动条需要使用WS_HSCROLL常量，其十进制值为1048576（十六进制0x100000）。

规范的VB.NET实现（兼容32/64位） #

为了避免魔法数字、提升代码可读性，建议通过枚举定义Windows样式常量，并使用更兼容的GetWindowLongPtrAPI（替代旧的GetWindowLongA，适配64位系统）：

Imports System.Runtime.InteropServices

' 定义Windows窗口样式常量枚举
Public Enum WindowStyles As Integer
    WS_HSCROLL = &H100000 ' 水平滚动条样式
    WS_VSCROLL = &H200000 ' 垂直滚动条样式
    GWL_STYLE = -16       ' 获取窗口样式的索引
End Enum

' 声明兼容32/64位的API函数
<DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
Private Shared Function GetWindowLongPtr(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As IntPtr
End Function

' 判断水平滚动条是否可见
Public Function HorizontalScrollBarVisible(ByVal ctl As Control) As Boolean
    Dim style As IntPtr = GetWindowLongPtr(ctl.Handle, WindowStyles.GWL_STYLE)
    Return ((style.ToInt64() And WindowStyles.WS_HSCROLL) <> 0)
End Function

' 可选：规范的垂直滚动条判断函数（对比用）
Public Function VerticalScrollBarVisible(ByVal ctl As Control) As Boolean
    Dim style As IntPtr = GetWindowLongPtr(ctl.Handle, WindowStyles.GWL_STYLE)
    Return ((style.ToInt64() And WindowStyles.WS_VSCROLL) <> 0)
End Function

代码说明 #

• WindowStyles枚举封装了相关常量，让代码更易读、维护性更强。
• GetWindowLongPtr是GetWindowLong的64位兼容版本，避免在64位进程中出现指针截断问题。
• 通过按位与操作判断窗口样式中是否包含WS_HSCROLL位，从而确定水平滚动条是否可见。

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