VB6 : Objet dynamique Visible ... mais 'invisible'

Résolu
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 3 juil. 2006 à 23:22
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 3 juil. 2006 à 23:43
Salut à tous !

J'ai un truc "bizarroïde", je crée un CheckBox dynamiquement, je le rends visible mais ne l'est pas. Pourtant j'ai placé des MsgBox pour vérifier, les données sont bonnes au niveau des coordonnées mais quand je demande s'il est visible, ça me dit "FAUX", malgrè l'instruction précédente :


For z = 2 To NbChamps '(NbChamps est égal à 2, pour l'instant)
NomCheck = "MonCheck" & z
Set MonCheck = frmListes.Controls.Add("vb.checkbox", NomCheck)
With MonCheck
.Top = TOP_CHECK
.Left = LEFT_MINIMUM + LARGEUR_OBJET * (z - 1)
.Height = HAUTEUR_CHECK
.Width = LARGEUR_OBJET
.Caption = CAPTION_CHECK
.Visible = True 'là je lui dit de se mettre visible
.Tag = z
MsgBox MonCheck.Top
MsgBox MonCheck.Left
MsgBox MonCheck.Height
MsgBox MonCheck.Width
MsgBox MonCheck.Caption
MsgBox MonCheck.Visible ' mais il me met "FAUX"
MsgBox MonCheck.Tag
End With
Next z


Quelqu'un aurait-il une idée ?
Merci à tous !

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

1 réponse

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
3 juil. 2006 à 23:43
Bon ben comme d'hab, je m'auto valide :

En fait il y a mille fois plus simple pour ce que je veux faire :

For z = 1 To NbChamps - 1
Load frmListes.chkTri1(z)
With frmListes.chkTri1(z)
.Top = TOP_CHECK
.Left = LEFT_MINIMUM + LARGEUR_OBJET * (z - 1)
.Height = HAUTEUR_CHECK
.Width = LARGEUR_OBJET
.Caption = CAPTION_CHECK
.Visible = True
End With
Next z

chkTri1 était déjà présent (car j'ai 1 CheckBox minimum) donc je lui ai rajouté l'index "0" et voilà, pour la création, c'est plus simple !!

++

Mortalino
3