מידע באקסס על רזולוציית המסך

[לוי א]

האם מישהו יודע מהו הקוד בVBA שיחזיר לי את רזולוציית המסך של מחשב
(נועד כדי להקטין טופס שבמחשב עם רזולוציה נמוכה לא יכנס בתוך כל המסך)

 

[FullTime]

https://stackoverflow.com/questions...resolution-in-ms-access-vba-to-re-size-a-form

 

[לוי א]

תודה רבה

 

[לוי א]

אני מנסה להשתמש בקוד שמוצג בקישור הנ"ל

For Access 2010 64 bit, you will need to add PtrSafe before 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

האם למישהו יש מושג מהי ההמרה שאני צריך לעשות בשביל 64 bit ??

 

[לוי א]

הסתדרתי
תודה!