Connaître l'emplacement d'un contrôl activeX [Résolu]

Signaler
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
Messages postés
18
Date d'inscription
mardi 29 août 2006
Statut
Membre
Dernière intervention
16 septembre 2008
-
Bonjour,
Je fais en ce moment un control ActiveX et dans le code, j'aurai besoin de connaître sa position sur la form ou il est crée.
L'enui c qui'il n'y a pas 'Left' et 'Top' dans les propriétés

ChR

2 réponses

Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4
tu utilise l'api:
Public Declare Function GetWindowRect Lib "user32" ( _
ByVal hwnd As Long, lpRect As RECT) As Long

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

et après pour avoir l'emplacement de ton controle
Dim lgRetVal As Long
Dim r As RECT
lgRetVal = GetWindowRect(moncontrole.hwnd, r)
r.left renvoi la position loeft
r.top renvoi la position top
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 199 internautes nous ont dit merci ce mois-ci

Messages postés
18
Date d'inscription
mardi 29 août 2006
Statut
Membre
Dernière intervention
16 septembre 2008

Salut,

Y'a plus simple. Il suffit d'utiliser la méthode Extender de ton activeX.
Donc : UserControl.Extender.Left   retournera la valeur de Left par rapport au Parent de ton Control.

Extender gère pas mal d'autres propriétés et méthodes. Je te conseille de regarder dans l'aide toutes les possibilités.

A plus.

Un code et ça repart