~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction GetWindowRect
Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" ( _ ByVal hwnd As Long, _
lpRect As RECT) As Long
Versions : . Windows 95/98 : Oui . Windows NT : A partir de 3.1 . Windows 2000/XP : OuiDescription : Cette fonction vous renvoie la zone rectangulaire définissant la fenêtre, cela comprend la barre de titre, les bordures, etc...
La structure de type RECT vous donne les deux points délimitant les extrémités de la fenêtre, le coin haut/gauche et bas/droit.
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Exemple d'utilisation :
' Origine : Christophe cavalier - c.cavalier@synergies-solutions.fr
Option Explicit
' Déclaration de la fonction API
Private Declare Function GetWindowRect Lib "user32" ( _
ByVal hwnd As Long, lpRect As RECT) As Long
' Déclaration du type
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
' Placer un bouton ("MonBouton") sur une feuille ("frmTest")
Private Sub Monbouton_Click()
Dim lgRetVal As Long
Dim r As RECT
lgRetVal = GetWindowRect(frmTest.hwnd, r)
' Affiche la position Haut/Gauche de la fenêtre
MsgBox "Gauche : " & r.Left & ", Haut: " & r.Top, vbOK, "Position fenêtre"
End Sub
Retour à la liste des API |