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

[Rouch]

Представим, что у меня есть форма Form1 в которой я хочу вызвать некоторую открытую функцию из формы Form2. При этом функция должна принять параметры и возвратить некоторое значение. Если мне нужно отобразить эту форму я могу вставить метод Show еще до вызова функции или сделать это в теле самой функции.
Вопрос в том, как мне отобразить форму Form2 модально?
Ясно, что если я сделаю это до вызова функции, то работа самой функции начнется только после того, как форма будет закрыта. Если сделаю это в теле самой функции, то работа функции будет отсановлена!
Как быть? Есть у кого-нибудь светлые мысли на этот счет?

[Хакер]

Мысль такова:

в коде Формы1.

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

Form2.Tag="CallSpecFunc"
Form2.Show vbModal, , Me


в коде формы 2 в событии Form_Activate -

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

If Me.Tag="CallSpecFunc"
вот тут вызов твоей хитроумноый функции.
Me.Tag = ""
End If


[Rouch]

Ты прав, но это только в том случае, если мне просто надо выполнить код. А как вернуть в форму Form1 результат выполнения функции? Или ты предлагаешь его тоже засовывать в TAG?

[Хакер]

А функция должна вернуть значение, до или после показа формы?

[tyomitch]

Ясно, что если я сделаю это до вызова функции, то работа самой функции начнется только после того, как форма будет закрыта. Если сделаю это в теле самой функции, то работа функции будет отсановлена!

Таймер?

[Rouch]

А функция должна вернуть значение, до или после показа формы?

После. А затем форма должна быть выгружена.
Иными словами код всей формы - это одна функция (за малым исключением), и хочется, чтобы форма показывалась вначале работы этой функции и скрывалась в конце.

Таймер?

Есть решение через таймер, но хочется сделать по-человечески: Функции передаются параметры, она отрабатывает код с показом формы и возвращает значение.

[vvs_adm]

Ну например так : заводишь переменные уровня формы для передачи параметров и результата. Вызываешь в модальной форме метод Me.Хлеба_и_зрелищ, в событии Form_Activate вся твоя функция и в конце Unload Me.

[Rouch]

Спасибо. Да, только хочется функцию использовать. На то она и функция, чтобы принимать параметры и возвращать значение. А шарить переменные не очень хочется, особенно если пишется отдельный модуль (форма), который может быть использован где угодно и кем угодно.
Может из API есть что-нить, что может сделать форму модальной и при этом вернет управление сразу же не дожидаясь закрытия этой формы. Некий аналог Me.Show vbModal - но без ожидания?

[vvs_adm]

Да, только хочется функцию использовать. На то она и функция, чтобы принимать параметры и возвращать значение.

ты прикрепленный файл значит не смотрел? Параметры передаются в функцию и она возвращает значение ...

[Rouch]

OK. Фокус понял.