Fensterposition/-größe ermitteln
 Info  
Von : Wolfgang Kluge
 Zusatz  
Printfreundliche Ansicht
 
 FensterHandle per Name
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...
' Größe auslesen
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