ORTIPIC
Messages postés41Date d'inscriptionmercredi 26 février 2003StatutMembreDernière intervention16 juillet 2007
-
14 mai 2006 à 11:38
ORTIPIC
Messages postés41Date d'inscriptionmercredi 26 février 2003StatutMembreDernière intervention16 juillet 2007
-
14 mai 2006 à 18:51
Salut a tous
comment passer le nom d une procedure1 a une procedure2
qui appelerai la procedure1
exemple du style:
----------------------------------
call pr2(pr1)
'''''''''''''''''''''''''''
sub pr2(pr)
call pr
end sub
''''''''''''''''''''''''''''''
sub pr1()
? "hello"
end sub
----------------------------
fiko81
Messages postés381Date d'inscriptionvendredi 24 septembre 2004StatutMembreDernière intervention 5 septembre 20103 14 mai 2006 à 13:01
Salut,
Je pense que j'ai aussi chercher comment faire et j'ai trouver 2 solutions proposées sur le site :
La première utilise une DLL de VB mais ne fonctionne pas en mode RUN (... pas de chance).
La seconde utilise une référence Microsoft Script controle 1.0. Avec ça tu peux faire pas mal de chose dans la limite ou ces "choses" appartiennent à des objets ; exemple de code : Tout ce code doit être dans une Form1
Private Script As ScriptControl
Public Sub strScript()
Dim srtScriptToExecute as String
Public Function ExecuteLineScript(strScript As String) As Boolean
On Error GoTo Erreur
If Script Is Nothing Then
' Initialisation du ScriptControleur
Set Script = New ScriptControl
Script.Language = "VBScript"
Script.AddObject "MaForm", Form1
' Exécution du script
Script.ExecuteStatement strScript
ExecuteLineScript = True
Set Script = Nothing
Else
MsgBox "Un Script est en cours", vbOKOnly, "Erreur script"
End If
Exit Function
Erreur:
Set Script = Nothing
ExecuteLineScript = False
MsgBox Err.Description, vbOKOnly, "Erreur script"
End Function
sub pr1()
? "hello"
end sub
Voilà commant je fais moi auourd'hui.
Fiko ;-)
Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.</< body>