cerrar form en visual.net abierto desde mdi

[aqtm22]

Buenas, estoy generando una aplicación que carga inicialmente un form mdi(Principal), al cargar se abre un form(clientes) con esta instrucción: Dim Fclientes as new clientes
. esto me lo hace bien, el problema es que no me lo reconoce para cerrarlo ni para hide, asias de antemano....

[fredy666]

Comprueba que el nombre del formulario "clientes" sea correcto, ya que Fcliente.Hide o FClientes.close() deberia de funcionar bien.

[Baco_]

una de las posibilidades es que el formulario mdi debe ser de tipo contenedor para que asi albergue a los otros el frm debes declaralo como :
Fcliente.mdiparent = me
Fcliente.show()
y despues de estas declaraciones puedes cerrar de manera correcta los formularios que vendrian a ser hijos del mdi
ojala te funcione

[chcma]

Mmm, creo k no es asi la kosa ....

Debes crear una clase contenedora, y cada vez que hagas una instancia de un formulario, meterlo en esta clase, con un unico identificador.

Cuando quieras cerrar ese formulario, usa esta clase para conseguir la instancia creada y cerrarlo.

Si haces en un menu del MDI:
Dim frmClientes as new FrmClientes
frmClientes.MdiParent = me
frmClientes.Show()

Cada vez que des a ese botón te creará uan isntancia . . .

Lo que debes hacer es controlar, para k solo exista una instancia de ese formulario, y asi poder controlarla y trabajar con ella.

[juanpablomonte]

si lo que quieres es cerrar el formulario ponle un boton con la instruccion me.close()
y listo no es mas que eso...

ahora no se si es posible que desde el mdicontainer puedas cerrar algun form abierto...
creo que puedes hacerlo por medio de del system.windows.forms. y algun enriedo por ahi...

[chcma]

Para cerrar un formulario desde otro formulario hay dos maneras:

Una, creando una variable publica, en el formulario en el k abres el hijo:

Dim frmHijo as FrmHijo
Dim objFrmHijo as new FrmHijo
frmHijo = objFrmHijo

objFrmHijo.show
frmHijo.Close()


Y otra forma, que es lo más ídoneo es comprobando si existe una instancia de ese formulario:

Dim objFrmHijo as new FrmHijo
objManejador.Agrega(objFrmHijo, "objFrmHijo")

if objManejador.Existe("objFrmHijo") then
objManejador.Cierra("objFrmHijo")
End If


No sé si hay mas formas o si no son las más optimas, pero son las que yo he usando en los últimos proyectos en los que hemos trabajado.

Saludos y ya me comentarán.

[aqtm22]

gracias a todos por la ayuda que me estais dando, la duda que tengo realmente es que si yo creo un form con "Dim frmHijo As New clientes" como lo cierro desde el mdicontainer, lo logico seria frmHijo.Close(), o en su defecto por logica Me.frmHijo.Close(). eso es realmente lo que no comprendo y no consigo hacer, Pd: tengo claro que con un close desde dentro de este puedo cerrarlo pero lo que quiero conseguir es cerrarlo desde el MDI. asias a tos...

[Jose_minglein2]

Eso es porque declaras el frmHijo en un metodo, declaro como variable global:

Dim frmHijo as clientes

private sub abrir()
if frmHijo is nothing
frmHijo.close()
end if
end sub

private sub cerrar()
if not frmHijo is nothing
frmHijo.close()
end if
end sub

así de facil

[aqtm22]

bueno, despues de darle las vueltas ya lo he solucionado, os lo pongo aqui para que no os pase a ninguno:

el codigo que carga el form:

Dim frmHijo As New frmPadre
frmHijo.MdiParent = Me
frmHijo.Show()

el que lo cierra desde el mdi principal:

Dim frmHijo As frmPadre = Me.ActiveMdiChild
If Not frmHijo Is Nothing Then
frmHijo.Close()
End If

y ya esta...
gracias a todos de todas formas si no esta claro me lo comentais que yo he aprendido bastante sobre esto, je je je ej je

[chcma]

Toma tio, sigue asi, sin pelearte con el código . . . .

Código:

Public Class Form1
    Inherits System.Windows.Forms.Form

#CODIGO GENERADO

    Private objFrmClientes As frmClientes

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If objFrmClientes Is Nothing Then
            objFrmClientes = New frmClientes
            objFrmClientes.MdiParent = Me
            objFrmClientes.Show()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not objFrmClientes Is Nothing Then
            objFrmClientes.Close()
            objFrmClientes = Nothing
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
    End Sub
End Class