Forcer l'Align d'un UsercontrolRésolu

Question

Bonjour, 

Je suis en train de développer un Contrôle ActiveX et je souhaiterais qu'il se place automatiquement en haut de la feuille.

Pour cela j'ai défini la propriété Alignable = True dans mon contrôle

et mis 
UserControl.Extender.Align=vbAlignTop dans l'évènement Initialize dudit contrôle. Evidemment j'obtiens une erreur "Site Client non disponible" dès que je pose ce composant sur la feuille destinataire ce qui est logique.
Quelqu'un connaitrait-il une solution pour forcer un tel alignement.

Merci d'avance pour votre réponse.

ucfoutu · Answer

Bonjour,
Il te faut nécessairement procéder à ce positionnement uniquement lorsque ce contrôle utilisateur est "accueilli".
Intéresse-toi à Ambient.Usermode
Je choisirais par ailleurs plutôt d'utiliser l'évènement Resize, plutôt que Initialize.

Calade · Answer

Bonjour ucfoutu et merci de ta réponse.

C'est bien ce que je pensais mais je cherchais un "truc" automatique dès que l'on pose le contrôle sur la form.

Actuellement j'ai écrit dans évènement Resize du contrôle:

   If Ambient.UserMode Then UserControl.Extender.Align = vbAlignTop

Calade · Answer

Bonjour,
En fait il faut mettre l'instriction
UserControl.Extender.Align = vbAlignTop 

dans l'évènement InitProperties et non dans Initialize comme je l'avais fait la 1ère fois.

Forcer l'Align d'un Usercontrol

3 réponses

Votre réponse

Discussions similaires