[VB6] Fermare una sub da un'altra

[leomac]

Raga ho un problema, ho creato una sub ma questa è troppo grande. Difatti all'avvio mi appare errore. Quindi dopo averla spremuta al massimo (almeno spero) ho optato per dividerla. Di conseguenza mi ritrovo con 2 sub. Ora, avviando Sub Blocca questa mi richiama le due Sub Blocca1 e Blocca2. Il problema è che devo chiudere la Sub Blocca se una delle condizioni delle sub Blocca1 e Blocca2 sono verificate:

Sub Blocca()
Call Blocca1
Call Blocca2
MsgBox "Non Funge"
End Sub

Sub Blocca1()
If Range("A1") = 0 Then
MsgBox "Funge = 0"
End If
End Sub

Sub Blocca2()
If Range("A1") <> 0 Then
MsgBox "Funge >< 0"
End If
End Sub

in pratica appena compare l'MsgBox delle Blocca1 o Blocca2 si deve fermare la sub Blocca. Le due sub non possono essere inserite in una sola difatti prima della suddivisione avevo creato un goto che andava direttamente alla fine dell'intera sub, ora però nn è più possibile.
Un grazie anticipato....


oddio che settimana

[Pirelli72]

Cosi?

Sub Blocca()
If Blocca1 = False Then Exit Sub
If Blocca2 = False Then Exit Sub
MsgBox "Non Funge"
End Sub

Function Blocca1() As Boolean
If Range("A1") = 0 Then
MsgBox "Funge = 0"
Else
Blocca1 = True
End If
End Function

Function Blocca2() As Boolean
If Range("A1") <> 0 Then
MsgBox "Funge >< 0"
Else
Blocca2 = True
End If
End Function

[oregon]

Originariamente inviato da leomac
... ho creato una sub ma questa è troppo grande ...

Mai avuto problemi del genere ... sei sicuro di non avere scritto codice inutile, che magari potevi ridurre in qualche modo ?

[gibra]

Originariamente inviato da oregon
Mai avuto problemi del genere ... sei sicuro di non avere scritto codice inutile, che magari potevi ridurre in qualche modo ?

La penso idem

[Boolean]

Originariamente inviato da leomac
Raga ho un problema, ho creato una sub ma questa è troppo grande.

Sinceramente anche a me pare un'assurdità che una Sub sia talmente grande da non poter essere eseguita... e senza dubbio è possible semplificarla delegando le operazioni più comuni ad altre Sub o Function.
Sarei curioso di vedere la Sub mastodontica originale

Boolean