Cerrar todos los form de una vez

[javiergarciaperez]

Hola. Estoy haciendo un programa en el que un form1 abre otro form2 mediante un commandbutton. Al pulsar este botón se abre el form2 y el form1 deja de ser visible (form1.visible=false). El problema que tengo es que cuando quiero cerrar el programa pulsando la X de arriba a la derecha se cierra solo el form2, y el form1 no, por lo que aunque el programa no se vea, en el ordenador sigue estando activo.
¿Cómo puedo hacer para que al pulsar la X del form2 se cierren los dos form?
Gracias.

PD: con X de arriba a la derecha o X me refiero a:

[David]

En el evento Unload de la segunda ventana coloca:

Código:

End

O también, si solo tienes la otra ventana

Código:

Unload Form1

Una pregunta: ¿Por qué ocultas la ventana si no la vas a usar después? ¿No es mejor descargarla?

[Kakashi-kun]

Pues yo te aconsejo que al cargar la form2 cierres la form1:

Código PHP:

  Private Sub Command1_Click()
     Unload Me
     Load form2
     form2.Visible = True
End Sub 
   

Y despues cuando cierres la otra pongas:

Código PHP:

  Private Sub Command1_Click()
     Unload Me
     Load form1
     form1.Visible = True
End Sub 
   

O si quieres que al cerrar la form2 se cierre todo:

Código PHP:

  Private Sub Form_Unload(Cancel As Integer)
    Unload form2
End Sub 
   

Espero que te sirva

[javiergarciaperez]

Gracias a los dos por responder. He utilizado el código de Kakashi-kun y funciona bien.
Gracias.

[javiergarciaperez]

Ahora tengo otro problema. Necesito que el form1 quede abierto cuando le doy al botón para que abra el form2, pero si pongo otro botón en el form2 para que vuelva al form1 y que el form2 se cierre, con este código, se cierran los dos form.
Necesito que al darle a la X se cierren los dos form, pero si le doy al botón del form2 que se cierre solo el form2 y abra el form1.
Ayuda por favor.
Gracias.

[David]

En el código del botón puedes poner:

Código PHP:

  Form1.Show
Unload Me 
   

[Kakashi-kun]

Pues te pondre una lista con lo que puedes hacer:

Abrir Form2 y Form1 se queda abierta:
En Form1:

Código PHP:

  Private Sub Command1_Click()
Load Form2
Form2.Visible = True
End Sub 
   

Al Darle a un Command del Form2, se cierra la Form2, pero se abre la Form1:
En el Form2:

Código PHP:

  Private Sub Command1_Click()
Unloadme
Load Form1
Form1.Visible = True
End Sub 
   

Al pulsar X de la Form2, la Form2 se cierra, pero la Form1 se abre:
En Form2:

Código PHP:

  Private Sub Form_Unload(Cancel As Integer)
Load Form1
Form1.Visible = True
End Sub 
   

Espero que te sirva, si no avisa y te pondre mas

Saludo

[Avellaneda]

Pues me parece que a este tema se le está dando demasiado rollo, yo pongo otra opción:

En el Form1

Código:

Private Sub Command1_Click()
Form2.Show
End Sub

En el Form2

Código:

Private Sub Command1_Click()
Me.Hide
Form1.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

[David]

El código de Avellaneda es el mejor para estos casos. Aunque yo colocaría Unload Me en vez de Me.Hide para no ocupar memoria desnecesariamente.

[javiergarciaperez]

Con el código de Avellaneda sí funciona, pero con el de Kakashi-kun no, ya que cuando pulso la X del form2 no se cierra el form1, solo se cierra el form2.
De todas maneras gracias a todos, como digo, con el de Avellaneda funciona.
Gracias.