Вызов процедуры по ее имени

[Snussi]

Господа! А как можно вызвать функцию по имени?
Поясню на примере

Код: Выделить всё


public sub Sub1()
   msgbox ("Это процедура 1")
end sub
public sub Sub2()
   msgbox ("Это процедура 2")
end sub
' И так далее - n-е количество процедур
dim SubName as String
select case a
    case 1
         SubName="Sub1"
    case 2
         SubName="Sub2"
' И так далее - в SubName записываем имя процедуры. Возможно даже
' что-то типа "frmForm1.Sub1(1,2,3)"
end select


Как после этого вызвать процедуру, имя и параметры которой указаны в SubName?

[Gloom]

С помощью Reflection:

Код: Выделить всё

        Dim FormType As Type = Me.GetType()
        FormType.InvokeMember("Sub1", BindingFlags.InvokeMethod, Nothing, Me, Nothing)

[Snussi]

А если процедуры описаны в модуле? или, что еще хуже, из формы frm1 нужно вызвать методы форм frm2 и frm3?

[Snussi]

Если еще точнее, то
1. Есть модуль, в котором есть объектные переменные.

Код: Выделить всё


    Public fBase As New frmBase
    Public fMessenger As New frmMessenger
    Public fMenu As New frmMenu


Далее, в форме fMenu есть процедура

Код: Выделить всё


public sub SuperSub(a as long)
     dim ModuleName as string
     dim MethodName as string
     if a=0 then
            ModuleName="fBase"
            MethodName="Method1"
     else
            ModuleName="fMessenger"
            MethodName="Method2"
     end if
end sub


Соответственно, что дописать, чтобы при а=0 вызывалась fBase.Method1, а при а<>0 - fMessenger.Method2

[Sebas]

почитай про интерфейсы и забудь про модули())