VB.Net comment Acceder a un controle variable sans connaitre sa propriété index

Question

Voila le probleme 

je souhaite affecter une valeur &#224; un controle sans connaitre sa valeur index (qui doit etre integer)

en vba la syntaxe suivante est possible

dim mavar = "NomControle"
controls(mavar).text =  "valeur a attribuer"

en vb.net

cette syntaxe ne fonctionne pas car mavar n'est pas "integer"

Comment contourner le probleme

Merci a tous

cs_Willi · Answer

Salut,
Si tu connais le nom de ton contr&#244;le dont tu veux modifier son texte tu peux faire comme cela



For 
Each
 obj 
As
 Control 
In
 
Me
.Controls

   If obj.Name = 
"NomDeTonControle"
 
Then

      obj.Text = 
"Nouveau texte"

      Exit 
For

   End 
If

Next


<HR width="100%" SIZE=2>
 Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse a

ERM_ERM · Answer

Willi,

je te remercie pour ta r&#233;ponse,

j'y avait pens&#233; mais faire ce traitement it&#233;ratif sur chaque controle
va ralentir &#233;norm&#233;ment le traitement

d'autant qu'il s'agit d'une op&#233;ration qui sera faites tres souvent 

j'ai &#233;galement pens&#233; cr&#233;er une table de correspondance entre controls.index et controls.name

par le biais d'une fonction style "dictionnaire de valeur"

mais je ne sais pas si la propri&#233;t&#233; index de chaque controle est fixe ou si elle peut varier.

en tous cas merci de d'&#234;tre int&#233;ress&#233; a mon probl&#232;me

A +

cs_Willi · Answer

Tu as essay&#233; ceci tout simplement.
Me.Controls("NomDeTonControle"
).Text = 
"bouh"


<HR width="100%" SIZE=2>
Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e"

crenaud76 · Answer

Willi < Me.Controls("NomDeTonControle").Text = "bouh" ne fonctionnera pas ! Controls.Item(...) attend effectivement un integer en tant qu'argument.
erm_erm< A priori les index des controles ne changeront pas ...sauf si tu les change volontairement toi-même. Il faudrait peutêtre faire un tour de For Each sur Controls pour obtenir l'index de chaque controle et l'associer au nom du controle dans un tableau, un dictionnaire ou une hastable

CR

ERM_ERM · Answer

Je crois effectivement que c'est ce que je vais faire

mais j'imaginais qu'il serait possible de cr&#233;er une surcharge a controls(integer)
afin qu'il accepte comme index le nom du controle plutot que sa valeur index

en tous cas merci &#224; tous pour toutes ces tentatives d'aide

A+

cs_Willi · Answer

Crenaud76 en vb.net cela marche!
La propri&#233;t&#233; controle poss&#232;de 2 signatures diff&#233;rentes

me.controls(int index)
me.controls(string name)

Je viens de v&#233;rifier et tester !

ERM_ERM · Answer

Merci Crenaud76

Moi &#231;a ne marche pas


Me.Controls("tb23").Text = "Z" 

j'ai le message d'erreur suivant ( uniquement a l'execution)
Cast de la chaine "tb23" en type integer non valide

si a la place de "tb23" je positionne une variable ayant un type different de integer 
j'obtiens la m&#234;me erreur

Par acquis de conscience j'ai aussi test&#233;


a Me.Controls("tb23").Text> m&#234;me erreur

Je suis quand m&#234;me content que pour toi &#231;a marche, cela veut dire qu'il y a une solution

peut &#234;tre que dans le r&#233;f&#233;rences tu dois avoir quelquechose de plus que moi
qui permet la surcharge de "controls" pour qu'il accepte comme index un "string name"
 
Moi j'ai :

System
System.data
System.Drawing
System.Windows.forms
System.xml

En tous cas merci de te creuser la t&#234;te et d'avoir test&#233;

Pr&#233;cision : je travaille en vb.net 2003 et pas encore 2005

cs_Willi · Answer

Crenaud76 => autant pour moi il n'y a qu'une signature c'est que j'utilise vb2005 j'ai pas tilt&#233; !
ERM_ERM => Utilise un dictionnaire dans ce cas que tu remplis dans ton form_load

ERM_ERM · Answer

D&#233;sol&#233; j'ai r&#233;pondu trop vite

ERM_ERM · Answer

Je Viens effectivement de v&#233;rifier sur MSDN2 et sur MSDN

Controls.Item()   Sur VS 2003 est forcement integer

alors que sur vs 2005 les valaur (index integer) et (string Name) sont accept&#233;es

Je vais donc me r&#233;soudre a utiliser un dictionnaire

ou a passer sur vs 2005 ????????

Merci encore &#224; tous

cs_Willi · Answer

En utilisant un dictionnaire sa donne ceci avec vb2005 apr&#232;s adapte le pour vb2003 mais je ne pense pas qu'il y ai grand chose &#224; modifier

Voici un exemple (qui marche j'ai test&#233;)



Dim dico 
As 
New Dictionary(
Of 
String, 
Integer)



Private 
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load



   'remplis le dico
   Dim c 
As 
Integer = 0

   For 
Each obj 
As Control 
In 
Me.Controls
      dico.Add(obj.Name, c)
      c += 1

   Next



End 
Sub

Private 
Sub Button2_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button2.Click



    'change la valeur texte d'un objet appel&#233; "CheckBox1"
   Dim index 
As 
Integer = dico.Item(
"CheckBox1")

   Me.Controls(index).Text = 
"bouhhhhh"



End 
Sub


<HR width="100%" SIZE=2>
Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e"

ERM_ERM · Answer

Merci Willi

cs_Willi · Answer

avec 2003 la d&#233;claration du dico peut se faire comme ceci
Dim dico as new collections.hashtable

Apr&#232;s le reste ne change pas....
Voila

VB.Net comment Acceder a un controle variable sans connaitre sa propriété index

13 réponses

Discussions similaires