Manipulation de Controls par leurs noms

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

Citation:

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

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.

27/04/2012, 11h55
-N4w4k-

Salut,

Code:

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.
27/04/2012, 11h56
spottt

Utilise la méthode "TryParse()" pour convertir une string en int.
27/04/2012, 12h02
-N4w4k-

Citation:

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.
27/04/2012, 12h05
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:

1 2 Dim MaVariable As String = "Label1" Me.Controls(MaVariable).Text = "COUCOU"
J'ai aussi la même erreur :

Citation:

La conversion de la chaîne "Label1" en type 'Integer' n'est pas valide.
27/04/2012, 12h10
Nathanael Marchand

Ca n'est pas possible ce que tu souhaites faire :D
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
27/04/2012, 12h16
JulieF

Citation:

Envoyé par Nathanael Marchand

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 ?

Code:

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

Chez moi ça marche..

27/04/2012, 12h47
JulieF
Citation:
Envoyé par -N4w4k-

Code:

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

Chez moi ça marche..
Là tu change le nom du contrôle. Ce ne n'est pas ce que je cherche à faire.
Je voudrais appeler un contrôle par son nom mais en passant par une variable et en changer les propriétés.
Et en copiant ton exemple, ca ne marche pas chez moi. Bizzare

Je crois que le problème vient du fait que Controls doit contenir un numéro d'index et n'accepte pas les String

Salut

tu peux te servir du tag des checkbox et button

Code:

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:

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

27/04/2012, 13h02
JulieF

Merci shayw.
C'est une solution. Mais je pensais qu'il y avait plus simple que de tester chaque contrôle et en utilisant le tag.

Donc il n'est pas possible d'appeler un Objet par son nom via une variable ?
27/04/2012, 13h58
shayw

les boutons et checkbox ont été chargés dynamiquement ou placés avec
l'ide ?
27/04/2012, 14h19
-N4w4k-

Comme l'as dit Nathanael précédemment, ce que tu veux faire n'est pas possible car le "nom" d'un composant correspond à sa propriété "Name" et pas au nom que tu as donné à la variable.

Tu peux faire Button1.Name = "Button1" & Me.Controls("Button1") mais je ne vois pas trop l’intérêt..
27/04/2012, 14h28
JulieF

Citation:

Envoyé par shayw

les boutons et checkbox ont été chargés dynamiquement ou placés avec
l'ide ?

Placés avec l'IDE.

Citation:

Envoyé par -N4w4k-

Comme l'as dit Nathanael précédemment, ce que tu veux faire n'est pas possible car le "nom" d'un composant correspond à sa propriété "Name" et pas au nom que tu as donné à la variable.

Tu peux faire Button1.Name = "Button1" & Me.Controls("Button1") mais je ne vois pas trop l’intérêt..

OK, je vois.
Dans ce cas, je vais opter pour l'utilisation de Collections.
27/04/2012, 14h32
Nathanael Marchand

Citation:

Envoyé par JulieF

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
27/04/2012, 14h35
JulieF

OK, je comprends mieux.
Merci.

Bonjour,

@-N4w4k- et @Nathanael Marchand
Je ne comprend pas trop vos remarques

parceque chez moi
Code:

1 2 3 4 5 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click For n As Integer = 1 To 10 DirectCast(Controls("Button" & n), Button).Visible = DirectCast(Controls("CheckBox" & n), CheckBox).Checked Next n End Sub
fonctionne très bien. Suivant l'état des cases à cocher (vrai ou faux) les boutons correspondant sont visible ou pas.
Note : DirectCast est équivalent à CType (voir MSDN pour la différence)

@JulieF
Comment as-tu défini "n" ?

A+, Hervé

27/04/2012, 22h04
JulieF

Effectivement Hervé ton exemple fonctionne si je le mets dans une application Windows. Par contre, Dans une application Windows Phone, il ne fonctionne pas. Cela doit venir du Compact Framework 3.5 qui n'accepte pas les string. J'ai l'erreur :

Citation:

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

Merci quand même et c'est bon a savoir que l'on peut le faire dans une application Windows.
27/04/2012, 23h36
-N4w4k-
Salut rv26t,

JulieF voulait chercher le composant dont la variable qui le référence est appelée "Button1" et non pas le composant dont le nom est "Button1" (propriété Name).
Code:

1 2 3 4 Dim Button1 As New Button() Button1.Name = "Button1" 'Ne marche pas sans ça.. Me.Controls.Add(Button1) Dim b As Button = Me.Controls("Button1")
Mais apparemment ça ne marche pas sous windows phone..
28/04/2012, 22h39
Nathanael Marchand

Citation:

Envoyé par -N4w4k-

Mais apparemment ça ne marche pas sous windows phone..

Windows Phone se base sur Silverlight et la vous êtes en Windows Forms. Silverlight est moins cracra :D

Voir 40 message(s) de cette discussion en une page