Cerrar mi programa

[Kizar]

Wena, esto parece simple pero no lo es:

No se porke pero un programa k tengo si le cierro usando "end" me cierra la aplicacion , pero windows me pone k produjo un eerro k si deseo enviarlo, supongo k es por k se cerra cuando ta acendo alguna acion, pero como podria acer k se cierre totalmente y k no salga nada o k termine todo lo k ta acendo y se cierre?

Sugerecias por favor.

Salu2

[Slasher-K]

Crea una variable Boolean en un módulo estándar (una variable global), por ejemplo con el nombre bTerminateApp y cuando esté establecida a True todos los procedimientos que se estén ejecutando terminan.

También asegurate de descargar los otros formularios antes del principal, por ejemplo si tenés el formulario frmDatos y descargas frmMain sin descargar el otro primero, el programa no termina.

Igualmente por lo que decís pareciera que está ejecutandose alguna tarea asíncrona como puede ser un thread que creaste o un timer usando SetTimer.

En todo caso indica bien cuál es el código que te da el error y buscamos solución para ese puntualmente.

Saludos.

[Kizar]

Pero eso no se muy bien como acelo es k no tendria por k dar error por k si lo matas en el administrador de procesos no pasa nada y si le pones "end" da un error. lo k estoy pensando es crear un bat k mate el proceso y ya esta lo malo es k oy en dia los bats estan... ta jodia la cosa muchisimos programas los borran o les blokean.

k se os ocurre?

[NYlOn]

En vez de ponre END, intenta descargando formulario x formulario.
Sino hacete un par de botones para q vayas terminando uno por uno, asi te podes dar cuenta cual es el q tiene problemas y te fijas como lo podes solucionar.

[Kizar]

lo solucione con este code.

Código [Seleccionar] Expandir


Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'end this process
    ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub



Salu2