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

如在调整用户表单以适应屏幕中找到的。我在Word 2007 VBA中成功地使用了它。在我的例子中，Application.UsableWidth给出了实际的屏幕宽度，Application.UsableHeight给出了实际屏幕高度，减去了Windows任务栏的高度。