В VB 6.0 как узнать, загруженали форма ? (0)

05.06.2007, 11:42. **Показов** 2123. **Ответов** 6

Студворк — интернет-сервис помощи студентам

05.06.2007, 13:33

Function IsFormLoaded(FormName As String) As Boolean
Dim i As Integer
For i = 0 To Forms.Count - 1
If Forms(i).Name = FormName Then
IsFormLoaded = True
Exit Function
End If
Next i
IsFormLoaded = False
End Function

@Arto · 06.06.2007, 00:28

Если заранее известно о какой форме идет речь , то можно и так
В модуле описываешь переменную, например FormActiv
Затем в событие Activate нужной формы прописываешь

Private Sub Form_Activate()
FormActiv = True
End Sub
и в событие Unload следующее

Private Sub Form_Unload(Cancel As Integer)
FormActiv = False
End Sub

и теперь где нужно проверяешь флаг если он в True значит форма загружена

URL: www.armentel.com/avb

06.06.2007, 07:31

4 Arto:
А почему вы используете Form_Activate а не Form_Load?

@Arto · 07.06.2007, 23:32

Это зависит от того как Вы выгружаете форму , если
Unload form1 то разницы нет, если Form1.Hide, то разница есть, ибо в этом случае Form_Load не срабатывает, а Activate срабатывает, правда в этом случае так же надо учесть, что не сраьатывает Unload_Form и флаг надо сбрасывать до Form1.Hide, а не в Unload
Удачи

08.06.2007, 08:35

Arto,
Большое спасибо за разъяснения.

Все все-таки иначе. Метод Hide форму не выгружает, это делает команда Unload. А раз так, то сбрасывание флага в Form1.Hide недопустимо.

Событие Activate никак не связано с загрузкой формы - оно просто активизирует уже загруженную в событии Load форму. А раз так, то поднятие флага в Form1_Activate тоже неверно.

Флаг тогда будет ненужно подниматься каждый раз когда активизируется форма, однажды уже загруженная в событии Load.

Флаг надо поднимать в Form1.Load и опускать в Form1.Unload.

Между тем Ваше предложение использовать флаг как таковой мне по душе, т.к. просто и лаконично.

Успехов

08.06.2007, 08:41

Прошу прощения за опечатку в предпоследнем предложении.

Флаг надо поднимать в событии Form1_Load и опускать в событии Form1_Unload.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Mavr
	05.06.2007, 13:33
	Function IsFormLoaded(FormName As String) As Boolean Dim i As Integer For i = 0 To Forms.Count - 1 If Forms(i).Name = FormName Then IsFormLoaded = True Exit Function End If Next i IsFormLoaded = False End Function

@Arto 0 / 0 / 0 Регистрация: 05.04.2007 Сообщений: 55
	06.06.2007, 00:28
	Если заранее известно о какой форме идет речь , то можно и так В модуле описываешь переменную, например FormActiv Затем в событие Activate нужной формы прописываешь Private Sub Form_Activate() FormActiv = True End Sub и в событие Unload следующее Private Sub Form_Unload(Cancel As Integer) FormActiv = False End Sub и теперь где нужно проверяешь флаг если он в True значит форма загружена URL: www.armentel.com/avb 0

VladK
	06.06.2007, 07:31
	4 Arto: А почему вы используете Form_Activate а не Form_Load?

@Arto 0 / 0 / 0 Регистрация: 05.04.2007 Сообщений: 55
	07.06.2007, 23:32
	Это зависит от того как Вы выгружаете форму , если Unload form1 то разницы нет, если Form1.Hide, то разница есть, ибо в этом случае Form_Load не срабатывает, а Activate срабатывает, правда в этом случае так же надо учесть, что не сраьатывает Unload_Form и флаг надо сбрасывать до Form1.Hide, а не в Unload Удачи 0

VladK
	08.06.2007, 08:35
	Arto, Большое спасибо за разъяснения. Все все-таки иначе. Метод Hide форму не выгружает, это делает команда Unload. А раз так, то сбрасывание флага в Form1.Hide недопустимо. Событие Activate никак не связано с загрузкой формы - оно просто активизирует уже загруженную в событии Load форму. А раз так, то поднятие флага в Form1_Activate тоже неверно. Флаг тогда будет ненужно подниматься каждый раз когда активизируется форма, однажды уже загруженная в событии Load. Флаг надо поднимать в Form1.Load и опускать в Form1.Unload. Между тем Ваше предложение использовать флаг как таковой мне по душе, т.к. просто и лаконично. Успехов

VladK
	08.06.2007, 08:41
	Прошу прощения за опечатку в предпоследнем предложении. Флаг надо поднимать в событии Form1_Load и опускать в событии Form1_Unload.