Programación General > Visual Basic 6.0 e inferiores

 Al Cerrar El Mdi, Que Queden Cerrados Todos

(1/1)

jeobel:
Quiero por ejemplo que al cerrar el MDI en el evento unload me cierre
todos los child que eventulmente podrian no haberse cerrado de forma
incorrecta por un estilo  modeless o alguno que se dejo sin cerrar y
que deja en el administrador de tarea de window abierto el ejecutable aunque
se cierre aparentemente, ESTA ES MI IDEA
 
    Dim frm as form
    for each frm in MDI
    If TypeOf  frm is MDI then
         unload frm
    End if
   NEXT
 el error q me manda es "que se requiere un objeto"  que es frm
 ****
 Parecido a este
 ****
Sub Limpiar(ByVal frm As Form)
     For Each c In frm
     If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
           c.Text = ""
    End If
    If TypeOf c Is OptionButton Or TypeOf c Is CheckBox Then
           c.Value = False
        End If
    Next
End Sub

es q utilizo esto en el evento MDI UNLOAD

 Unload Me
 Unload BuscarExamen
 Unload BuscarMedicos
 Unload formResultadosBaar
 Unload formResultadosCultivoyAntibi
 Unload ListaExamenes
 Unload ListaPatologia
 Unload MedicosActivos
 Unload Login
 Unload MedicosActivos
 etc, etc que resulve pero no es lo optimo
 denme otra idea

cpmario:

--- Código: Text ---Sub UnloadAllForms()   Dim frm As Integer   frm = Forms.Count    Do While frm > 0      Unload Forms(frm - 1)      If frm = Forms.Count Then Exit Do      frm = frm - 1   LoopEnd Sub  :comp:

Navegación

[0] Índice de Mensajes