Fenstergröße und -position ermitteln Wissen Sie, wie man die Position eines bestimmten Fensters ermitteln kann?Ganz einfach - wie immer mit Hilfe der Windows-API. Die nachfolgende Routi...
Autor:   Wolfgang Kluge	Bewertung:     [ Jetzt bewerten ]	Views:  12.032
www.vbwelt.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wissen Sie, wie man die Position eines bestimmten Fensters ermitteln kann?
Ganz einfach - wie immer mit Hilfe der Windows-API. Die nachfolgende Routine ermittelt die Fenstergröße und -position. Die Werte werden hierbei in Pixel zurückgegeben.

' Benötigte Strukturen und Deklarationen:
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 die Funktion GetWindowRect nur mit dessen Fensterhandle aufzurufen.

' Größe und Position 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