如何在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