definir un alias de función en VBA, posible?

Question

Estoy usando VBA detrás de MS Access Digamos que tengo métodos globales foo1 y foo2 que obtienen los mismos argumentos pero hacen cosas diferentes. Sé que en C++ puedo asignarle un alias a una función. Algo así como: en lugar de:

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

Quiero escribir:

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

¿Puedo hacer esto en VBA?

Answer 1

correría traje?

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

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

Más información: http://msdn.microsoft.com/en-us/library/aa199108(office.10).aspx

Answer 2

No, desafortunadamente, eso no es posible con VBA. Sería bueno, pero solo tendrá que apegarse a su primera sintaxis.

Actualización: Por lo tanto, mantengo mi afirmación original de que el constructo propuesto en la pregunta no existe en VBA, pero Alex K. y Remou han proporcionado soluciones utilizables.

Answer 3

Prueba esto:

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

El operador AddressOf.

Sin embargo, como se indica en http://discuss.fogcreek.com/joelonsoftware4/default.asp?cmd=show&ixPost=140196&ixReplies=19

"AddressOf es realmente un truco barato. VB no admite valores de la función de primera clase como la mayoría de otros idiomas, pero con AddressOf es compatible con hasta la mitad. Sí se puede obtener la dirección de una función pero no puede invocar una función por dirección (a menos que esa función sea un procesador de mensajes y solo entonces con la función Win32 CallWndProc). Todo lo que puede hacer para simular este comportamiento es tomar objetos genéricos de envío en lugar de indicadores de función y que los objetos soportan las funciones necesarias. "

Desafortunadamente, eso es lo más cerca que se puede llegar, creo.

Para obtener más información sobre AddressOf, consulte here.

Answer 4

Si las 2 funciones se implementaron en 2 módulos de clase diferentes, podría darles el mismo nombre & llamarlos a través de una interfaz. Eso es lo más cerca que puedes llegar. (Y su no muy cerca)

'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