PDA

Visualizza la versione completa : [vb] Come la chiudo questa finestra?


riky78
27-11-2002, 13:38
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
27-11-2002, 14:24
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
27-11-2002, 14:32
: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
27-11-2002, 14:40
Se vuoi che termini il form metti "end" , altrimenti non so... sorry

Else
Cancel = False
End
End If

xegallo
27-11-2002, 14:47
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
27-11-2002, 14:48
era prorpio una cagata......

grazie a tutti

Loading