[vb6] uscire da una funzione o sub

[ghiboz]

ciao, in una funzione e in una sub faccio un controllo, faccio apparire una msgbox con ok e canc e voglio che alla pressione del tasto canc mi si interrompa l'esecuzione della sub ed esca dalla stessa...

come si fa??

tnx amici!!!

[Dardino]

Sub Sticazz()
  x=Msgbox("messaggio",vbYesNo,"titolo")
  if x=vbNo then
    'altro codice
    Exit Sub ' (l'equivalente per le Function è Exit Function)
  End if

End Sub

[ghiboz]

Originariamente inviato da Dardino

Sub Sticazz()
  x=Msgbox("messaggio",vbYesNo,"titolo")
  if x=vbNo then
    'altro codice
    Exit Sub ' (l'equivalente per le Function è Exit Function)
  End if

End Sub

grazie mille!!!!

[ghiboz]

ok, ho provato e funziona... ma una cosa... se volessi fare il controllo nella sub form_unload, che mi chiede... "vuoi uscire???"
come si fa???

tnx!!!

[kalosjo]

Se noti l'evento unload ha un parametro (Cancel).
Settando cancel a 1 non si esce....
Ovviamente bisogna gestirlo, altrimenti non esce mai.

Esempio:

if msgbox("Vuoi uscire?",vbYesNo)=vbNo then
  cancel=1
end if