Ocultar un formulario sin descargarlo de memoria.

[bubu54]

Saludos, tengo un formulario que es un poco lento en cargar, lo que hago es preparar un CommandButton "CERRAR" que hace Me.Hide.

Pero si el usuario usa el boton "x" del formulario para salir, no se como controlar que no lo descarge de memoria, solo quiero ocultarlo.

Gracias,

[dogduck]

http://www.vb-mundo.com/truco_progra...mover,-etc.htm

Formularios que no se cierran con el botón (x), no se pueden mover, etc

Si eliminamos opciones del menú de control (-) de un formulario impedimos que esas mismas acciones se puedan realizar de otras formas. Si quitamos la opción Cerrar el botón de cerrar el formulario (x) quedará dehabilitado. Si eliminamos la opción Mover el formulario no se podrá mover arratrándolo por la barra de título, etc.

Veamos un ejemplo de cómo impedir el funcionamiento del botón Cerrar de la barra de título :

Declaramos en un módulo :



Codigo:--------------------------------------------------------------------------------
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib `user32` _
(ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib `user32` _
(ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib `user32` _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib `user32` _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long


--------------------------------------------------------------------------------


Y para deshabilitar el botón Cerrar eliminamos la opción Cerrar del menú :



Codigo:--------------------------------------------------------------------------------
Dim hMenu As Long
Dim menuItemCount As Long
`Obtenemos un handle al menú de sistema del formulario
hMenu = GetSystemMenu(Me.hwnd, 0)
If hMenu Then
`Obtenemos el número de elementos del menú
menuItemCount = GetMenuItemCount(hMenu)
`Eliminamos el elemento Cerrar, que es el último
`Los elemento empiezan a numerarse en cero por lo que el
`último es menuItemCount - 1
Call RemoveMenu(hMenu, menuItemCount - 1, _
MF_REMOVE Or MF_BYPOSITION)
`Eliminamos la barra de separación que hay justo antes de la opción Cerrar
Call RemoveMenu(hMenu, menuItemCount - 2, _
MF_REMOVE Or MF_BYPOSITION)
`Forzamos el redibujado del menú. Esto refresca la barra de título
`y deja la X deshabilitada
Call DrawMenuBar(Me.hwnd)
End If

[bubu54]

Ya, pero es que si me interesa que el formulario se pueda cerrar mediante el boton cerrar.

[vbx3m]

Iniciado por bubu54

Saludos, tengo un formulario que es un poco lento en cargar, lo que hago es preparar un CommandButton "CERRAR" que hace Me.Hide.

Pero si el usuario usa el boton "x" del formulario para salir, no se como controlar que no lo descarge de memoria, solo quiero ocultarlo.

Gracias,

Prueba con esto:

Código:

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

[bubu54]

Iniciado por vbx3m

Prueba con esto:

Código:

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

Casi, eso me hace, efectivamente lo que busco, pero como el formulario esta dentro de otro Formulario MDI, lo que ocurre es que ahora no me deja cerrar el MDI.

Edito, mira lo que he hecho:

En el formulario MDI:

Código:

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub

Y ya funciona.

[nanomartin]

No me funciona.

Será porque uso VB.NET 2003 ?

Puntualmente me da error de código en (Me.hwnd) y el tip me dice
" 'Me.hwnd' no es un miembro de "miproyecto.miformulario" "

Ayuda por favor!

Thx in advance

PD: el ejemplo de vbx3m no hizo "ni múu".

[[EX3]]

Iniciado por nanomartin

No me funciona.

Será porque uso VB.NET 2003 ?

Si especificarais la version de Visual Basic que usais cuando exponeis vuestras duda seria mas facil orientaros

En VB.NET en vez de hWnd busca Handle, y el codigo equivalente al de vbx3m seria este:

Código:

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
        Me.Hide()
    End Sub

Salu2...

[nanomartin]

Si especificarais la version de Visual Basic que usais cuando exponeis vuestras duda seria mas facil orientaros

Y yo qué dije?

Será porque uso VB.NET 2003 ?

Y el código siguió dando error en el (Me.Handle).
((Un objeto de tipo 'IntPr..' no se puede convertir en '2' ))

Bueno, como sea, lo solucioné desde el panel de propiedades con la propiedad CONTROLBOX = False
(no entiendo cómo no lo encontré antes )

Gracias, saludos!!

[aMaldonadoC]

puedes poner, en el cuadro deprobpiedades del Form, a la propiedad ControlBox = False y hará que no aparezcan los botones de arriba que cierran minimizan y maximizan.

[nanomartin]

Quiero aclarar que SIEMPRE y EN TODO MOMENTO agradezco a quien emita una respuesta, así como trato de hacerlo yo también, pero no se embalen y lean todo el thread!!
Yo dije:

Bueno, como sea, lo solucioné desde el panel de propiedades con la propiedad CONTROLBOX = False
(no entiendo cómo no lo encontré antes )

Maldonado dice:

puedes poner, en el cuadro deprobpiedades del Form, a la propiedad ControlBox = False y hará que no aparezcan los botones de arriba que cierran minimizan y maximizan.

Creo que esto corresponde más a moderadores que a mi.

Igualmente, saludos a todos y gracias. Hagamos una mejor comunidad!

[willy6666]

si no quieres que tu formulario se cierre simplmente tienes que controlar el evento que se produce.
FormClosing: este evento se produse cuendo el formulario se esta cerrando;
FormClosed: y este otro evento se produce dèspues que el formulario se a serrado.
como o especificas el lenguaje pondre dos ejemplos y c# y el otro vb.net tanto en 2003 como en 2005 es similar
c#
delegado

Código:

private void InitializeComponent()
{

this.FormClosing += new System.Windows.Forms.FormClosingEventHandler(this.Closing_evento);

}

Código:

 private void Closing_evento(object sender, FormClosingEventArgs e)
    {
      //con este codigo el boton si se va a poder cerrar con el boton cerrar
       if (MessageBox.Show("esta seguro que desea salir", "", MessageBoxButtons.YesNo) == DialogResult.No)
           {
            e.Cancel = true; //canselas el evento
            this.Hide();
            }
     }

ten en cuenta que el enlace del delegado con el evento va en el componente de inicialisacion

vb

Código:

 Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
        If MessageBox.Show("esta seguro que desea salir", "", MessageBoxButtons.YesNo) = DialogResult.No Then
            e.Cancel = True
            Me.Hide()
        End If
    End Sub

en vb es mucho mas sencillo, puedes usas el evento sin nesesidad del delegado

o tambien puedes usar ControlBox=false, pero el valor de la propiedad vas a perder de vista al boton max , min y no vas a poder cerrar el formulario

saludos a todo y si tienes alguna duda y esta denttro de mis pocibilidades ayudarte no dudes en comunicarate con migo [email protected]

[[EX3]]

Iniciado por nanomartin

Y yo qué dije?

Perdon, te confundi con el autor inicial del thread, bubu54, el no indico version del lenguaje.

Iniciado por nanomartin

Y el código siguió dando error en el (Me.Handle).
((Un objeto de tipo 'IntPr..' no se puede convertir en '2' ))

El fallo esta en el codigo al ser para VB 6.0 declara los enteros de 4 bytes como Long cuando en .NET son Integer. Cambiando eso te funciona, y por cierto, no habia que dar tanta vuelta para anular visualmente el boton, con menos codigo se consigue igual:

Código:

Public Class Form1
    Private Const MF_BYPOSITION = &H400
    Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
    Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RemoveMenu(GetSystemMenu(Me.Handle, 0), 6, MF_BYPOSITION)
    End Sub
End Class 

Iniciado por nanomartin

Bueno, como sea, lo solucioné desde el panel de propiedades con la propiedad CONTROLBOX = False
(no entiendo cómo no lo encontré antes )

Yo cuando leo alguien que pide que se deshabilite el boton de cerrar de la ventana yo entiendo esto: y no esto , sobre todo por que mucha gente busca hacer lo primero por... "estetica" llamemoslo. En otras palabras, que al sonar tan ovio el tema y que no utilizabas la propiedad ControlBox hemos tirado por el metodo "rebuscado"

Iniciado por willy6666

ten en cuenta que el enlace del delegado con el evento va en el componente de inicialisacion
(...)
en vb es mucho mas sencillo, puedes usas el evento sin nesesidad del delegado

No hace falta ponerse a programar el delegado para el evento ni en C# ni en VB.NET. Desde el panel de propiedades del entorno de desarrollo seleccionas la vista de eventos del formulario (el icono del rayo) y buscas y haces doble click sobre FormClosing en este caso, eso ya te genera el delegado y la declaracion del evento para que añadas codigo.

Salu2...

[nanomartin]

Excelente cátedra EX3 ! (aplausos)
Muy buena la explicación para ambos mensajes, el mio y el de Willy.

Ésta es la gente que enriquece el foro.

Buena la actitud de dar el mail de Willy... te tendré en cuenta.
Verdaderamente que no seré un gran aporte, pero por si al alguien le interesa el mio es [email protected]

Saludos a todos!

[willy6666]

gracias [EX3] por dar una forma mas sencilla de usar eventos y delegados pero es es una forma mucho mas sencilla
saludos