Registrarse

[snake_kdha]

hola amigos del foro tengo un pequeño problema tengo un programa que tiene un formulario MDI principal y varios formularios normales y quiero que el MDI cargue los otros form dentro de el que solo pueda tener acceso a otro form hasta que haya cerrado el que esta en ejecucion

les agradecere su ayuda

[Slasher-K]

La siguiente función pude usarse para saber si un formulario está cargado o no. Usala con el nombre del formulario que quieras verficar, si está cargado que no cargue el otro de lo contrario que lo cargue.

Código:

Function IsLoaded(FormName As String) As Boolean
  On Error Resume Next
  
      Dim csForm

  For Each csForm In Forms
    If StrComp(csForm.Name, FormName, vbTextCompare) = 0 Then
      IsLoaded = True
      
      Exit For
    End If
  Next
End Function

Saludos.