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