Как узнать загружена ли уже форма или нет?

[BorisSS]

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

Спасибо.

[ANDLL]

Объяви локальную переменную и в form_load устанавливай ее в true, а в form_unload в false.

[Cyrax]

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

If Form1 Is Nothing Then
  MsgBox "Форма не загружена"
Else
  MsgBox "Форма загружена"
End If

[alibek]

Cyrax, так то оно так, но иногда глюки бывают.
Я, чтобы стопроцентно это знать, делаю следующим образом. В вызывающей форме есть локальная переменная (к примеру fFormOpened) и две Friend-процедуры, ChildFormOpen и ChildFormClose; в первой эта переменная устанавливается, во второй сбрасывается. А в вызываемой форме при Form_Load вызывается frmParent.ChildFormOpen, а при Form_Unload вызывается frmParent.ChildFormClose. Коряво и громоздко, зато дубовая надежность

[Cyrax]

Cyrax, так то оно так, но иногда глюки бывают.

может у меня с компилятором что-то не то? я проблем не встречал... можешь ситуацию описать, при которой простая проверка на Nothing не сработает?

[GSerg]

Учи матчасть. Про объявление объектных переменных разными способами.

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

Option Explicit

Private Sub Form_Load()
  Dim f2 As New Form1
 
  Me.AutoRedraw = True
 
  Set f2 = Nothing
  Me.Print f2 Is Nothing
End Sub

[Cyrax]

Учи матчасть. Про объявление объектных переменных разными способами.

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

Option Explicit

Private Sub Form_Load()
  Dim f2 As New Form1
 
  Me.AutoRedraw = True
 
  Set f2 = Nothing
  Me.Print f2 Is Nothing
End Sub

согласен... но ведь тут не никакого глюка... и то, что

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

f2 Is Nothing

вернет True совершенно логично...
и естественно, что при использовании MDI-итерфейса (когда и используется, приведенный выше способ создания дочерних окон) нужно использовать что-то более сложное, нежели простая проверка на Nothing

но судя по вопросу в начале топика, вполне хватит и простой проверки

[GSerg]

Ты хоть бы проверил...
f2 is nothing возвращает false и будет возвращать его всегда.

[Cyrax]

только не помдорами...