Bonjour à tous,
Je tourne en rond depuis 2 jours avec le pb suivant:
Je souhaite paramétrer les propriétés LEFT et TOP de mes objets Shape
et Label au chargement de ma form. Pour cela, j'ai créé 2 procédures:
Private Sub ParamLabel (ByRef Obj as Label,etc....)
Obj.Left=200
Obj.Top=200
Obj.Caption="Essai"
End sub
Private Sub ParamShape (ByRef Obj as Shape,etc....)
Obj.Left=200
Obj.Top=200
End sub
Pour simplifier mon code, je souhaite passer mes objets à 1 seule et meme procedure.
Question :
- Comment passer aussi bien 1 type "Shape" qu'un type "Label" ?
- Comment controler dans la procédure le type passé pour ne pas
tenter d'affecter une propriété qui n'existe pas exemple :
Shape1.Caption= "" ?
Merci de votre aide!
Je commence à saturer[javascript:Insert_Emoticon('/imgs2/smile_angry.gif'); ]
C'est parceque les c.. sont plus nombreux qu'ils ont forcément raison!(dixit Coluche)
Une seule ligne de conduite, l'objectivité.