problema sub Visual Basic

[<TheShop>Evoc Thurner]

problema sub routine!

Private Sub Form_Unload(Cancel As Integer)
If RichTextBox1.Text <> "" Then
Dim var
var = MsgBox("Sei sicuro di voler uscire senza salvare?", vbQuestion + vbYesNo, "Sei sicuro?")
If var = vbYes Then
Unload Me
Else
Exit Sub
End If
End If
End Sub

allora queste righe mi servisebbero in blocco note per fare uscire il messaggio: sei sicuro di voler uscire senza salvare? con la scelta si e no!
ma sia che l'operatore prema si sia che prema no il programma si chiude lo stesso e non permette di tornare indietro e salvare!
(Visual basic)<--Linguaggio untilizzato

[Ralph il lupo]

vediamo un po......
è strana l'assegnazione della variabile var.....tu in pratica vuoi fare un controllo su questa......ma non credo che la messagebox restituisca un valore....

maagari vuole un valore booleano...
prova a dichiarare la messagebox in un altra maniera,in un altro tipo....ora provo il codice......

[Ralph il lupo]

ok...l'ho provato........se scelgo si,mi chiude il tutto...se scelgo il no,pure....


certo
se scelgo no...ce un exit sub che mi fa uscire...
ok è tutto giusto....

[<TheShop>Evoc Thurner]

Inviato da Ralph il lupo
ok...l'ho provato........se scelgo si,mi chiude il tutto...se scelgo il no,pure....


certo
se scelgo no...ce un exit sub che mi fa uscire...
ok è tutto giusto....

si ma io ho pensato che facendo uscire il programma dalla sub non la eseguisse per intero e lasciasse tutto com'era!

[<TheShop>Evoc Thurner]

Inviato da Ralph il lupo

vediamo un po......
è strana l'assegnazione della variabile var.....tu in pratica vuoi fare un controllo su questa......ma non credo che la messagebox restituisca un valore....

maagari vuole un valore booleano...
prova a dichiarare la messagebox in un altra maniera,in un altro tipo....ora provo il codice......

cmq vedi che poi il controllo sulla variabile var lo faccio se assume vbNO o vbYes? e funzia sempre! anzi se ci metto dei bottoni personalizzati me la richiede proprio una variabile di riferimento!

[Emptiness]

Dovrebbe bastare togliere l'Else (ma non l'ho testato):

Private Sub Form_Unload(Cancel As Integer)
If RichTextBox1.Text <> "" Then
Dim var
var = MsgBox("Sei sicuro di voler uscire senza salvare?", vbQuestion + vbYesNo, "Sei sicuro?")
If var = vbYes Then
Unload Me
End If
End If
End Sub

Fammi sapere dopo.

[<TheShop>Evoc Thurner]

Inviato da Emptiness
Dovrebbe bastare togliere l'Else (ma non l'ho testato):



Fammi sapere dopo.

no il problema non è risolto!

[Mius]

La form_unload() è un evento che viene chiamato quando il form è in fase di chiusura. Quindi, se lasci terminare normalmente la sub, essa chiude lo stesso il form. Credo che bisogni mettere cancel=true per fermare l'unload. Oppure prova nello stesso modo in form_queryunload().
Dimmi se il codice funziona.

[Emptiness]

Inviato da Mius
La form_unload() è un evento che viene chiamato quando il form è in fase di chiusura. Quindi, se lasci terminare normalmente la sub, essa chiude lo stesso il form. Credo che bisogni mettere cancel=true per fermare l'unload. Oppure prova nello stesso modo in form_queryunload().
Dimmi se il codice funziona.

Giusto! Eh, già...