Realizar proceso solo si un form esta abierto??

[hunter18]

Tengo 10 formularios
En el form10 tengo un boton, si lo preciono debe enviar un mensaje ok si todos los demas form's estan cerrados.

Si alguno esta abierto debe enviar un mensaje "Debe cerrar todos lo formularios antes de realizar este proceso"

Como realizo esta accion???

[David]

Puedes usar Forms.Count (devuelve el número de ventanas abiertas):

Código vb:

If Forms.Count > 1 Then
     MsgBox "Debe cerrar las ventanas antes de continuar"
     Exit Sub 'Salir del procedimiento
End If
 

[twelve]

Hola que tal,,,


Usa: esta función


' Función para validar los formularios activos antes de salir de la aplicación
Public Function FormularioActivo(NmbFormulario As String) As Boolean
Dim Formulario As Form
For Each Formulario In Forms
If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
FormularioActivo = True
Exit For
End If
Next
End Function

'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::
Quedaria así en el evento a utilizar

If FormularioActivo("frmRegistrosVehiculos") Then
MensajeCerrar = "¿Cierre todos los formularios antes de salir."
Stylo = vbInformation + vbOKOnly
Title = "Mensaje del Sistema"
BoxCerrar = MsgBox(MensajeCerrar, Stylo, Title)
If BoxCerrar <> vbOKOnly Then
frmRegistrosVehiculos.Show
Exit Sub
End If