Discussion :

[Australia]

Bonjour,
je souhaiterai savoir s'il est possible de passer une fonction en paramètre d'une fonction en VB afin de factoriser mon code.

Je pense que ca n'est pas possible en VB mais comme je suis pas encore expert ...

Si c'est pas possible, avez vous des solutions pour contourner le problème.

Merci d'avance.

[bhaal76]

Ce n'est pas ce qu'on appelle la récursivité ?

plutot que de la passé en paramètre, pourquoi ne pas faire en sorte qu'elle s'appelle elle même ?

[jmfmarques]

Tu peux toujours ne pas de "casser la tête" et passer en paramètre, par exemple, un integer que la fonction appelée (la 1ère) utilisera (expressions conditionnelles) pour appeler l'autre fonction...

Je pars du principe selon lequel la 2ème fonction est différente de la 1ère, sinon la récursivité permet à une fonction de s'appeler elle-même !

[random]

on peut aussi dans une fonction calculer des paramètres qui serront passées à une autre fonction

[Australia]

Il ne s'agit pas de récursivité mais d'une fonction de parcours d'arborescence qui selon le cas appelle des fonctions différentes.

J'aurais voulu créé un module qui contient une fonction

parcours_arbo(paramètre1, paramètre2, fonction1){
' je parcours l'arbo
fonction1 (noeud_courant)
je continue de parcourir l'arbo
}

et selon les cas, j'applique pas du tout la même fonction.
Alors pour l'instant je duplique mon code et change le nom de ma fonction suivant le cas dans lequel je l'appelle mais c'est moche et pas du tout factorisé !!!

j'ai pensé aussi à faire un module et puis selon la fonction que je souahite appelé je fais un select case mais je trouve ca pas très joli non plus ...

[HPJ]

Si les fonctions à appeler sont des méthodes d'objets (déclarées dans un module de classe ou dans une form):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function toto() As String
    toto = "ok"
End Function
 
Function appel(nomFonction As String) As String
    appel = CallByName(Me, nomFonction, VbMethod)
End Function
 
Private Sub Form_Load()
    MsgBox appel("toto")
End Sub

[Megaxel]

Waouh! Ben là, HPJ, chapeau!!
Je n'avais jamais entendu parler de "CallByName".

[ThierryAIM]

Waouh! Ben là, HPJ, chapeau!!
Je n'avais jamais entendu parler de "CallByName".

http://vb.developpez.com/faq/?page=Langage#callbyname

[Australia]

Merci, je vais voir ce que je peux en faire mais la ca devient vraiment compliqué pour moi,
le me de callByName ???!!!???

[jmfmarques]

Le Me ?
oui, alors... laisse tomber...
Mais jette quand-même un coup d'oeil dans l'aide en ligne sur ce mot, qui te simplifiera la vie plus d'une fois.

[Megaxel]

Aïe!
J'aime pô les coups de fouet, moi...