Home
Home

---Soumis par Dev Ashish--

Utiliser des variables pour appeler des fonctions.

(Q)    Comment appeler une fonction en utilisant le contenu d'une variable à la place du nom de la fonction?

(A)    Utiliser la fonction  Eval. Si vous fournissez une chaîne à la fonction  Eval et que la chaîne contient le nom d'une fonction, Eval retournera l'évaluation de cette fonction. Par exemple, Eval("Chr$(65)") retourne "A".

Aisni, par exemple, dans le code qui suit, si vous appelez fEval avec un  "A" comme paramètre,  vous recevez comme résultat "***Test That", autrement "***Test This".

'*******Code Start*******
Function fEval(status As String)
Dim strFunctionName As String
Dim x
    If status = "A" Then
        strFunctionName = "That()"
    Else
        strFunctionName = "This()"
    End If

    fEval = Eval(strFunctionName)
End Function

Function This() As String
    This= "***Test This"
End Function

Function That() As String
    That= "***Test That"
End Function
'*******Code End**********