Discussion :

[JulieF]

Bonjour,

J'ai une dizaine de CheckBox et je voudrais afficher les boutons correspondant lorsqu'il y en a une ou plusieurs de cochées.
Voici mon code qui ne fonctionne pas

La conversion de la chaîne en type 'Integer' n'est pas valide.

Code :

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

1
2
3
4
5
6
 
                For n = 1 To 10
                    If CType(Controls("CheckBox" & n), CheckBox).Checked Then
                            Controls("Button" & n).Visible = True
                    End If
                Next n

Merci d'avance pour votre aide.

[-N4w4k-]

Salut,

Code :

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

Controls("Button" & n)

Ici tu veux concaténer une chaîne de caracteres ("Button", type String) avec un nombre (n, type Integer), seulement on ne peut pas..

Utilise n.ToString(), chaîne de caractères qui represente ton chiffre.

[spottt]

Utilise la méthode "TryParse()" pour convertir une string en int.

[-N4w4k-]

La conversion de la chaîne en type 'Integer' n'est pas valide.

Visual Studio croit que l'on veut convertir "Button" en Integer (TryParse ok) mais je pense que ce que JulieF veut faire c'est plutôt convertir "n" en String pour avoir par exemple "Button1", "Button2", etc et ainsi pouvoir appeler le controle par son nom et non son index.

[JulieF]

Merci pour vos réponses rapides, mais :

Avec n.ToString(), j'ai toujours la même erreur (j'avais d'ailleurs essayé avec Cstr)

Je n'ai pas la fonction TryParse(), j'ai oublié de préciser que je suis en Compact Framework 3.5

Je ne pense pas que le problème vienne de ma variable n.
Lorsque je fais :

Code :

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

1
2
        Dim MaVariable As String = "Label1"
        Me.Controls(MaVariable).Text = "COUCOU"

J'ai aussi la même erreur :

La conversion de la chaîne "Label1" en type 'Integer' n'est pas valide.

[Nathanael Marchand]

Ca n'est pas possible ce que tu souhaites faire
Il faut bien comprendre qu'au moment ou tu compiles le nom "Button1" que tu lui donnes, n'existe plus!
Tu peux par contre manipuler des listes d'éléments

[JulieF]

Il faut bien comprendre qu'au moment ou tu compiles le nom "Button1" que tu lui donnes, n'existe plus!

Je ne comprends pas. Mes Boutons existent bien puisqu'ils sont créés sur le formulaire dans Visual Studio. Et mon code fonctionne si je le fais Bouton par Bouton. Mais je voudrais faire un boucle pour réduire le nombre de ligne de code.
N'est-il pas possible d'appeler un Objet par son nom via une variable ?

[-N4w4k-]

Code :

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

1
2
        Button1.Name = "test"
        Dim b = Controls("test")

Chez moi ça marche..

[shayw]

Salut

tu peux te servir du tag des checkbox et button

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub WriteTag()
        Dim markbutton, markcheckbox As Integer
 
        markbutton = 1
        markcheckbox = 1
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is Button Then
                DirectCast(ctrl, Button).Tag = markbutton
                markbutton += 1
            End If
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).Tag = markcheckbox
                markcheckbox += 1
            End If
        Next
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub ShowButtons()
        For Each ctrlchb As CheckBox In Me.Controls
            If ctrlchb.Checked Then
                For Each ctrlb As Button In Me.Controls
                    If ctrlchb.Tag.ToString = ctrlchb.Tag.ToString Then
                        ctrlchb.Visible = True
                    End If
                Next
            End If
        Next
    End Sub

[Nathanael Marchand]

Je ne comprends pas. Mes Boutons existent bien puisqu'ils sont créés sur le formulaire dans Visual Studio. Et mon code fonctionne si je le fais Bouton par Bouton. Mais je voudrais faire un boucle pour réduire le nombre de ligne de code.
N'est-il pas possible d'appeler un Objet par son nom via une variable ?

Et bien non, quand tu compiles, le compilateur transforme le nom que tu avais donné à ta variable en une adresse mémoire et travaille uniquement avec ceci. Tu peux l'appeler Toto1 ou Toto2, lui n'utilisera plus ces noms