Fensterposition/-größe ermitteln
Da mir langsam die Ideen ausgehen(leicht zu merken am niedrigen Aktualisierungsgrad *g*), richte ich mich jetzt mehr an die (mittlerweile reichlichen) Fragen von euch.
Eine war, wie man die Position von Fenstern ermitteln kann.
Natürlich wird gleichzeitig die Größe ausgelesen...und wie immer kommen die Ergebnisse in Pixel zurück.
Deklaration:Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Will man nun die Angaben von einem bestimmten Fenster haben, so braucht man noch dessen Handle (hWnd, siehe zB. FensterHandle per Name).
Da ich nicht weiß, wie ihr eure Handles auslest, nehm ich der Einfachheit halber mal das eigene...
Dim myRect As RECT
GetWindowRect Me.hWnd, myRect
MsgBox "Left : " & myRect.Left & vbCrLf & "Top : " & myRect.Top
MsgBox "Height : " & myRect.Bottom - myRect.Top & vbCrLf & "Width : " & myRect.Right - myRect.Left