Открыта ли форма?

[sergey-911]

Доброго времени уважаемые. Прошу прощения за наивный вопрос!
Нужно узнать, загружена (открыта) ли форма?

Проверка

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


If frmPersonalADD.Visible = False Then


, соответственно, приводит к открытию формы, а не к желаемому результату!

Собственно суть задачи...
Есть форма1 с таблицей. Нажимаем "Добавить запись в таблице". Запускаем DoEvents (ожидание) на этой форме1, пока открыта форма2 для внесения изменений в БД. Как только форма2 закрывается, форма1 вносит изменения из БД в таблицу.

Короче, надо узнать, форма2 видна или нет?

Делаю сие событие через переменную "ADD ", но это неправильно...

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


'Форма1 (с таблицей) - "frmPersonal"
'-------------------------------------------------------
Option Explicit
Public ADD As Boolean   'Ожидание завершения формы
'-------------------------------------------------------
Private Sub mnuADD_Click()
On Error GoTo Er
   
    Consts.ID = Empty
    'Открываем форму для внесения изменений в БД
    frmPersonalADD.Show
    frmPersonalADD.ZOrder
    frmPersonalADD.Caption = "Персонал: Новый"
   
    'V Ожидание завершения формы-----------------------
    ADD = True
    Do
        If ADD = False Then
            'Приложение завершается!
            Exit Do
        End If
        DoEvents
    Loop While True
    'A Ожидание завершения формы-----------------------
   
    'Обновление набора записей в таблице
    ...
    ...
    ...
   
Exit Sub
Er:
Screen.MousePointer = vbDefault
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error"
End Sub


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


'Форма2 (для добавления информации в БД) - "frmPersonalADD"
'-------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Er

    'Завершаем ожидание цикла в предыдущей форме
    frmPersonal.ADD = False
   
Exit Sub
Er:
Screen.MousePointer = vbDefault
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error"
End Sub


P.S. Обе формы чилдреновские[/syntax]

[sergey-911]

Заодно ещё вопрос, как узнать список всех открытых форм?

Однажды пример попадался на глаза. Всё перерыл, не нашёл

[DirectXManiac]

sergey-911
1. В аттаче пример!
2. EnumWindows

[sergey-911]

Спасибо DirectXManiac!

[DirectXManiac]

sergey-911
Незашто
2. Посмотри в API-Guide.

[sergey-911]

Прошу прощения, сразу не проверил на чилдреновских формах.
Данный пример корректно работает, если формы не чилдреновские. В противном случае, код

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


Private Sub Timer1_Timer()
    B = Form2.Visible
    If B Then
        Me.Circle (Rnd * 5000, Rnd * 5000), 50
    End If
End Sub


, приведенный в примере DirectXManiac-а, вызывает открытие формы2 вместо проверки на открытие.
В общем, предложенный вариант не подходит в данном случае. Нужно другое решение.
В аттаче пример данной проблемы!

[dr.MIG]

А нельзя устанавливать значение какой-нибудь Boolean-переменной каждый раз когда форма делается видимой в True, а когда невидимой - в False, а затем проверять значение этой переменной?

[sergey-911]

Можно. Я так и делаю. См. внимательно первый пример

Public ADD As Boolean 'Ожидание завершения формы

Но так неудобно, т.к. форм таких очень много, и каждая из них вызывает ещё кучу форм... Вот и хотелось без лишних переменных...
Неужели нельзя у дочерних форм узнать, открыты они, или нет...?

[DirectXManiac]

sergey-911
Можно! Если правильно их создавать то можно. Если создавать
Dim newform As New frmADD
newform.Show
Создай такой массив и при создании нового окна увеличивай массив на 1. Потом проверяй из массив нужное тебе окно! Можно вообще коллекцией - но это изврат ИМХО!

[sergey-911]

DirectXManiac
Предложенный тобой способ

Dim newform As New frmADD
newform.Show

мне не подходит. Есть свои особенности. А чем способ открытия форм

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

    frmPersonalADD.Show
    frmPersonalADD.ZOrder


не правильный?
Но это так, к топику не относится.
DirectXManiac
, подскажи, как коллекцией? У меня же не массив форм?

[EUGY]

'Может поможет?
Private Function IsFormaObject(frmstr As String) As Boolean

For x = 0 To Forms.Count - 1
If Forms(x).Name = frmstr Then
IsFormaObject = True
Exit Function
End if
Next
IsFormaObject = False
End Function
...
Debug.Print IsFormaObject("frmPersonalADD")
...

[sergey-911]

EUGY
Спасибо тебе БОЛЬШУЩЕЕ!
РАБОТАЕТ!

[alibek]

2 EUGY

Dim frm1 As frmPersonalADD
Set frm1 = New frmPersonalADD
Load frm1
...
Dim frm2 As frmPersonalADD
Set frm2 = New frmPersonalADD
Load frm2

[sergey-911]

Не alibek, в данном случае, пользователю не нужно открывать две одинаковые формы.
Приложение имеет аксесовский интерфейс, и, когда мы щелкоем по иконке, фссоциируемой с формой, должна загрузиться именно нужная форма, если она не загружена, а если загруженф, то отобразиться.
Поэтому, делаю так:

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

frmPersonalADD.Show
frmPersonalADD.ZOrder


http://bbs.vbstreets.ru/viewtopic.php?t=26261

[sergey-911]

Всеь спасибо за помощь

[Vi]

Так может так переделать?

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

Private Function IsFormaObject(ByVal frm As Object) As Boolean
  Dim frmInForms As Object ' а если вместо Object использовать Form?

  For Each frmInForms In Forms
    If frmInForms Is frm Then

      IsFormaObject = True
      Exit Function

    End if
  Next
End Function

[EUGY]

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

[sergey-911]

Точно EUGY!