Discussion :

[chuck_m]

Salut à tous!

Je souhaiterais savoir s'il est possible de générer dynamiquement un nom de variable et si oui, comment m'y prendre?

Par exemple, je passe en argument à ma fonction une chaine de caractères.

Code :

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

 Public function MaFonction(ByVal MaChaine as string)

Ma fonction utilise la valeur de MaChaine pour instancier une variable dont le nom sera "Toto" concaténé à la valeur de MaChaine.

J'espère avoir été clair ;-)

Merci d'avance

[maxo]

Impossible

[Mandotnet]

Je ne sais pas si c'est possible, mais tout dépend de l'utilisation que tu cherches à faire.

tu pourrais par exemple utiliser un tableau d'association, (Une Hashtable, dont la clef est le nom que tu génères dynamiquement, auquel tu associes une référence sur une variable, un objet).

[chuck_m]

Ok merci pour vos réponses les gars.

tu pourrais par exemple utiliser un tableau d'association, (Une Hashtable, dont la clef est le nom que tu génères dynamiquement, auquel tu associes une référence sur une variable, un objet).

Je vais creuser ta piste Mandonet...

[Mandotnet]

Ok, alors un petit bout de code si tu as besoin :

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
18
19
20
21
 
Public Class MesVariables
    Dim HashTab As New Hashtable
 
    Sub Ajouter(ByVal nom As String, ByVal value As Object)
        HashTab.Add(nom, value)
    End Sub
 
    Function Supprimer(ByVal nom As String) As Boolean
        Try
            HashTab.Remove(nom)
        Catch
            Return False
        End Try
        Return True
    End Function
 
    Function Recup(ByVal nom As String) As Object
        Return HashTab(nom)
    End Function
End Class

Ensuite tout dépend du context d'utilisation. Tu peux par exemple associer une instance de la class à un objet session.

Code :

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

session("MesVariables") = new MesVariables

puis pour l'utiliser :

Code :

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

1
2
3
4
5
6
 
dim MesVars as MesVariables = Ctype(Session("MesVariables"),MesVariables)
 
MesVars.Ajouter("TotoMonNom", "un objet")
 
Label1.text = Ctype(MesVars.Recup("TotoMonNom"),String) ' Attention ici il faut caster en fonction de l'objet / type de variable utilisée.

Passer par la session c'est pas le top, c'est juste pour l'exemple, à toi de voir comment l'utiliser en fonction de tes besoins.

[chuck_m]

Ok merci pour tout ça Mandotnet, je m'y met dès mon retour de congés! 8)