Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Kizar en 19 Noviembre 2005, 01:06 am



Título: Cerrar mi programa
Publicado por: Kizar en 19 Noviembre 2005, 01:06 am
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


Título: Re: Cerrar mi programa
Publicado por: Slasher-K en 19 Noviembre 2005, 10:06 am
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.


Título: Re: Cerrar mi programa
Publicado por: Kizar en 21 Noviembre 2005, 15:32 pm
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?


Título: Re: Cerrar mi programa
Publicado por: NYlOn en 21 Noviembre 2005, 20:30 pm
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.


Título: Re: Cerrar mi programa
Publicado por: Kizar en 21 Noviembre 2005, 22:20 pm
lo solucione con este code.

Código:
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