Durante l’esecuzione di un programma può essere utile generare delle eccezioni per gestire alcune situazioni particolari e/o anomale. In Visual Basic .NET è possibile generare un’eccezione tramite la seguente istruzione:
|
1 |
Throw New <classeEccezione([proprietàMessage])> |
dove classeEccezione(proprietàMessage) serve per personalizzare l’eccezione da generare. Vediamo come utilizzare questa istruzione con un semplice esempio.
Esempio
Si consideri il codice seguente:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub btnEsegui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsegui.Click Dim s as String Dim n as Double Dim i as Integer i = 1 Do While (i <= 10) s = InputBox("Inserisci il " & i & "°" & " numero della sequenza.", "Input sequenza") n = s <altre istruzioni> i = i + 1 Loop <altre istruzioni> End Sub |
Nel codice di sopra nella Sub associata al clic sul bottone Esegui, all’interno del ciclo Do..While, viene prelevata una sequenza di dieci numeri. Ciascun numero della sequenza viene fornito in input utilizzando una InputBox (riga 8):
e ogni volta l’utente conferma l’input tramite il clic sul bottone OK.
Problema. Supponiamo si voglia avere anche la possibilità di annullare l’input dell’intera sequenza tramite il clic sul bottone Annulla e ritornare così al Form nella situazione in cui si era prima del clic sul bottone Esegui.
Soluzione proposta. Per questo problema possono essere adottate diverse soluzioni, una di queste consiste proprio nello sfruttare la possibilità di generare un’eccezione quando si fa clic sul bottone Annulla. Si ricorda che quando si clicca sul bottone Annulla, la InputBox restituisce al chiamante una stringa vuota. La soluzione proposta è la seguente:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
Private Sub btnEsegui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsegui.Click Dim s As String Dim n As Double Dim i As Integer i = 1 Do While i <= 10 Try s = InputBox("Inserisci il " & i & "°" & " numero della sequenza.", "Input sequenza") If s = "" Then 'è stato cliccato il bottone ANNULLA oppure il bottone OK senza aver inserito alcun input Throw New ApplicationException("Sequenza interrotta correttamente.") 'genera una eccezione End If n = s <altre istruzioni> Catch ex As ApplicationException If vbOK = MsgBox("Attenzione!" & vbNewLine & _ "Per interrompere gli inserimenti scegli OK." & vbNewLine & _ "Per continuare con gli inserimenti scegli ANNULLA", _ MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "Attenzione") Then If vbYes = MsgBox("Sei sicuro di voler interrompere gli inserimenti?", _ MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Attenzione") Then MsgBox(ex.Message, MsgBoxStyle.Information, "Conferma operazione") Exit Sub Else Continue Do End If Else Continue Do End If End Try i = i + 1 Loop <altre istruzioni> End Sub |
Nel codice precedente è stato evidenziato il blocco Try..Catch e in particolare nel blocco Try la riga di codice con cui viene generata l’eccezione (riga 12), che viene riscritta di seguito:
|
1 |
Throw New ApplicationException("Sequenza interrotta correttamente.") |
ApplicationException è la classe di appartenenza dell’eccezione che viene generata (che è la classe delle eccezioni generate quando si verifica un errore non irreversibile dell’applicazione), mentre la stringa passata tra le parentesi (facoltativa) rappresenta il testo della proprietà Message dell’eccezione generata.
Nella soluzione proposta, quindi, quando la InputBox restituisce una stringa vuota viene generata un’eccezione e nel blocco Catch, che gestisce tale eccezione, viene chiesta conferma all’utente su quale operazione eseguire: se procedere interrompendo l’operazione di input della sequenza (in questo caso si chiede all’utente un’ulteriore conferma) o se procedere continuando con il prelevamento della sequenza, riprendendo dall’ultimo numero su cui si è avuta l’interruzione (si fa notare che la stringa vuota viene restituita dalla InputBox anche quando si clicca sul bottone OK senza aver fornito un input; pertanto, riprendendo a prelevare la sequenza dall’ultimo numero su cui è avvenuta l’interruzione, viene gestita anche questa situazione).
Nella gestione delle richieste di conforma all’utente su come procedere, è stato sfruttato il valore restituito dalle MsgBox che, si ricorda, dipende da quale bottone l’utente clicca nella MsgBox.
P.S. Nel codice precedente andrebbe gestito anche l’errore di runtime che può verificarsi nella riga 14, nel caso di un input non valido che rende impossibile la conversione di tipo implicita dal formato stringa al formato numero. Questo problema è stato già risolto in un altro post a cui si rimanda per approfondimenti: link. Per completezza qui di seguito viene riportato, senza spiegazione, il codice completo anche di quest’ultima gestione.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Private Sub btnEsegui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsegui.Click Dim s As String Dim n As Double Dim i As Integer i = 1 Do While i <= 10 Try s = InputBox("Inserisci il " & i & "°" & " numero della sequenza.", "Input sequenza") If s = "" Then 'è stato cliccato il bottone ANNULLA oppure il bottone OK senza aver inserito alcun input Throw New ApplicationException("Sequenza interrotta correttamente.") 'genera una eccezione End If n = Double.Parse(s) <altre istruzioni> Catch ex As FormatException MsgBox("Devi inserire un numero!", MsgBoxStyle.Exclamation, "Input non valido") Continue Do Catch ex As ApplicationException If vbOK = MsgBox("Attenzione!" & vbNewLine & _ "Per interrompere gli inserimenti scegli OK." & vbNewLine & _ "Per continuare con gli inserimenti scegli ANNULLA", _ MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "Attenzione") Then If vbYes = MsgBox("Sei sicuro di voler interrompere gli inserimenti?", _ MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Attenzione") Then MsgBox(ex.Message, MsgBoxStyle.Information, "Conferma operazione") Exit Sub Else Continue Do End If Else Continue Do End If End Try i = i + 1 Loop <altre istruzioni> End Sub |
