Повторное нажатие на кнопку панели инструментов

[Чудик]

Хотел сделать так, чтобы при повторном нажатии на кнопке панели инстументов открытое дочернее окно активизировалось (кнопка на паанели служит именно для открытия определенной дочерней формы). До сих пор просто при таком повторном нажатии ничего не происходило.
Сделал так

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

Private Function CheckWindow(NameForm As String)
Dim frm As Form
For Each frm In Forms
  If frm.name = NameForm Then
    CheckWindow(NameForm) = 1
  End If
Next frm
End Function


и так

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

   Case "ProductQuery"
            NameForm = "frmProductQuery"
            If CheckWindow(NameForm) = 1 Then
                  frmProductQuery.SetFocus
                  Exit Sub
            End If
            Load frmProductQuery
            frmProductQuery.Show



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

[tyomitch]

Не могу не прокомментировать, что в VB есть тип данных Boolean, который здесь подходит гораздо больше, чем Variant...

По топику ничего не подскажу

[Amed]

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

[Чудик]

Про Boolean согласен.
Про создание логов для выполняемых операций не имею представления. Можно как-то раскрыть суть?

[Amed]

Самое простое.

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

Private Sub WriteLog(strLogString As String)
Dim FF As Long
FF = FreeFile
Open "C:\a.log" For Append As #FF
Print #FF, Now & strLogString
Close #FF
End Sub

А в приведенном коде вставить после каждой строки запись лога:

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

   Case "ProductQuery"
            NameForm = "frmProductQuery"
            WriteLog "Set NameForm"
            If CheckWindow(NameForm) = 1 Then
                 WriteLog "Checked window: " & NameForm
                  frmProductQuery.SetFocus
                  WriteLog "SetFocus on " &  NameForm
                  Exit Sub
            End If
            Load frmProductQuery
            WriteLog "Loaded " &  NameForm
            frmProductQuery.Show
            WriteLog "Shown " & NameForm


И проанализировать файл на выходе.

[Чудик]

Ерунда какая-то!
Сделал как посоветовал, все работает, правда алгоритм выполняется 49 секунд!
При более подробном анализе увидел что при операции присвоения функции CheckWindow значения равного единице программа перескакивает на строку

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

For Each frm In Forms

что приводит к зацикливанию программы на эти 49 секунд, после чего все-таки прога выходит из цикла и окно активируется!
Как результат появились такие вопросы:
1. почему происходит перескок?
2. почему прога работает, в то время как без произведения записей в лог она просто закрывается на каком-то моменте?

[Amed]

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

Private Function CheckWindow(NameForm As String)
Dim frm As Form
For Each frm In Forms
If frm.name = NameForm Then
CheckWindow(NameForm) = 1
Exit Function
End If
Next frm
End Function

Сколько форм в проекте? Модальные есть? MDI-формы есть?

Закрываться может, потому что какое-то окно нельзя акивизировать, например.

[Чудик]

Там, где ты указал Exit Function я на время тестирования поставил Exit For. Но и Exit Function и Exit For ничего не меняет - зацикливание на 49 секунд имеет место и не проходит.
Прога имеет MDI форму и несколько дочерних форм (более 10). в режиме моделирования модальных форм не создавал.

[tyomitch]

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

Private Function CheckWindow(NameForm As String)
Dim frm As Form
For Each frm In Forms
If frm.name = NameForm Then
CheckWindow(NameForm) = 1
Exit Function
End If
Next frm
End Function

Щелбан за невнимательность.
Рассмотри внимательно, что делает строка: "CheckWindow(NameForm) = 1"
А вылетает прога, если кто ещё не догадался, от переполнения стека.

ЗЫ: если бы вместо Варинатов были Булеаны, то ничего этого не было бы.

[Amed]

Точно. Щелбан, значит?
Афигеть, дайте два.

[Чудик]

tyomitch, ты прав ....
Надо не так

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

CheckWindow(NameForm) = 1

а так

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

CheckWindow = 1

Спасибо.