[VB6] Comandi di un MsgBox in un modulo

[zorro77]

Slave a tutti
sto cercando di inserire in un modulo tutti i msgbox, in modo da raggrupparli e modificarli velocemente tutti quando necessario.

Nel modulo ho inserito

Public Sub avvUscita(bio As String, conn As ADODB.Connection)
Dim msg
msg = MsgBox("Stai per uscire da " & bio & "." & vbCrLf & "Sicuro di voler uscire?", vbYesNo + vbDefaultButton2, "USCITA")
If msg = vbYes Then
        Call clear
        CloseConnection conn
    ElseIf msg = vbNo Then
        Cancel = 1
    End If

End Sub

non capisco perchè mi dice che Cancel non è definito quando invece usandolo nel form non mi da problemi

[oregon]

Ti dice che Cancel non e' definito ... perche' non e' definito (!) da nessuna parte nel modulo ...

Quello e' un parametro dell'evento in cui era posto il codice quando era nel form ... quel parametro (il Cancel) puo' essere letto e impostato dal codice ma solo se questo gira all'interno dell'evento ...

Per rendere generico il codice, devi trasformare la Sub in Function
in questo modo

Public Function avvUscita(bio As String, conn As ADODB.Connection) As VbMsgBoxResult
  Dim msg As VbMsgBoxResult
  msg = MsgBox("Stai per uscire da " & bio & "." & vbCrLf & "Sicuro di voler uscire?", vbYesNo + vbDefaultButton2, "USCITA")
  If msg = vbYes Then
    Call clear
    CloseConnection conn
  End If
  avvUscita = msg
End Function

e richiamarla dove vuoi in modo che ti restituisca il valore del tasto pressato per aggiornare il Cancel se e quando richiesto.

[zorro77]

Purtroppo senza quel Cancel, provando il codice che mi hai scritto, quando premo su NO, mi esce cmq dal form

[oregon]

Sì ... ma se non fai vedere come hai usato la funzione non posso dirti dove hai sbagliato ...

[zorro77]

Risolto. Ti ringrazio infinitamente
Nel modulo mettevo il codice che hai postato tu, ma nella form, dove chiamavo tale funzione, non effettuavo la condizione

if avvUscita=vbNo then Cancel = 1

e quindi anche se premevo "No" usciva cmq

[oregon]

Infatti, ti avevo scritto

"e richiamarla dove vuoi in modo che ti restituisca il valore del tasto pressato per aggiornare il Cancel se e quando richiesto."

...

Ciao

[zorro77]

Infatti...piccola svista

Non è che mi potresti dare una mano con un altro mio post di qualche giorno fa riguardante il dimensionamento di un datagrid in un frame?
Te ne sarei molto grato