' tady by mohlo dojít k chybě při běhu
picVýhra.Image = Image.FromFile(Application.StartupPath & "\Money.wmf")
Catch echyba As ArgumentException
' Obrázek není, aplikace může pokračovat,
' ale při určité výhře se nezobrazí obrázek
' Zpracování chyby:
picVýhra.Image = Nothing
Catch echyba As Exception
' Došlo k jiné chybě, která nemá speciální zpracování.
' Vypíše se zpráva a aplikace skončí
' Součástí zprávy by mělo být doporučení, co má uživatel udělat před opětovným
' opětovným spuštěním aplikace. I když nemá dělat nic, mělo by se mu to sdělit
MessageBox.Show("Neočekávaná chyba. Aplikace bude ukončena.")
Application.Exit()
Finally
' Výsledky, které už lze získat bezpečně
' a (nebo) údržbový kód (uzavírání souborů, uvolňování objektů apod.)
End Try
Při ladění výjimek se obvykle používají pomocné zprávy nebo výpisy do výstupního okna. Vlastnost
Message třídy Exception pojmenovaného prostoru System poskytuje text chybové zprávy. V našem případě
by příkaz
MessageBox.Show(echyba.Message)
zobrazil zprávu „Invalid parameter used“. Podrobnější informace poskytuje metoda ToString téže třídy
(plně kvalifikovaný název výjimky, text chybové zprávy a kde k ní došlo). Příkazem
MessageBox.Show(echyba.ToString)
byste získali informace podobné těmto:
Jak vidíte z výpisu, může být větví Catch v konstrukci Try více (podobně jako ve struktuře Select Case)
a můžete tak „rozškatulkovat“ možné výjimečné situace do několika kategorií. (Do které třídy patří výjimka,
k níž právě došlo, poskytuje první řádek výpisu metody ToString). Říká se tomu filtrování chyb.
Filtrování chyb lze v zásadě řešit dvěma způsoby. Buď filtr založit na nějaké třídě výjimek, nebo na uživatelsky
definovaných číslech chyb (pak se používá fráze Catch When).