Nom d'une variable par paramétre

Résolu
mateo2705 Messages postés 1 Date d'inscription jeudi 18 août 2005 Statut Membre Dernière intervention 19 septembre 2005 - 19 sept. 2005 à 15:28
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 19 sept. 2005 à 16:35
Je ne sais pas si le sujet est clair mais je vais m'expliquer:



j'ai une classe avec diffèrent membres



class maclasse

public membre1 as integer

public membre2 as string

public membre3 as string

end class



dans mon programme, je voudrais recuperer la valeur de membre2 par exemple suite à la saisie de membre2 dans une textbox

Ca donnerais:



Public données As maclasse = New maclasse

données.membre1 = 1

données.membre2 = "bonjour"

données.membre3 = "aurevoir"



(textbox1 contient 'membre2')

nom = textbox1.text



Maintenant, il faut que je recupere "bonjour" dans varrecup avec quelque chose du style:

varrecup = données & "." & nom

mais ca ne fonctionne pas.



Merci pour votre aide

2 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
19 sept. 2005 à 16:02
Regarde du cote de la fonction CallByname() ...
Public Données As maclasse = New maclasse
Dim VarRecup As String

Varrecup = CallByName(Données,textbox1.text,vbGet)

Seul Hic avec CallByName ... Si le membre de ton objet que tu appelles dois générer des erreur (instruction Err.raise() dans le code d'une méthode ou d'une propriété de la classe) et bien CallByName() déclenchera bien une erreur mais le code erreur sera toujours 404 (erreur OLE) quelque soit le code erreur généré par l'objet. Si tu es dans ce cas la, j'ai un bout de code avec la TLIB qui te conviendra ...

Christophe
3
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
19 sept. 2005 à 16:35
Bonjour,
J'ai essayer ton bout de code, mais rien ne fonctionne.
J'ai créés cette procédure, qui t'intéressera peut-être ?

Private Sub Command1_Click()
Dim données1, données2, données3
Dim VarRecup, nom
données1 = "1"
données2 = "bonjour"
données3 = "aurevoir"
VarRecup = données2
Text1 = VarRecup
nom = Text1.Text
Text2.Text = nom
End Sub

jpleroisse

Si une réponse te conviens, clique Réponse Acceptée.
0