如何检索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任务栏的高度。