Como puedo saber cuantos formularios tengo

16/11/2004 - 23:02 por Gabriel Duran | Informe spam
Hola Como saber cuantos formularios tengo abiertos y los nombres de cada uno
tengo una función que me sirve para la fomrmularios MDI

Function ExForMDIAbierto(ByVal NameF As String) As Boolean

Dim mueve As Integer

Dim ForAbierto As String

If Me.MdiChildren.Length > 0 Then

For mueve = 0 To Me.MdiChildren.Length - 1

ForAbierto = Me.MdiChildren(mueve).Name

If ForAbierto = NameF Then

ExForMDIAbierto = True

Exit Function

Else

ExForMDIAbierto = False

End If

Next

End If

End Function

LA PREGUNTA ES COMO HACERLO PARA LOS FORMULARIOS PADRES

Gracias por la ayuda
 

Leer las respuestas

#1 Polaris
17/11/2004 - 20:16 | Informe spam
Hace tiempo hice una función que devuelve true si el formulario está cargado
No es exactamente lo que quieres hacer, pero espero que puedas sacar algo de
aqui.

Public Function FormCargado(ByVal NombreForm As String) As Boolean
'Devuelve True si el form de nombre NombreForm está cargado
Dim obj As Form
For Each obj In Forms
If obj.Name = NombreForm Then
FormCargado = True
End If
Next
Set obj = Nothing
End Function

Saludos.

Preguntas similares