Executer une procedure

Question

Je cherche le moyen d'appeller une procédure via une variable (comme dans windev où on fait {"Procédure1"}). Je m'explique :

Public Sub Procedure1()
'blablabla
End Sub

Mainform_Load ()
Dim NomProc as string

NomProc = "Procedure1"

'-> Appeler Procédure1 grâce à NomProc
End Sub

Merci

cs_raff · Answer

hummm....pas sûr que c'est possible en vb.

boursicotteur · Answer

Une variable et une procédure ne peuvent pas avoir le même nom sans causer un conflit. Tu devras utiliser une astuce.

Public Sub Procedure1()
    'blablabla
End Sub

Public Sub Procedure2()
    'blablabla
End Sub

Mainform_Load ()
    Dim NomProc as string
 
    NomProc = "Procedure1"
 
    if NomProc = "Procedure1" then call Procedure1
    if NomProc = "Procedure2" then call Procedure2
End Sub
--------------------------------------------
ou encore mieux
--------------------------------------------
Mainform_Load ()
    call NomProc ("Procedure1")
    call NomProc ("Procedure2")
End Sub

Public Sub NomProc (vNomProc as string) 
    select case vNomProc
    case "Procedure1" 
        'code de la Procédure1
    
    case "Procedure2"
        'code de la Procédure2 

    case else
        'code pour palier à un vNomProc qui n'existe pas
    end select
End Sub

cs_Esquisse · Answer

mouai c'est ce que j'avais fait  une fonction qui appelle les proc mais c pas terrible je trouve... car j'ai environ 50 proc a lancer et d'autre peuvent etre ajoutées ou modifié donc il faudra que je retouche tout le temps un po de code... bon tant pis c cool qd même merci ;)

Executer une procedure

3 réponses

Discussions similaires