VBNet - Форум - Передача имен функций в качестве параметров

Вопрос: Передача имен функций в качестве параметров Добавлено: 05.09.08 19:37

Автор вопроса: WW

Кто подскажет - как в VB 2005/VB 2008 реализуктся передача имен функций как параметров в друние подпрограммы?

Пример - есть две функции:

Function x2(ByVal x As Double) As Double
        x2 = x * x
End Function

и

Function x3(ByVal x As Double) As Double
        x3 = x * x * x
End Function

Есть третья подпрограмма, один из параметров которой - имя функции, например:

Function Test([I]ByRef f As Function()[/I], ByVal a As Double, ByVal b As Double) As Double
        Test = (f(a)+f(b))/2
End Function

Хочется получить что-то типа:

MsgBox(Test(x2,1,2))
MsgBox(Test(x3,3,4))

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: WW Вопросов: 1 Ответов: 1	Профиль \| \| #1	Добавлено: 05.09.08 21:34
	Сделал через Delegate и Address Of .... Есть ли ещё варианты? Ответить

Номер ответа: 2 Автор ответа: Viper ICQ: 249094859 Вопросов: 0 Ответов: 310	Профиль \| \| #2	Добавлено: 06.09.08 08:02
	И правильно сделал. Ответить

Номер ответа: 3 Автор ответа: VBNet$ik Вопросов: 1 Ответов: 31	Профиль \| \| #3	Добавлено: 15.09.08 13:38
	А для чего это? ТУт что вам перл чтоли. Как раз таких шаблонов избегать надо. Пусть код длинее да понятнее Ответить

Номер ответа: 4 Автор ответа: Viper ICQ: 249094859 Вопросов: 0 Ответов: 310	Профиль \| \| #4	Добавлено: 16.09.08 08:47
	VBNet$ik пишет: А для чего это? ТУт что вам перл чтоли. Как раз таких шаблонов избегать надо. Пусть код длинее да понятнее Да ну? Кто тебе это сказал? Ответить

Страница: 1 |