forms - 如何在 MS Access VBA 中检索屏幕大小/分辨率以调整表单大小

Question

我有两个弹出窗体(父/子)，我希望能够根据屏幕的大小自动调整大小。

如何检索屏幕的大小以实现此目的。

Answer 1

对于 Access 2010 64 位，您需要在 PtrSafe 之前添加 Function 。

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub ScreenRes()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points

End Sub

更多信息: http://support.microsoft.com/kb/210603