表单 – 如何在MS Access VBA中检索屏幕大小/分辨率以重新调整表单大小

前端之家收集整理的这篇文章主要介绍了表单 – 如何在MS Access VBA中检索屏幕大小/分辨率以重新调整表单大小前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有两个弹出窗体(父/子),我希望能够根据屏幕的大小自动重新调整大小.

如何才能检索屏幕大小以实现此目的.

解决方法

对于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

原文链接:https://www.f2er.com/html/231451.html

猜你在找的HTML相关文章