Como saber si un formulario esta abierto

ironfx
09 de Octubre del 2004
Hola:

Alguien puede decirme como comprobar si un formulario x esta abierto???

Gracias

Bartolom
09 de Octubre del 2004
El procedimiento IsLoadForm retorna un bolean que indica si el formulario solicitado por su nombre se encuentra abierto. Opcionalmente se puede hacer activo si se encuentra en memoria. La función es útil en interfaces MDI.

Public Function IsLoadForm(ByVal FormCaption As String, Optional Active As Variant) As Boolean
Dim rtn As Integer, i As Integer
rtn = False
Name = LCase(FormCaption)
Do Until i > Forms.Count - 1 Or rtn
If LCase(Forms(i).Caption) = FormCaption Then rtn = True
i = i + 1
Loop
If rtn Then
If Not IsMissing(Active) Then
If Active Then
Forms(i - 1).WindowState = vbNormal
End If
End If
End If
IsLoadForm = rtn
End Function

Saludos!
Bartolom
Chile

ironfx
09 de Octubre del 2004
Excelente!!!!
el parametro active es para poner en primer plano dicho formulario. Es correcto??

Saludos y gracias a Bartolom

Mexico