Redirection de variable.

Version imprimable

26/01/2013, 21h14
Stugeol

Redirection de variable.

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.
27/01/2013, 12h16
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.
27/01/2013, 17h16
Pol63

Citation:

Envoyé par Jean-Marie Grave

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 ...

Code:

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 ?

31/01/2013, 14h38
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
31/01/2013, 15h23
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:

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

Bonjour,
Tu peux procéder ainsi

Code:

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:

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é.

31/01/2013, 17h09
prologic
Si je comprend bien tu veux affecter une valeur à une variable en passant son nom dans une fonction
Code:

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.
31/01/2013, 17h32
Pol63

Citation:

Envoyé par prologic

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" ...
01/02/2013, 12h13
prologic

Citation:

Envoyé par Pol63

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" ...

Je me disais simplement que si c'est possible dans certain langage de prog, il est possible que ca existe en VB.

Après recherches...

Il s'avère que ce n'est pas possible en VB (d'après d'autres discussion sur ce site), de créer dynamiquement des variables, ou de retrouver les noms des variables de manière simple. Il faut apparamment passer par des collections.

http://www.developpez.net/forums/d70...-nom-variable/

++

PS: je pensais trouver la solution au problème de Stugeol et il s'avère que non, c'est honnète de la reconnaitre et pour ca on se fait shooter... merci
01/02/2013, 12h19
Pol63

Citation:

Envoyé par prologic

Je me disais simplement que si c'est possible dans certain langage de prog, il est possible que ca existe en VB.

à partir tout de là tout est possible, le souligner n'apporte rien

Citation:

Envoyé par prologic

Il s'avère que ce n'est pas possible en VB (d'après d'autres discussion sur ce site), de créer dynamiquement des variables, ou de retrouver les noms des variables de manière simple. Il faut apparamment passer par des collections.

donc indirectement c'est totalement possible

Citation:

Envoyé par prologic

PS: je pensais trouver la solution au problème de Stugeol et il s'avère que non, c'est honnète de la reconnaitre et pour ca on se fait shooter... merci

c'était pour n'avoir rien dit sur tes autres posts qui se sont tous pris un flopée de -1
même si la démarche est totalement appréciable, il serait peut etre judicieux d'attendre d'avoir des connaissances pour aider les autres, ca évitera de les embrouiller
04/02/2013, 12h23
Stugeol

Bonjour a tous,
Merci, pour vos conseilles, je vais creuser du côté des dictionnaires.
Pour l'instant j'ai contourner mon problème avec une boucle for Each qui parcour l'ensemble des textbox dans un groupe Box et un select case pour traiter chaque cas.
Je ne me suis pas encore lancer dans le code, je travaille encore sur le papier.
Une fois le code fais je vous tiens au courant.
Cordialement.
Stugeol...