cool web a perfektni rs- Doporucuji

Monday, June 18, 2007

Chcete-li sledování chyb (předčasně, před ukončením procedury) vypnout, zařaďte na dané místo příkaz
On Error GoTo 0 (není to skok na řádek kódu s číslem 0).
Chybové rutiny se někdy nepohodlně ladí (dokud se rutina nevykoná, nevíte, zda funguje dobře), protože
někdy bývá obtížné navodit situaci, kdy skutečně dojde k chybě s testovaným číslem. V těchto případech pomáhá
metoda Raise objektu Err. Chcete-li například vyzkoušet větev Case Else ve výše uvedeném kódu,
zařaďte někam do procedury (za příkaz On Error) třeba příkaz:
Err.Raise(13)
V našem případě prostě jiné číslo než 5. Kdybyste takto chtěli testovat chyby při strukturovaném zpracovávání
konstrukcí Try, i to je možné. Umístíte-li volání metody Raise do bloku Try, „zachytíte“ tento druh
chyby větví:
Catch echyba As InvalidCastException
MessageBox.Show("Nesouhlas typů.")

Labels: