mira yo tengo algo asi estoy utilizando una MDI y para cerrar ocupo este metodo
Private Sub ismSesionCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ismSesionCerrar.Click
If MsgBox("Todas las ventanas se cerrarán" + vbCrLf + "Guarde todos sus cambios" + vbCrLf + vbCrLf + "¿DESEA CERRAR SESIÓN?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "CERRAR SESIÓN") = MsgBoxResult.Yes Then
'CERRAMOS TODOS LOS MDIS ABIERTOS UNO POR UNO.
Dim i As Integer
For i = Me.MdiChildren.Length - 1 To 0 Step -1
Me.MdiChildren(i).Close()
Next
'SE CIERRA ALGUNA OTRA FORMA QUE SE ENCUENTRE ABIERTA.
FrmActDesHumano.Close()
FrmAlumno.Close()
FrmAsignatura.Close()
FrmCapacitacion.Close()
FrmDocente.Close()
FrmInstitucionServicioMedico.Close()
FrmTarifasConceptoDePago.Close()
FrmUsuarios.Close()
DesactivarMenu()
Me.ismSesionCerrar.Enabled = False
Me.ismSesionIniciar.Enabled = True
End If
End Sub
previamente tengo para cerrar un boton exclusivo para cerrar lo form hijos
[/CODE] Private Sub tsbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSalir.Click
'EL MDI ACTIVO CREA EL DELEGADO Y APUNTA AL METODO ASIGANDO
Try
Me.ActiveMdiChild.Invoke(DelegadoMenuArchivo.CreateDelegate(GetType(DelegadoMenuArchivo), Me.ActiveMdiChild, "Salir"))
Catch ex As Exception
' MessageBox.Show("Función No Disponible", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub[CODE]
y por ultimo tengo el form hijo que deceo cerrar en este caso el de alumno
Public Sub Salir() Implements InterfaceMenuArchivo.Salir
If MsgBox("¿Está seguro de cerrar la Catálogo Alumnos?", MsgBoxStyle.Information + MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
Else
Me.Close()
End If
End Sub
el implements interfaceMenuArchivo.Salir es una clase que creo
Public Interface InterfaceMenuArchivo 'CUALQUIER CLASE QUE IMPLEMENTE ESTA INTERFACE, TOMARA ESTA INTERFACE COMO UN MOLDE, PERO
Sub Altas() 'TAMBIEN PODRA AGREGAR MAS ELEMENTOS A LA CLASE.
Sub Bajas()
Sub Guardar()
Sub Eliminar()
Sub Buscar()
Sub Recargar()
Sub Salir()
End Interface
espero y te sirva
Saludos Josue
Mostrar Mensajes
