如何檢索MS Access VBA中的屏幕大小/分辨率以重新調整表格的大小

Question

我有兩個彈出窗體（父/子），我希望能夠根據屏幕的大小自動重新調整大小。

如何檢索屏幕大小以實現此目的。

Answer 1

對於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

Answer 2

對於VBA，一個簡單的（因此可能更便攜）的解決方案可能是：

Application.UsableHeight 
Application.UsableWidth 

截至Adjust userforms to fit in screen發現。我在Word 2007 VBA中成功使用了此功能。在我的情況下，Application.UsableWidth給出了實際的屏幕寬度，Application.UsableHeight給出了實際的屏幕高度，減去Windows任務欄的高度。