Office 365用户窗体ListBox启动时如何将水平滚动条置于右侧？

问题背景 #

当Office 365环境下的VBA UserForm设置为**从右到左（RightToLeft=True）**时，ListBox的水平滚动条会默认显示在左侧，若需要将其调整为右侧显示，可通过Windows API修改控件样式实现。

具体实现步骤 #

1. 声明API函数与常量 #

在UserForm的代码模块顶部插入以下代码，用于获取和修改控件的窗口扩展样式：

Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrW" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrW" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

Private Const GWL_EXSTYLE = -20
Private Const WS_EX_LAYOUTRTL = &H400000

2. 在窗体初始化事件中修改ListBox样式 #

在UserForm的Initialize事件中添加代码，移除ListBox的RTL布局样式，强制水平滚动条显示在右侧：

Private Sub UserForm_Initialize()
    Dim hWndListBox As LongPtr
    Dim exStyle As LongPtr
    
    ' 替换为你的ListBox控件名称
    hWndListBox = Me.ListBox1.hWnd
    ' 获取当前控件的扩展窗口样式
    exStyle = GetWindowLongPtr(hWndListBox, GWL_EXSTYLE)
    ' 移除RTL布局标志
    exStyle = exStyle And Not WS_EX_LAYOUTRTL
    ' 应用修改后的样式
    SetWindowLongPtr hWndListBox, GWL_EXSTYLE, exStyle
    ' 刷新控件使生效
    Me.ListBox1.Refresh
End Sub

注意事项 #

• 将代码中的ListBox1替换为你实际使用的ListBox控件名称
• 代码兼容32位和64位Office版本（使用PtrSafe声明API）
• 修改后ListBox的垂直滚动条仍会保持在左侧，符合从右到左窗体的整体布局逻辑

内容的提问来源于stack exchange，提问作者محمود عسكر