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

Answer 2

对于 VBA，一个更简单（因此可能更便携）的解决方案可能是：

Application.UsableHeight
Application.UsableWidth

正如在Adjust userforms to fit in screen 中找到的那样。我在 Word 2007 VBA 中成功使用了它。在我的例子中，Application.UsableWidth给出实际的屏幕宽度，Application.UsableHeight给出实际的屏幕高度，减去 Windows 任务栏的高度。