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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Como puedo saber que Formularios estan instanceados?

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.

Responder a este mensaje

#2 Gabriel Duran

19/11/2004 - 14:37 | Informe spam

Gracias Polaris
si que me sirve
"Polaris" <soft(arroba)ofimega.net> escribió en el mensaje
news:

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

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida