[vb] Come la chiudo questa finestra?

[riky78]

Se ho questo codice:

Private Sub Form_Load()
Me.Show
For i = 1 To 100000
    DoEvents
    label.Caption = i
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "esco"
End Sub

premendo sulla X per la chiusura della finestra entra nell'evento Unload ma poi ricomincia l'esecuzione del load...

come faccio a farlo uscire davvero????

[Blackage]

Io userei:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim x%
x% = MsgBox("Sei sicuro di voler uscire dal programma?", vbYesNo)
If x% = vbNo Then
Cancel = True
Else
Cancel = False
End If
End Sub

Se ho capito bene quello che chiedevi.

[riky78]

:master: .....
facendo così (premendo su NO) riesco a evitare che il Form_Load inizi da capo, ma continua dal punti in cui si trova prima di QueryUnload.
Se premo su si riavvia il form_load

A me serve che esca dal Load nel punto in cui è....


grazie comunque

[Blackage]

Se vuoi che termini il form metti "end" , altrimenti non so... sorry

Else
Cancel = False
End
End If

[xegallo]

Originariamente inviato da riky78
Se ho questo codice:

Private Sub Form_Load()
Me.Show
For i = 1 To 100000
    DoEvents
    label.Caption = i
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "esco"
end 
End Sub

premendo sulla X per la chiusura della finestra entra nell'evento Unload ma poi ricomincia l'esecuzione del load...

come faccio a farlo uscire davvero????

[riky78]

era prorpio una cagata......

grazie a tutti