Количество дочерних форм у MDI-формы

[Mad MasteR]

Как узнать количество дочерних форм у MDI-формы?

[Amed]

Попробуй так:


Private Sub MDIForm_Click()
'Если форма не MDI дочерняя, то при вызове свойства MDIchild - ашыпка
On Error Resume Next

Dim fr
Dim cnt As Integer 'Число форм

For Each fr In Forms
If fr.MDIChild Then cnt = cnt + 1
Next

MsgBox "Число дочерних форм: " & cnt - 1
End Sub

[seelts]

Forms.Count - кол-во форм в проекте вместе с родительской
Forms.Count-1 - то что тебе надо...
(я это проверял, когда в проекте была только одна родительская форма...)

[Amed]

2Seels: Код правильный, но представь, что в приложении есть не одна нормальная (не-MDI форма)... Тогда этот код не подойдёт...

[Mad MasteR]

Необходимо отметить, что Forms.Count возвращает общее количество форм, открытых в приложении, а мне нужно узнать только количество дочерних форм, поэтому в моем случае алгоритм Amed'а предпочтительнее.

[Amed]

А кто бы сомневался? =)

[seelts]

Необходимо отметить, что Forms.Count возвращает общее количество форм, открытых в приложении, а мне нужно узнать только количество дочерних форм, поэтому в моем случае алгоритм Amed'а предпочтительнее.

чтож, я согласен, хотя в некоторых случаях(когда точно известно, что есть только лишь одна род. форма) лучше(для меня по крайней мере) делать Формс.Каунт-1 , тк не надо устраивать цикл и объявлять переменную.