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:	Views:  30.594
www.vbwelt.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.