Imprimir Página - Duda.. sobre Form

Título: Duda.. sobre Form_Unload + Cierre
Publicado por: cheatmaster en 8 Julio 2007, 02:03 am

Bien el caso es que..

En un boton tengo

Código:

MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation, "KIKOooO"
Unload Form1

y en un FORM_UNLOAD:

Private Sub Form_Unload(Cancel As Integer)

Código:

  Dim i As Long
    i = MsgBox("CLICK SI", vbYesNo + vbQuestion, "KiOoOooo")
    
    If i = 6 Then 'Selecciono "si"
            
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
    
End Sub

Bien el caso es que si sale del programa dandole ala " X " saltaria el FORM_UNLOAD pero si le da al boton aria una secuencias y luego se cerraria,
LO MALO

Cuando le da al boton y cierra, pide la autorizacion ( es decir te envia e msgbox de form_Unload,

Yo quiero saber.. HAY Alguna manera de que si presiona el boton.. Se desactive el Form_unload y se cierre con normalidad ?

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: Freeze. en 8 Julio 2007, 02:11 am

Explicate un poco mejor...

Quieres una confirmacion de si quieres salir o no?

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: cheatmaster en 8 Julio 2007, 02:13 am

aver..

INMAGINA.

EN EL boton pone

Private BOTON

UNload me

end sub

Pero al darle Pide

Código:

 Dim i As Long
    i = MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion, "KiOoOoo")
    
    If i = 6 Then 'Selecciono "si"
            
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
    
End Sub

Yo quiero que cuando le de al boton lo que esta dentro del code, |code|/code| Pues q no funcione es decir q NO pida confirmacion de salir

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: Freeze. en 8 Julio 2007, 02:22 am

No se puede..

Porque si dices Private Sub Form_unload(Cancel as integer) entonces dices que siempre que Descargas(Unload) el formulario...

Nota: Corriganme si me equivoco...

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: Dark_Knight en 8 Julio 2007, 07:28 am

hola

talvez es esto lo que estas buscando

Código:


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion, "Steam Error Support: 0x874389435") = vbNo Then
Cancel = True
Else
End
End If
End Sub

intenta hacer los codigos mas sencillos.. porke cuesta entenderlos..

creo que necesitas mas practica...

nos vemos ;D

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: ~~ en 8 Julio 2007, 11:43 am

Me parece a mi q el no busca eso, mas bien es algo de este tipo:

Código

Dim Salir As Boolean
 
Private Sub Command1_Click()
    MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation
    Salir = False
    Unload Form1
End Sub
 
Private Sub Form_Load()
Salir = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If Salir = False Then End
If MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion) = vbNo Then Cancel = True
End Sub

Asi si le das al boton sale sin preguntar y si le das a la X te pregunta, es eso no??

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: cheatmaster en 8 Julio 2007, 21:39 pm

Cita de: E0N en 8 Julio 2007, 11:43 am

Me parece a mi q el no busca eso, mas bien es algo de este tipo:

Código

Dim Salir As Boolean
 
Private Sub Command1_Click()
    MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation
    Salir = False
    Unload Form1
End Sub
 
Private Sub Form_Load()
Salir = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If Salir = False Then End
If MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion) = vbNo Then Cancel = True
End Sub

Asi si le das al boton sale sin preguntar y si le das a la X te pregunta, es eso no??

Correcto vi a provarlo :D :D ( 1 vez mas vuelves a salvarme xD )

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: cheatmaster en 8 Julio 2007, 21:59 pm

POng error xD

explico, la " X " donde se cierra, yo uso un label ya que como es una skin no tiene X del programa, Bueno, pues al meter el code que me diste, vale cierra con el boton bien ^^
pero la x no pregunta nada xDD es decir le das ala X ( q seria el label) y se cierra sin preguntar :L

Título: Re: Duda.. sobre Form_Unload + Cierre
Publicado por: cheatmaster en 8 Julio 2007, 22:06 pm

esto.. sry por 3 post seguidos, pero mirad ya lo encontre como hacerlo la cosa es asin:

BOTON

MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation, "KIKOooO"
End

FORM_UNLOAD

Dim i As Long
i = MsgBox("CLICK SI", vbYesNo + vbQuestion, "KiOoOooo")

If i = 6 Then 'Selecciono "si"

Else ' Selecciono "No"
Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
End If

End Sub

De esta manera al darle al boton se cierra y no pide nada, y si le das ala "X" lo pide :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: cheatmaster en 8 Julio 2007, 02:03 am