大显示器下Ms Access control.Left抛出溢出错误的解决问询

问题根源 #

Access中传统的控件Left属性为Integer类型，取值范围仅为-32768到32767。在4K等高分辨率屏幕下，窗体InsideWidth与控件宽度的差值（以twips为单位）很容易超过32767，直接赋值给Left就会触发溢出错误。

解决方法 #

放弃直接赋值Left属性，改用控件的Move方法来设置位置。Move方法的参数支持Long类型，可以处理更大的坐标值，完美规避Integer溢出问题。

修改后的代码 #

Private Sub Form_Resize()
    Dim targetLeft As Long
    ' 计算目标左侧位置，用Long类型存储避免溢出
    targetLeft = Me.InsideWidth - Me.Command0.Width
    ' 使用Move方法设置位置，保持Top、Width、Height不变
    Me.Command0.Move targetLeft, Me.Command0.Top, Me.Command0.Width, Me.Command0.Height
End Sub

补充说明 #

• 如果需要在窗体加载时就初始化控件位置，可以在Form_Load事件中调用同样的逻辑：

  Private Sub Form_Load()
    Call Form_Resize
  End Sub
  

• Move方法的参数顺序为：Left, Top, Width, Height，如果不需要修改宽高，直接传入控件当前的Width和Height即可。

备选方案（API方式） #

如果Move方法无法满足特殊需求（比如更精细的窗口控制），可以使用Windows API的SetWindowPos函数：

步骤1：声明API函数 #

在窗体模块的通用声明部分添加：

Private Declare PtrSafe Function SetWindowPos Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

步骤2：调用API设置位置 #

Private Sub Form_Resize()
    Dim targetLeft As Long
    targetLeft = Me.InsideWidth - Me.Command0.Width
    ' SWP_NOSIZE(&H1) + SWP_NOZORDER(&H20)：不改变控件大小和层级，仅修改位置
    SetWindowPos Me.Command0.hwnd, 0, targetLeft, Me.Command0.Top, Me.Command0.Width, Me.Command0.Height, &H21
End Sub

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