Discussion :

[Marc_27]

Bonjour à tous,

J'essaye de trouver un controle de mon formulaire à partir d'une variable String, mais mon code ne marche pas:

Code :

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

1
2
3
4
Dim cb As New CheckBox
cb.Name = "cb" & Format(myReader(0), "dd") & myReader(1)
MsgBox(cb.Name)
cb.Checked = True

Je vois sur le MsgBox que le Nom a été bien construit, mais il ne change pas le CheckBox de mon formulaire...

Est-ce qu'il me manque quelque chose?
Merci d'avance pour vos aides

[rocknboard]

c'est quoi exactement votre objectif ?
est ce que vous voulez changer le nom de Checkbox ??

[Marc_27]

En fait je voudrais changer la propriété Checked du CheckBox dont le nom j'ai construit...

[nasty]

Bonjour
Mais quel est vraiment le probleme? Parce que le code est bon... ca checked bien la checkbox.
Mais je ne suis pas sur que la checkbox soit bien affiché dans le form...
Cordialement
Nasty

[Marc_27]

avant tout, merci rocknboard et nasty

Est-ce que je peux vérifier sa existence?

[nasty]

Verifier son existence, je sais pas! (je connais pas encore tout VB, mais j'y travaille )
Tu peux ajouter quelque chose comme

Code :

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

cb.Parent = TonFormulaire

Au moins tu verras ta checkbox apparaitre..
Cordialement
Nasty

[Marc_27]

C'est bizare.

J'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
10
Do While myReader.Read()
Dim cb As New CheckBox
cb.Name = "cb" & Format(myReader(0), "dd") & myReader(1)
If Me.TableLayoutPanel1.Controls.Contains(cb) Then
      MsgBox(cb.Name & " exist")
Else
      MsgBox(cb.Name & " n'exist pas")
End If
cb.Checked = True
Loop

et il dit que le controle n'existe pas, mais dans le mode de création il est bien la...