Numero de MDIChilds abiertos

Public Function TotalFormas() as Integer
dim m_Forma as Form
TotalFormas=0
For Each m_Forma in Forms
' Esto es para que no te tome en cuenta el formulario MDI
asumiendo que la funcion
' esta ejecutandose dentro del MDI
if m_forma.Name<>Me.Name
If m_Forma.MDIChild = True Then
TotalFormas=TotalFormas + 1
End If
End If
next m_Forma
End Function



Saludos

Nohel Hernandez
Caracas - Venezuela

(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro

Bueno...
Forms.Count guarda el numero de formas abiertas.
Si tu aplicacion es tipo MDI y tienes 5 "childs" abiertos,
entonces Forms.Count seria 6 ( 5 MDI childs + 1 MDI main )

Esto asume que no tengas otras formas que no sean MDIChild
abiertas...

O siendo mas minucioso el proceso...

On Error Resume Next
Dim intX As Integer

Dim xfrm As Form

For Each xfrm In Forms
If xfrm.MDIChild Then
If Err.Number = 0 Then
intX = intX + 1
Else
Err.Clear
End If
End If
Next
MsgBox intX

Aunque este ultimo no me convence del todo, pues hay una mejor
manera de saber si la forma tiene la propiedad MDIChild, pero en
este momento no puedo buscar mas.

Suerte!

Saga

"Mr. Fale" wrote in message
news:

Hola Lista,

Como puedo saber el numero de MDICHilds que tengo abiertos en la
aplicacion???
(Me interesa el numero de MDICHilds totales ya que tengo de distintos
forms).

Existe algun comando??? o lo tengo que ir sumando manualmente??? (cada vez
que abro uno sumar en una variable numerica).

Muchisimas gracias.


JJ.
http://www.sinfirma.tk

"Mr. Fale" escribió:

Como puedo saber el numero de MDICHilds que tengo abiertos en la
aplicacion???
(Me interesa el numero de MDICHilds totales ya que tengo de distintos
forms).

Utilizando la colección «Forms»:

Dim frm As Form
Dim c As Integer

For Each frm In Forms
' Mientras que no sea el formulario MDIForm
If Not TypeOf frm Is MDIForm Then
' Si la propiedad «MDIChild» es «True»
' el formulario será un formulario secundario MDI
If frm.MDIChild = True Then c = c + 1
End If
Next

MsgBox "Nº de MDIChild abiertos: " & c

Un saludo.

Enrique Martínez
[MS MVP - VB]