[VB6][Débutant] Execute une commande à partir d'une chaine

Bonjour à tous !

Voilà je vous écris aujourd'hui car j'ai un petit soucis dans mon programme.
Je vous explique vite fait :
J'ai un tableau à 2 dimensions avec des chaines de caractère.
Les 1ère colonnes contiennent des chaines que j'affiche avec un simple MsgBox, mais la 2ème colonne contient des "commandes" qui je veux éxécuter.

Le problème, c'est comment je fais pour les executer vu que ce sont des "chaines".
Il y a une fonction qui permet de faire executer ces chaines comme de simples inscructions ?

Petit exemple afin d'être plus clair :

Code:

---

1 2 3 4 5

Tab(1, 1) = "blabla" Tab(1, 2) = "Call MaFonction()" Tab(2, 1) = "blibli" Tab(2, 2) = "Call AutreFonction()"

---

Voilà, j'espère que vous pourrez m'aider !

Merci d'avance !

Code:

---

1 2 3 4 5

Tab(1, 1) = "blabla" Tab(1, 2) = "Call MaFonction()" Tab(2, 1) = "blibli" Tab(2, 2) = "Call AutreFonction()"

---

si tu fais

Code:

---

1 2 3 4 5

Tab(1, 1) = "blabla" Tab(1, 2) = "MaFonction()" Tab(2, 1) = "blibli" Tab(2, 2) = "AutreFonction()"

---

call Tab(X, 2), ca marche pas ??

éval ?

Cela me dis "Procédure attendue, et non une variable" :s

J'ai testé avec le Eval... mais sans résultat.
Je continue de testé

VBA? VB6? Autres?

CallByName avec une recherche sur le forum en fonction de la réponse à ma question précédente.

Je travaille avec VB 6

Pour le CallByName, c'est pour executer une methode d'un objet, mais moi ce ne sont pas des méthodes d'objets que je veux appeler, ce sont de simple fonction procédures que j'ai créé

CallByName fonctionne dans ce cas.

Je n'arrive pas à me servir du Eval. Je me suis servi de l'exemple de la FAQ.
Je travaille en en VB6, j'ai donc activé le composant 'Microsoft Script Control' et j'ai utilisé le code qui est indiqué.
Mais j'ai une erreur sur le New.... "Utilisation incorrecte du mot clé New...."

Montre ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Tab(1, 1) = "Blabla" Tab(1, 2) = "Call MaFonc()"   ------------------------   Dim r As New ScriptControl   Msgbox Tab(1, 1) r.language= "vbscript" Debug.Print r.Eval(Tab(1, 2))   -------------------------   Private sub MaFonc() Msgbox "test" End Sub

---

Citation:

---

Envoyé par Bluespike62

Je travaille avec VB 6

Pour le CallByName, c'est pour executer une methode d'un objet, mais moi ce ne sont pas des méthodes d'objets que je veux appeler, ce sont de simple fonction procédures que j'ai créé

---

En effet.

Une forme est un objet. Donc place tes procédures sur une form. Déclarer-les publiques et exécute ce code :

Code:

---

CallByName MaForm, "MaFonction", VbMethod

---

Code:

---

1 2	CallByName Form1, Tab(1, 2), VbMethod

---

"L'objet ne gère pas cette propriété ou cette méthode"

Désolé je me sens un peu nul là :s

Quand tu dis de placer mes procédure sur une form, tu entend quoi par là ?

Citation:

---

Envoyé par Bluespike62

Quand tu dis de placer mes procédure sur une form, tu entend quoi par là ?

---

Que tes procédures ne soit pas stockées dans un module, qu'elle soit dans ta feuille. enfin je pense que c'est ce qu'il veut dire..;)

Oui la procédure, dans ton exemple, doit se trouver sur Form1 et déclarée publique (Public) sinon elle reste inaccessible.

Hmmm.... ca marche !
Enfin pas totalement, ca ne marche pas avec toutes mes procédures :s
Pas possible d'utiliser les procédures avec des paramètres ?
On dirait que c'est ça qui me donne l'erreur

La tu me poses une colle ;)

J'y réfléchis et si une idée m'éclaire, je t'en fait part.

Bon, j'ai trouvé.

On ne peut pas appeler directement une procédure avec ces paramètres.

Pour que ca marche, il faut :

Code:

---

1 2 3 4 5 6 7 8

Tab(1, 2) = "test"   CallByName Form1, Tab(1, 2), VbMethod, "12"   Public Sub test(num As Integer) // Affichera 'test12' MsgBox "test" & num End Sub

---

Joli ;)

Le quatrième paramètre de CallByname récupère en effet les paramètres de la fonction appelée.

Allez hop, résolu ^^

Merci à tous pour l'aide que vous m'avez apporté


PS : J'aime vraiment pas le VB ^^