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

**Bluespike62** · 09/05/2006, 15h35

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 :

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

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 !

**riesseg** · 09/05/2006, 15h37

Code :

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

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 :

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

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

**random** · 09/05/2006, 15h41

éval ?

**Bluespike62** · 09/05/2006, 15h42

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é

**Catbull** · 09/05/2006, 15h43

VBA? VB6? Autres?

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

**Bluespike62** · 09/05/2006, 15h45

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

**Catbull** · 09/05/2006, 15h48

CallByName fonctionne dans ce cas.

**Bluespike62** · 09/05/2006, 15h59

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

**malhivertman1** · 09/05/2006, 16h01

Montre ton code

**Bluespike62** · 09/05/2006, 16h06

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

**Catbull** · 09/05/2006, 16h09

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 :

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

CallByName MaForm, "MaFonction", VbMethod

**Bluespike62** · 09/05/2006, 16h14

Code :

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

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à ?

**malhivertman1** · 09/05/2006, 16h16

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

**Catbull** · 09/05/2006, 16h18

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

**Bluespike62** · 09/05/2006, 16h23

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

**Catbull** · 09/05/2006, 16h31

La tu me poses une colle

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

**Bluespike62** · 09/05/2006, 16h38

Bon, j'ai trouvé.

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

Pour que ca marche, il faut :

Code :

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

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