Отследить наличие экземпляра MdiChildren

[dr.MIG]

Как оптимальнее решить такую задачу? Есть MDI-форма. На ней есть некий TreeView при щелчке на его элементе создаётся новая форма следующим образом:

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


Dim frmChild As New frmJ()
frmChild.MdiParent = Me
frmChildShow()


Как сделать так, что бы при повторном щелчке на элементе TreeView при наличии открытой формы, соответствующей этому элементу, не создавалась новая форма, а активировалась бы уже созданная?

[anvg]

dr.MIG
Ввести общий флаг ExistsChild
В событие OnLoad frmChild устанавливает его, а в Close сбрасывает, тогда

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

Private frmChild As frmJ 'переменная в коде MDI-форме

'В коде при щелчке на TreeView
If ExistsChild Then
   '...
   frmChild.Activate
Else
   frmChild = New frmJ()
   '...
End If


[dr.MIG]

Можно поподробнее -- не очень понял как в коде MDI-формы флаг ExistsChild будет соотносится с конкретным экземпляром Child-формы... Общий флаг ExistsChild куда вынести? Ведь если его объявить в модуле MDI-формы, то это бессмысленно. Если в модуле frmJ, то в коде, в модуле MDI-формы его не видно. Поэтому, пожалуйста поподробнее -- где и как его объявить?

[Ramzes]

Я создавал метод

Private function GetMdiChild (frmText as string) as Form

End Function

в этом методе перебирал формы из свойства Me.MdiChildren


В моем случае я искал по тексту, ты можешь искать по чему-то другому

[dr.MIG]

Сделал так же... Просто думал, что есть какой-то более красивый способ.

[anvg]

dr.MIG
В Вашем вопросе упоминалась единственная форма. Поэтому я и предложил флаг наличия дочерней форме, его достаточно объявить в MDI-форме с доступом Friend, чтобы он был виден из дочерней MyMDIform.ExistsChild. Можно даже и проще объявить frmChild доступ Friend. Тогда дочерняя форма при закрытии устанавливает ссылку в Nothing и проверка будет на Nothing.
Если с TreeView должно быть связано несколько дочерних форм (к сожалению, конкретно предложить, не зная ваших задач, что-то сложно) можно воспользоваться тем, что TreeNode имеет свойство Tag. Тогда можно будет использовать его в качестве определения наличия дочерней формы. Если Tag Is Nothing, то создать дочернюю форму, определив для неё конструктор, в котором передаётся ссылка на этот TreeNode, чтобы дочерняя форма при закрытии сбрасывала его в Nothing. Если же TreeNode.Tag IsNot Nothing, то приводим его к типу дочерней формы и делаем то, что нам нужно.