Discussion :

[shaka17]

Bonjour,
J'ai une série d'objet nommé :
Casier1 => Casier10

Je voudrais savoir comment faire pour remplacer les chiffres par une variable?
Pour que je puisse passer en revue mes objets avec une boucles For par exemple et modifier la propriété Visible de l'objet.

J'ai essayer comme en VBA:

[Casier" & i & "].Visible = True

mais le compilateur me jette, connaissez vous la syntaxe en VB.net ou une autre solution?

Merci d'avance

PS: j'ai 8 autres séries de 10 objet dans le même cas dans ce formulaire

[FailMan]

Je ne crois pas qu'il soit possible de passer un paramètre directement dans un nom de variable, ou alors la solution m'intéresserait également.

Je suis passé personnellement par un switch ... case en C# qui s'appelle Select Case en VB.NET

[Graffito]

Ca me parait aussi totalement impossible même avec la reflection.

Mieux vaut gérer une liste d'objets "Casier" (Code en C#)

Code :

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

1
2
3
4
5
 
List<Casier> Casiers=new List<Casier>() ; 
Casier.Add(Casier1) ;
Casier.Add(Casier2) ;
...

[Bluedeep]

Bonjour,
J'ai une série d'objet nommé :
Casier1 => Casier10

Je voudrais savoir comment faire pour remplacer les chiffres par une variable?

C'est impossible car ce que tu demandes est une vision spécifique aux langages de script et qui ne marche pas avec les langages compilés. (c'est le genre de syntaxe qui pue le php par exemple).

Pourquoi ne pas utiliser un tableau tout simplement ?

En effet, je n'arrive pas à imaginer un besoin fonctionnel dont la seule solution passerait par la création dynamique d'une variable.

[mactwist69]

Une solution, inexacte mais a explorer

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
17
For each MonControl As Control in Me.Form_Main
 
    If MonControl.GetType = "Checkbox" Then
 
         Dim MonNumeroControl as String = MonControl.Name
 
         'Traitement sur la chaine pour avoir le numero ou je sais pas
 
         if test(MonNumeroControl ) Then
                 MonControl.visible=False
         Else
                 MonControl.visible=True
         End If
 
    End If
 
Next

[mermich]

Salut,

Si jamais tu y tiens c'est tout de meme possible de la faire via codedom, mais tu va vraiment devoir utiliser l'artillerie lourde m(ais dans le genre très lourd).

[Pol63]

par rapport à ce qui a été dit :
le list est une bonne idée
par reflexion c'est faisable
codedom, faut vraiment être masochiste ^^

et sinon si c'est pour des controles sur le form :

Code :

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

1
2
3
for i as integer = 1 to 10
  me.controls("Casier" & i).Visible = true
next

tu pourrais aussi mettre tous ces controles sur un panel et donc les retrouver facilement, surtout si tu as plusieurs séries à traiter

Code :

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

1
2
3
for each c as control in panel.controls
  c.visible = true
next

si c'est des controles que tu créés pendant l'exécution, tu peux les ajouter dans un list(of) en plus de faire .Controls.add()


NB : pour faire ce genre de choses avec des variables et non des controles, on peut utiliser un dictionary(of string, le type de tes objets)

Code :

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

1
2
dico.Add("variable 1",instance)
dico("variable 1").propriété = value

NB2 :
poser plein de controles manuellement est rarement à conseiller, les créer par code est plus utile, au moins s'il faut en rajouter un un jour tu n'as qu'une ligne de code à modifier, alors que si tu le rajoutes à la main il faut modifier les bornes des For un peu partout dans le code
utiliser du code générique est plus maintenable que des choses "en dur" tels des For i = 1 to 10

[shaka17]

Merci beaucoup pour toutes vos réponses et tous vos conseils. Je les apprécis vraiment beaucoup.
Finalement j'ai fais comme Pol63 à dit

Code :

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

1
2
3
for i as integer = 1 to 10
  me.controls("Casier" & i).Visible = true
next

C'était exactement ce que je cherchais, cela marche trés bien pour mes controls : TextBox et PictureBox qui sont des controls System.Windows.Forms
mais pas pour les dessins (rond, carré etc ...) qui sont des Microsoft.VisualBasic.powerPacks ne sont pas pris en compte avec Me.Controls

avez vous une idée?

grand merci en tout cas de votre aide.

[Pol63]

faudrait que tu jettes un oeil dans le fichier designer (fichier caché par défaut, 2eme bouton dans l'explorateur de solution pour les voirs)
les shapes du powerpacks sont une bidouille (ce ne sont pas des controles)
donc faudrait voir dans quelle collection ils sont ajoutés pour la parcourir