définir un alias de fonction dans VBA, possible?

Question

J'utilise VBA derrière MS Access Dites que j'ai les méthodes globales foo1 et foo2 qui obtiennent les mêmes arguments mais font des choses différentes. Je sais qu'en C++ je peux assigner une fonction à un alias. Quelque chose comme: au lieu de:

If (term) then 
    foo1 arg1, arg2, arg3 
else 
    foo2 arg1, arg2, arg3 
End If 

Je veux écrire:

Var new_func = Iff (term, foo1,foo2) 
new_func arg1, arg2, arg3 

Puis-je faire cela sur vba?

Answer 1

courrais costume?

new_func = IIf(term, "foo1", "foo2") 
''new_func arg1, arg2, arg3 

res = Run(new_func, "a", "b", 1) 

Plus d'informations: http://msdn.microsoft.com/en-us/library/aa199108(office.10).aspx

Answer 2

Non, malheureusement, ce n'est pas possible avec VBA. Ce serait bien, mais il vous suffira de vous en tenir à votre première syntaxe.

Mise à jour: Donc, je maintiens mon affirmation originale que la construction proposée dans la question n'existe pas dans VBA, mais Alex K. et Remou ont fourni des solutions de contournement utilisables.

Answer 3

Essayez ceci:

http://oreilly.com/catalog/vbanut/chapter/booklet.html#sect5

L'opérateur AddressOf.

Cependant, comme indiqué sur http://discuss.fogcreek.com/joelonsoftware4/default.asp?cmd=show&ixPost=140196&ixReplies=19

« AddressOf est vraiment un hack pas cher. VB ne supporte pas les valeurs de la fonction de première classe comme la plupart des autres langues, mais avec AddressOf est le soutient à mi-chemin. Oui, vous pouvez obtenir l'adresse d'une fonction mais vous ne pouvez pas invoquer une fonction par adresse (sauf si cette fonction est un processeur de message et seulement ensuite avec la fonction WinWall CallWndProc.) Tout ce que vous pouvez faire pour simuler ce comportement est de prendre des objets dispatch génériques au lieu de que les objets supportent les fonctions nécessaires. "

Malheureusement, c'est à peu près aussi proche que je l'aurai. Pour plus d'informations sur AddressOf, voir here.

Answer 4

Si les 2 fonctions ont été implémentées dans 2 modules de classe différents, vous pouvez leur donner le même nom & les appeler via une interface. C'est à peu près aussi proche que possible. (Et son peu près)

'empty interface class, name: IFoo 
Public Function TheFunc(i As Integer) As Long 
' 
End Function 

'class clsFoo1 
Implements IFoo 

Private Function IFoo_TheFunc(i As Integer) As Long 
MsgBox "I'm clsFoo1" 
End Function 

'class clsFoo2 
Implements IFoo 

Private Function IFoo_TheFunc(i As Integer) As Long 
MsgBox "I'm clsFoo2" 
End Function 

'module code; 
Dim myFoo As IFoo 
If var = 1 Then 
    Set myFoo = New clsFoo1 
Else 
    Set myFoo = New clsFoo2 
End If 

myFoo.TheFunc 12345