Exit Sub

di il
2 risposte

Exit Sub

Buongiorno,
immaginando la seguente procedura:
private sub prova()
prova1
istruzioni1
instruzione2
.
.
istruzionen
end sub
supponiamo che all'interno della procedura prova1 sia presente l'istruzione exit sub, qualora non sia verificata una condizione. Qualora exit sub fosse eseguita all'interno di prova1 il controllo passerebbe alle routine successive fino a istruzionen. Ma se nella stessa situazione volessi uscire completamente dalla routine "prova" e perciò non eseguendo istruzione 1 fino a istruzionen come potrei fare nella maniera più corretta?
Grazie.

2 Risposte

  • Re: Exit Sub

    In questo caso la prova1 dovrebbe essere una function e non una sub.

    In questo modo potresti restituire un valore di "stato" nel momento in cui esegui la exit function, ad esempio il numero 1, oppure il numero 0 se era stata eseguita tutta. Quindi avresti potuto scrivere
    
    if(prova1() = 0) then
      istruzioni1
      instruzione2
      .
      .
      istruzionen
    End If
    
  • Re: Exit Sub

    Suggerimento prezioso. Grazie del suggerimento. Ho risolto.
Devi accedere o registrarti per scrivere nel forum
2 risposte