Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: jorgelin95 en 4 Septiembre 2010, 22:27 pm



Título: [AYUDA] VB 6
Publicado por: jorgelin95 en 4 Septiembre 2010, 22:27 pm
Necesito saber el nombre del boton X de arriba que cierra la ventana osea el programa, ¿sabem?

Private Sub nombredelbotonx_click()

Kill (":C\miarchivo.txt")

End Sub

¿Como se llama la X de arriba que sierra la form?


Título: Re: [AYUDA] VB 6
Publicado por: bizco en 4 Septiembre 2010, 22:43 pm
no te vale el evento unload?


Título: Re: [AYUDA] VB 6
Publicado por: jorgelin95 en 4 Septiembre 2010, 22:49 pm
pero seria

Private Sub unload_Click()
Kill.....
End Sub?


Título: Re: [AYUDA] VB 6
Publicado por: Aiouek en 4 Septiembre 2010, 22:50 pm
Usa End.
Código
  1. Private Sub nombredelbotonx_click()
  2. Kill (":C\miarchivo.txt")
  3. End 'Cierra el exe
  4. end sub

Saludos

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.


Título: Re: [AYUDA] VB 6
Publicado por: jorgelin95 en 4 Septiembre 2010, 22:52 pm
yo no encesito eso en si necesito esto

Private Sub end_click()
Kill (":C\miarchivo.txt")
End Sub

:S:S me falta para terminar :D


Título: Re: [AYUDA] VB 6
Publicado por: Aiouek en 4 Septiembre 2010, 22:57 pm
Debes usar el evento QueryUnload, saludos!


Título: Re: [AYUDA] VB 6
Publicado por: jorgelin95 en 4 Septiembre 2010, 23:04 pm
No me funciona

Private Sub queryunload_click()

Kill ":C\xd.txt"

End

End Sub

:S


Título: Re: [AYUDA] VB 6
Publicado por: Aiouek en 4 Septiembre 2010, 23:13 pm
Como ya te dijo BlackZeroX debes leer mas, en google salen buenos tutoriales del vb6.
Código
  1. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  2. 'tu codigo
  3. End sub

Espero que sirva, y si no busca que hay muchos ejemplos por el foro jorge ;)

Saludos


Título: Re: [AYUDA] VB 6
Publicado por: jorgelin95 en 4 Septiembre 2010, 23:19 pm
Si sirve muchisimas gracias..


Título: Re: [AYUDA] VB 6
Publicado por: BlackZeroX en 5 Septiembre 2010, 00:05 am
.
Código
  1. Private Sub end_click()
  2. const ThisFile$ ="C:\miarchivo.txt"
  3.    setattr thisfile,vbnormal ' esto solo por si esta oculto o algo similar
  4.    Kill thisfile
  5. End Sub
  6.  

Sin los dos puntos