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

[Résolu]
Signaler
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
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

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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