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

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

如何才能检索屏幕大小以实现此目的.

解决方法

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

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