Discussion :

[Nitnelave]

Voila: Je dois afficher des listbox si les checkbox correspondantes sont cochées.
Mais le problème, c'est que le test qui doit définir si les listbox doivent s'afficher indique vrai, et la propriété visible des listbox reste fausse, et pourtant elles s'affichent!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 list1(0).Visible = IIf(Check1(0).Value = 1, True, False)
MsgBox IIf(Check1(0).Value = 1, True, False) & list1(0).Visible
'la msgbox me donne "VraiFaux"
list1(1).Visible = IIf(Check1(1).Value = 1, True, False)
MsgBox IIf(Check1(1).Value = 1, True, False) & list(1).Visible
'Pareil

Après, quand je sort de la sub, la propriété passe à vrai, mais j'en ai besoin dans la sub!!
PS: je travaille en VB6

[ucfoutu]

Bonjour,

Rien compris !

Et ceci encore moins :

Mais le problème, c'est que le test qui doit définir si les listbox doivent s'afficher indique vrai, et la propriété visible des listbox reste fausse, et pourtant elles s'affichent!!!

Quésako ?

[ucfoutu]

et de toutes manières, puisque tu as des contrôles indexés, tu devrais te contenter de ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim titi As Integer
  titi = 0
  List1(titi).Visible = IIf(Check1(titi).Value, True, False)

ou titi correspond à l'index partagé entre les 2 !!!

[sovo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 list1(0).Visible = IIf(Check1(0).Value = 1, True, False)
MsgBox IIf(Check1(0).Value = 1, True, False) & list1(0).Visible
'la msgbox me donne "VraiFaux"

la propriété passe à vrai

Normal c'est ce que tu demande de faire. Que voulais tu exactement ?

[Nitnelave]

La propriété ne passe à vrai qu'à la sortie de la sub, qui est plus loin.
Pendant la sub, la propriété visible reste fausse, même si elle devrait être vraie

[Nitnelave]

Je viens de remarquer que ça ne le faisait qu'au chargement de la form!
comme cette sub est lancée dans form_load, c'est peut-être ça l'origine du problème!

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List1(0).Visible = Not Check1(0).Value - 1

[sovo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List1(0).Visible = Not Check1(0).Value - 1

Plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List1(0).Visible = CBool(Check1.Value)

Je viens de remarquer que ça ne le faisait qu'au chargement de la form!
comme cette sub est lancée dans form_load ...

... La propriété ne passe à vrai qu'à la sortie de la sub, qui est plus loin.
Pendant la sub, la propriété visible reste fausse

Essai alors de faire une simulation de cette propriéte a True