If fom load

[DVV]

Как на VB: Если форма загружена

[xolod]

Можно Form_load отрабатывать.. Только зачем

[Zer]

А если окно по заголовку отловить? Найдёшь форму свою - значит загружена...

[tyomitch]

А можно проще...

A Forms collection is a collection whose elements represent each loaded form in an application.
...
You can use the Forms collection to iterate through all loaded forms in an application.

[DVV]

Я что-то не совсем понял как это делается!

[A.A.Z.]

1)

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

'Form1
Public Loaded As Boolean

Sub Form_Load()
Loaded = True
End Sub

'Form2
Sub Procedure()
If Form1.Loaded Then MsgBox "Загружена!" Else MsgBox "Не загружена!"
End Sub

2)

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

Sub Procedure()
Dim I&
For I = 0 To Forms.Count - 1
If Forms(I).Name = "Form2" Then MsgBox "Загружена!": Exit Sub
Next
MsgBox "Не загружена!"
End Sub

[Александр80]

Пример простой, но думаю поможет... Не судите строго...
Открой новый проект,добавь еще (ADD FORM) - 3 формы
и размести на FORM1
3 элемента TEXTBOX
4 кнопки

Кинь туда это код...

Option Explicit

Private Sub Command1_Click()
If Form2.Visible = True Then
Text1.Text = "Форма 2 загружена"
Else
Text1.Text = "Форма 2 не загружена"
End If

If Form3.Visible = True Then
Text2.Text = "Форма 3 загружена"
Else
Text2.Text = "Форма 3 не загружена"
End If

If Form4.Visible = True Then
Text3.Text = Форма 4 загружена"
Else
Text3.Text = Форма 4 не загружена"
End If

End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Command3_Click()
Form3.Show
End Sub

Private Sub Command4_Click()
Form4.Show
End Sub

Private Sub Form_Load()
Command1.Caption = "Проверить активность"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Form2
Unload Form3
Unload Form4
Unload Form1
End Sub

Пробуй....

Вопрос, а для чего тебе это надо...?

[Александр80]

Пока я тебе писал, тут и без меня помогли A.A.Z.

[tyomitch]

Александр80 и AAZ, вы чего-то путаете... Может быть, видимость и загруженность?
При обращении к любому свойству формы (Loaded у AAZ и Visible у Александр80), она автоматически загрузится, и результат получится неверный.

[Sedge]

При обращении к любому свойству формы (Loaded у AAZ и Visible у Александр80), она автоматически загрузится, и результат получится неверный.

Вчера возникла та же самая мысль. Специально написал небольшую программку (с глобальной переменной в Form2), чтобы проверить. На удивление - все работает... А вот с Visible действительно трабла.

[tyomitch]

Sedge, какой конкретно код у тебя работает? А то тут много уже чего напостили...

[Sedge]

Я же говорю - с public-переменной на уровне формы.

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

Option Explicit

Public bIsLoaded As Boolean

Private Sub Form_Load()
  bIsLoaded = True
End Sub

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


[tyomitch]

Угу, точно. Рулез.
Перед AAZ извиняюсь за поклёп

[DVV]

Спасибо за советы!

[Александр80]

Прошу прощения, я действительно ошибся....