Cerrar aplicacion actual.-

[mdg]

Buenas colegas!

Disculpen la simplicidad de mi pregunta pero, como cierro el proyecto o aplicacion con la cual estoy trabajando, no un form o form MDI la aplicacion completa desde codigo, pense que seria algo como app.quit o close pero no tiene esos metodos, gracias de antemano.

[juancho77]

Código [Seleccionar] Expandir

Private Sub Command1_Click()
End
End Sub

Pues un boton con eso en el form principal hara que toda la aplicacion finalize.

[cassiani]

Código [Seleccionar] Expandir

Private Sub Command1_Click()
End
End Sub

Pues un boton con eso en el form principal hara que toda la aplicacion finalize.

No es necesario llamar al "End" desde el form principal para que la aplicación cierre, se puede utilizar en cualquier form y rutina independientemente de si es el principal o no, en todo caso para cerrar la aplicación desde el form ppal, basta con usar el Unload...

[black_jjk]

Estoy de acuerdo con juancho77 en lo del Unload, pero a veces hay formularios que no se ven pero siguen en ejecución y si lo que quieres es cerrarlos desde cualquier lugar sin tener que recurrir al boton del MDI, en un modulo escribe esto:

Código [Seleccionar] Expandir


Public Function CierraTodo()
Dim FormX As Form
For Each FormX In Forms
  Unload FormX
Next
End Function
End

Luego cuado quieras cerrar todo desde un boton, menu, label o lo que quieras lo invocas solo con el nombre de la función:

ejemplo:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
CierraTodo
End Sub

Vale espero que te sirva.

[mdg]

Gracias amigos, finalmente uso el END para solucionar mi problema, pueden cerrar el tema, nuevamente muchas gracias por su ayuda.