Вызов функции

[HaSH]

Здравствуйте. Такая стоит задача:
в зависимости от значения переменной вызывать определенную функцию. например

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


if var="AVN" then AVN()
if var="ABC" then ABC()
' и тд....


можно ли как то сократить код. значени переменной и имя функции совпадают. может можно написать что то типа:

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


var = "AVN"
'..........
call var


и автоматически будет вываться функция имя которой совпадает со значание переменной var. А то писать целую кучу if....then не красиво как то...

[Kovu]

CallByName

[HaSH]

Что то не получается... Не могу разобраться...Расскажите подробней плиз
имя процедуры AVN, никаких параметров

[Хакер]

Нельзя. Я бы очень многое отдал чтобы было можно. А CallByName может выполнять только МЕТОДЫ классов.

Например

CallByName Form1, "Hide", vbMethod

[keks-n]

Вообще некрасивая архитектура... Но можно создавать массив, в котором имени процедуры будет сопоставляться её адрес, а потом искать циклом нужную процедуру в смассиве и вызывать по указателю.

[Kovu]

Нельзя. Я бы очень многое отдал чтобы было можно. А CallByName может выполнять только МЕТОДЫ классов.

Например

CallByName Form1, "Hide", vbMethod

Или ещё например.

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


Rem Код формы
Function AVN() as Long
Me.print "ЫыыыЫ"
End Function

Private Sub Command1_Click()
CallByName Form1, "AVN",vbMethod
End Sub

[GSerg]

А Хакер не знает, что callbyname вызывает функции, а Хакер не знает, что callbyname вызывает функции!..

А оно таки вызывает! И даже результат возвращает. Kovu, почему не показал возвращение резальтата, для полного, так сказать, поражения тов. Хакера?

[Kovu]

А Хакер не знает, что callbyname вызывает функции, а Хакер не знает, что callbyname вызывает функции!..

А оно таки вызывает! И даже результат возвращает. Kovu, почему не показал возвращение резальтата, для полного, так сказать, поражения тов. Хакера?

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


Rem Код формы
Function AVN() as Long
Me.print "ЫыыыЫ"
AVN=CLng(Rnd*9+1)
End Function

Private Sub Command1_Click()
Dim RetVal as Long
RetVal=CallByName( Form1, "AVN",vbMethod )
Debug.? RetVal
End Sub

[GB826]

А разве в данном случае AVN() не метод класса form1?

[Хакер]

Метод конечно. Знает это хакер. Или ты GSerg хочешь сказать что она из модуля вызывает? - этого не знаю, расскажи.

[GSerg]

... выделенное большими буквами слово МЕТОДЫ говорит о том, что автор выделения различает методы и функции, и считает, что последние, в отличие от первых, вызвать через callbyname нельзя.

... перенести же ответственность на слово "классов" не получится: у классов callbyname вызывает также ПРОПЕРТИ; соответственно, фраза "только МЕТОДЫ классов" либо означает, что автор фразы уверен, что с функциями (в отличие от методов) не работает, либо не знает, что есть ещё и проперти.

... я так думаю.

[Хакер]

Гы. Автор топика срашивал о вызове функции. Фукнция и метод - эти почти одно и тоже. Поэтому я и написал МЕТОД, потому что это слово даже содержится в константе, энума, того что определяет тип вызова.

Я зачем же писать ещё и про проперти, если автору топика требует
eval-а от VB. Причём именно вызова функции (а не скажем присвоения переменной).

Например если бы автор задавал такой вопрос:
Есть у меня переменные e1, e2, e3, e4. Почему я не могу к ним обратиться в цикле вот так e(i) = i.

Я бы ответил - что е() это массив, и e(1) совсем не отдно и тоже что e1. e(2) не тоже самое что e2.

Я бы объяснил что то что указывается в скобках - это индекс элеметна. У каждого элемента есть свой "номер" - индекс.

И всё. Но то что я ограничился этим, разве означает что я не знаю что такое многомерные массивы, что делаю LBound, UBound, Erase, ReDim, Preserve, Join ?

[GSerg]

... фраза "Я бы очень многое отдал чтобы было можно." слишком экспрессивна. Я не верю, что это фраза человека, знающего, как вызвать функцию через callbyname. Для человека, знающего это, очевиден простейший трюк с перемещением всех поимённовызываемых функций в отдельный класс и созданием одного глобального экземпляра этого класса только для вызова функций по имени. И естественно, что человек, знающий это, тут же предложил бы этот вариант автору вопроса.
Так что...

[Хакер]

Неа. Я бы вызывал через CallWindowProc

[GSerg]

... что и подтверждает сказанное мною.

... а теперь вернись к началу топика, прочитай его, после чего вернись сюда и покажи вызов функции не с 4 параметрами, по имени, хранящемся в строковой переменной, через callwindowproc...

[Хакер]

Ты правда этого хочешь?

[GSerg]

Правда хочу. Мне интересно, как ты избежишь select case по имени функции в случае callwindowproc. Нет, это возможно, но мне интересно, насколько код для этого по объёму, непонятности и медлительности окажется впереди озвученного выше способа с переносом функций в класс, ибо проигрывать, Хакер, надо уметь...

[Хакер]

Я не буду делать Select Case.

Я буду запоминать какому имени, соответсвует какой конкретный адрес.

А потом я буду CallWindowProc
но только не сам этот адрес, а переходник упаковывающий параметры в стек и делающий Call (начитался твоих статей, что ж делать)

[Twister]

Хакер
Это глюк или ты действительно просидел всю ночь и спорил с GSerg-ом? Опыт мне подсказывает, что после пяти утра голова уже не фунциклирует...

[tyomitch]

Я буду запоминать какому имени, соответсвует какой конкретный адрес.

Где? как?
Напоминаю, что ты пообещал вызывать функцию по имени через CallWindowProc.


2GSerg: вот я бы на месте Хакера записал все адреса по именам в хеш-таблицу, благо и самописный модуль для этого есть. И тогда будет натуральный вызов через CallWindowProc, без Select Case, по именам.

[GSerg]

Угу. Тока это. Вспоминаем про несовпадение числа параметров и про то, какими каментами придётся снабдить функцию-оболочку ("сюда вот это не передавайте, а вот это - передавайте только вот так").
Вспомнив, сравниваем с callbyname.

[Хакер]

Twister, неработает. Я тут уже начал писать совершенно левый код. Но я люблю чтобы последнее слово было за мной, а значит могу неспать неделями ради этого

tyomitch

2GSerg: вот я бы на месте Хакера записал все адреса по именам в хеш-таблицу, благо и самописный модуль для этого есть. И тогда будет натуральный вызов через CallWindowProc, без Select Case, по именам.

Вот, я это самое и хотел делать...

[tyomitch]

Хакер, передирала


GSerg, достаточно передать вариант с массивом параметров: он займёт как раз 16 байт. И получится самый настоящий IDispatch::Invoke на коленке.

[S_Grobovshik]

А то писать целую кучу if....then не красиво как то...

А ты попробуй SelectCase ... End Secelt

[Хакер]

Гробовщик, а ты хоть понял о чём тут писали?

[tyomitch]

S_Grobovshik, прежде чем отвечать в топике, его лучше прочитать.

[HaSH]

Товарищи, я прошу прощения за непонятливость, но все же...
Насколько я понял нужно создать класс, а уже в нем обьявить функцию. Прально? Или я опять что то не догнал?

[GB826]

Пока большие дядьки спорят ты бы давно перепробовал все способы...

Попытка - не пытка...

[GSerg]

Прально?

Прально.

[HaSH]

Прально?

Прально.

Пасиб