SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Vortice en Martes 22 de Abril de 2008, 16:10

Título: Cerrar Un Form A Travez De Codigo
Publicado por: Vortice en Martes 22 de Abril de 2008, 16:10

Camaradas, espero y estén bien y puedan echarme una mano….

Lo que necesito yo lo veo simple, pero no es tan simple parece…

Tengo una aplicación con diversos formularios y un form padre.

Cuando llamo a un form x lo hago así

Dim form_X as new form_Z
Form _X.show()

Lo que yo quiero es q al hacer esto los form’s q estén abiertos detrás de este nuevo form q voy abrir se cierren, excepto el form padre, lo he intentado así.

Form_anterior.close()
Form_anterior.hide()

Dim form_X as new form_Z
Form _X.show()

Y el form_anterior no lo cierra a q se deberá esto, espero puedan ayudarme camaradas….

De antemano gracias.

Título: Re: Cerrar Un Form A Travez De Codigo
Publicado por: aghsoft en Martes 22 de Abril de 2008, 20:11

haz un recorrido por los fomularios abiertos por la aplicacion y cierra los que no te interese

Título: Re: Cerrar Un Form A Travez De Codigo
Publicado por: Vortice en Martes 22 de Abril de 2008, 20:34

gracias.....

por tu aporte

Título: Re: Cerrar Un Form A Travez De Codigo
Publicado por: wolf9845 en Martes 6 de Mayo de 2008, 02:20

mira yo tengo algo asi  estoy utilizando una MDI  y para cerrar ocupo este metodo

Código: Text

1.  Private Sub ismSesionCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ismSesionCerrar.Click
2.         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
3.             'CERRAMOS TODOS LOS MDIS ABIERTOS UNO POR UNO.
4.             Dim i As Integer
5.             For i = Me.MdiChildren.Length - 1 To 0 Step -1
6.                 Me.MdiChildren(i).Close()
7.             Next
8.             'SE CIERRA ALGUNA OTRA FORMA QUE SE ENCUENTRE ABIERTA.
9.             FrmActDesHumano.Close()
10.             FrmAlumno.Close()
11.             FrmAsignatura.Close()
12.             FrmCapacitacion.Close()
13.  
14.             FrmDocente.Close()
15.  
16.             FrmInstitucionServicioMedico.Close()
17.             FrmTarifasConceptoDePago.Close()
18.             FrmUsuarios.Close()
19.  
20.             DesactivarMenu()
21.             Me.ismSesionCerrar.Enabled = False
22.             Me.ismSesionIniciar.Enabled = True
23.  
24.  
25.         End If
26.     End Sub
27.  

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