我有两个弹出窗体(父/子),我希望能够根据屏幕的大小自动重新调整大小.
如何才能检索屏幕大小以实现此目的.
解决方法
对于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
