Form Grösse bei 125%

23/04/2015 - 22:47 von Spanker Leach | Report spam
Hallo zusammen,

wie kann ich die exakte Höhe eines Forms ermitteln?
Das ganze bei 125% Vergrösserung in den Display-Settings.

Na klar, Form.Height...
Stimmt aber nicht, Beispiel:

899 = Gemessene Höhe, per screenshot ermittelt

884 = Form.Height
9 = GetSystemMetrics(SM_CYSIZEFRAME)
25 = GetSystemMetrics(SM_CYMENU)
824 = Form.ScaleHeight

Egal wie ich rechne, auf 899 komme ich nicht.
Was übersehe ich?

Viele Grüsse,
Karl
 

Lesen sie die antworten

#1 Wolfgang Wolf
24/04/2015 - 08:03 | Warnen spam
Am 23.04.2015 um 22:47 schrieb Spanker Leach:
Hallo zusammen,

wie kann ich die exakte Höhe eines Forms ermitteln?
Das ganze bei 125% Vergrösserung in den Display-Settings.

Na klar, Form.Height...




Schon mal mit GetWindowRect getestet:

Private Declare Function GetWindowRect Lib "user32" (ByVal _
hwnd As Long, lpRect As RECT) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Sub Form_Click()
Dim r As RECT
Call GetWindowRect(Me.hwnd, r)
MsgBox (r.Bottom - r.top) & " - " & me.height
End Sub


Schönen Gruß
W. Wolf

Ähnliche fragen