Как запустить функцию, если есть ее название в виде String?

[echo]

Когда то использовал в Accesse метод Application.Run вот в таком виде для запуска функций:

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

makros = Combobox1.Value
Application.Run makros

Попробовал то же самое в VB6 и получаю "Run-time error '1004'". Call, насколько я понял, тоже так не умеет. Поискал здесь и в MSDN тоже ничего подходящего не нашел.
Если кто знает, подскажите можно ли запустить процедуру если есть ее имя в виде String или дайте наводку, где посмотреть, плз.

[FaKk2]

CallByName

[echo]

FAKK2
Насколько я понял эта функция используется

чтобы получить или установить свойство, или вызвать метод во время выполнения, используя их имя в текстовом формате.
The CallByName function is used to get or set a property, or invoke a method at run time using a string name.

а мне нужно обратиться к самостоятельной процедуре, находящейся в отдельном модуле. Типа

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

Sub SayHello()
msgbox "Hello"
End Sub

Если это можно сделать с помощью этой функции, то я видимо не догнал как. Поясните, плз.

[alibek]

Никак нельзя сделать (в скомпилированной программе), используй Select Case.

[echo]

alibek
20 Select'ов с вариантом дальнейшого их размножения - неприкольно...
А возможно как то получить список процедур в модуле? (перебрал их по именам сравнил со стрингом, если похоже - запустил)

[alibek]

В модуле -- нельзя.
При подключении TLI можно, но не для скомпилированного варианта.

[GB826]

Может список процедур в инишник запихнуть? :о)

[GSerg]

Может фигнёй не страдать и из модуля класс сделать?..

[echo]

GSerg
Была такая мысль. Но как? То что мне приходит в голову, получается вариантом на тему Select Case'a.
Если ты представляешь, как это можно сделать, поделись идеей?

[alibek]

Функции (методы) класса вызываются по CallByName.

[echo]

alibek
Ну всё - разжевали и в рот положили!
Всем спасибо.
Отдельное спасибо alibek и GSerg
Завтра попробую.