Discussion :

[Stugeol]

Bonjour,
Saurriez vous comment faire une redirecton. Je m'explique :
Dans une variable A j'affecte la valeur "texte1"
Dans une variable B j'affecte la valeur "TextBox1"
Si # est la fonction de redirection,
#(A)=100, affecterais la valeur 100 à la variable texte1
#(B).visible = true, rendrais le control TextBox1 visible.

Je vous remercie par avance de votre aide.
cordialement.

[Jean-Marie Grave]

Bonjour Stugeol.

Si j'ai bien compris votre énoncé, votre fonction # devrait produire tantôt un nombre, tantôt un booléen. Je ne crois pas que cela soit possible.


Cordialement.

[Pol63]

Si j'ai bien compris votre énoncé, votre fonction # devrait produire tantôt un nombre, tantôt un booléen. Je ne crois pas que cela soit possible.

Si, c'est possible.

Par contre moi je n'arrive pas à en déduire que c'est ce qu'il veut faire ...

[prologic]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim A as String = "texte1"
Dim B as TextBox = TextBox1
 
 
Function Redirection (param)
 
If param = "texte1" then A = 100
If param.Enabled = true then TextBox1.Enabled = True
 
End Function

C'est pas tout a fait exact, et surtout ca n'a pas vraiment d'interet.

Dans ta demande, tu parle d'une variable A qui vaut "texte1", puis d'une variable texte1 qui vaut 100... pareil avec la variable B qui est un objet.

Quand je vois ca, je pense que tu essais de faire passer des noms de variables en paramètre pour les affecter différemment.

Tu peux détailler ?

[Stugeol]

Bonjour,
je précise un peu.
Je veux faire un truc du style si # est la fonction redirection

Dim A as string
Dim Toto as integer
A = "Toto"
#(A)=100 'Affecte 100 à la variable Toto

Le but :
J'ai créer un form avec des textes boxes nomées :
T1_Q, T1_Hm, T1_Hr
T2_Q, T2_Hm, T2_Hr
T3_Q, T3_Hm, T3_Hr
...
T20_Q, T20_Hm, T20_Hr


Dans une routine je fais appelle aux valeurs de ces textbox, le but était de créer une boucle pour générer le nom des textbox du style :

i allant de 1 à 20
#("T"&i.tostring&"_Q").Text = (4*i).tostring
#("T"&i.tostring&"_Hm").Text =(2*i).tostring
#("T"&i.tostring&"_Hr").Text =i.tostring

Ce qui serait equivalent pour i =1
T1_Q.text = (4).tostring
T1_Hm.text = (2).tostring
T1_Hr.text = (1).tostring

Ce qui serait equivalent pour i =4
T4_Q.text = (16).tostring
T4_Hm.text = (8).tostring
T4_Hr.text = (4).tostring

[Pol63]

c'est guère plus compréhensible ...

enfin un usercontrol avec 3 textboxes t'évitera de faire du code étrange
sinon tu peux jeter un oeil sur le dictionary(of T,T2)

et quand on a plusieurs trucs identiques à poser sur un form, on le fait par code

Code :

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

1
2
3
4
for i as integer = 1 to 20
  dim b as new button
  me.unflowlayoutpanel.controls.add(b)
next

[rv26t]

Bonjour,
Tu peux procéder ainsi

Code :

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

1
2
3
4
5
        For i As Integer = 1 To 20
            DirectCast(Controls("T" & i.ToString & "_Q"), TextBox).Text = (4 * i).ToString
            DirectCast(Controls("T" & i.ToString & "_Hm"), TextBox).Text = (2 * i).ToString
            DirectCast(Controls("T" & i.ToString & "_Hr"), TextBox).Text = i.ToString
        Next i

Mais recherche dans la direction de la solution proposé par Pol63 avec le dictionnaire. Tu auras ainsi ta collection pour manipuler tes contrôles.

----- Edit ----- exemple avec la méthode de Pol63

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
        Dim dico As Dictionary(Of String, TextBox) = New Dictionary(Of String, TextBox)
        Dim t As TextBox
        ' création des TextBox
        For i = 1 To 20
            t = New TextBox
            t.Name = "T" & i.ToString & "_Q"
            t.Top = (i * 25) + 100
            t.Left = 100
            Me.Controls.Add(t)
            dico.Add(t.Name, t)
        Next
        'Affichage du texte dans les TextBox
        For i As Integer = 1 To 20
            dico("T" & i.ToString & "_Q").Text = (4 * i).ToString
        Next i

A+, Hervé.

[prologic]

Si je comprend bien tu veux affecter une valeur à une variable en passant son nom dans une fonction

Code :

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

1
2
3
4
5
Function Affect(a)
 
If a = "Toto" then Toto = 100
 
End

Je sais que c'est possible en php ${"Toto"} => $Toto, en Vb ca doit être faisable mais je ne suis pas au fait de la manière de procéder.

[Pol63]

en Vb ca doit être faisable mais je ne suis pas au fait de la manière de procéder.

et bien merci de ce message inutile pour dire que tu ne sais pas !
de plus si tu ne sais pas comment oses tu dire "ca doit etre faisable" ...