Ako vytvoriť obslužný program chýb pre VB program

Ak sa snažíte získať viac z vašich projektov MS Access , alebo sa začínajú programovať v jazyku Visual Basic , s obslužný program chýb vo vašich Subs a funkcie môžete uložiť svoje koncovej užívateľovi veľa smútku . Tu je jednoduchý spôsob, ako pridať obslužný program chýb na kóde , ktorý vám umožní sa vysporiadať s chybami , ako prídu , a potom prispôsobiť reakcii na konkrétne chybu . Veci , ktoré budete potrebovať klipart Visual Basic 6 alebo otvorené okno kód v MS Access 2003 alebo starší modul
Zobraziť ďalšie inštrukcie
1

Otvorte okno kód buď VB6 alebo modul MS Access a vytvorenie novej Sub rutiny s názvom TestErrorHandler . V tomto bode bude žiadny kód v Sub , ktorý bude vyzerať takto : Public Sub TestErrorHandler ( ) End Sub
2

Pridajte nižšie riadky Sub rutina , nie Opište Public Sub a End Sub linky znova . Je dôležité , aby sa ubezpečil , že ste pridať dvojbodku po riadku " Error_Exit " a " errorHandler . " Navyše , rad " ErrorHandler " musí byť zadaný presne tak , ako je deklarované v riadku " On Error GoTo errorHandler . " Môžete pomenovať obslužný program chýb " Jim " , ak chcete . ale je potrebné , aby názov v súlade : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Koniec SubErrorHandler : Koniec SubThe riadok " On Error GoTo errorHandler " riadi sub hľadať obslužný program chýb by chyba vznikne , keď je to running.The linka " Error_Exit " opustí vás z Sub , pretože linka " Exit Sub " bol okamžite pridal pod dátumom riadku " errorHandler : " je miesto , kde budú spracované špecifické chyby
3

. teraz pridajte nasledujúce dva riadky kódu priamo pod " errorHandler " : Select Case SelectWe Err.NumberEnd sú pomocou Select Case vyhlásenie zvládnuť nejaké konkrétne chyby , ktoré by sme mohli chcieť vysporiadať s
4

. informovať užívateľa , že chyba prijal miesto a dať im nejaké ďalšie informácie . Budeme robiť , že v našom Select Case pomocou " Case Else . " V tomto príklade budeme držať to jednoduchý oznámením užívateľa , že došlo k chybe , a to , čo je číslo chyby , rovnako ako krátky popis . Pridajte nasledujúce riadky kódu do vášho " errorHandler " : Case Else pstrErrorMessage = " Chyba číslo : " & err.number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Chyba " Pokračovať Error_ExitThe celý Návrat by mal teraz vyzerať takto : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Koniec SubErrorHandler : Dim pstrErrorMessage As String Select Case err.number Else pstrErrorMessage = " Chyba číslo : " & err.number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Error " pokračovať Error_Exit End Sub SelectEnd
5

skutočnú výhodu mať obslužný program chýb na mieste je to , že si vie poradiť s očakávanými chybami v elegantným spôsobom . Napríklad , ak ste sa rozhodli napísať Sub rutiny , ktoré sa presunúť súbor ( y ) z jednej zložky do druhej , ale predvídať , že na príležitosti , ktoré alebo viac súborov nebude existovať , budete pravdepodobne mať opakované Číslo chyby 53 , čo je chyba Súbor nebol nájdený . Môžete pridať riadok do príkazu Select Case , ktorá bude riešiť túto chybu a potom pokračovať s Sub rutina . Pridať tieto dva riadky priamo pod riadok " Select Case " : Case 53 Resume NextBy rokovania s očakávaným chyba Súbor nebol nájdený v tejto móde , môžete mať Sub rutina pokračovať v jazde bez oznámenia užívateľovi , čo sa stalo . Je zrejmé , že ak chcete , aby používateľ vedel , že zadaný súbor chýba , mali by ste pridať MsgBox v tomto zmysle . Celá Sub teraz vyzerá takto ( screenshot spojené s týmto krokom ukazuje , ako by mal vyzerať kód v programovacom prostredí VB ) : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Koniec SubErrorHandler : Dim pstrErrorMessage As String Select Case err.number 53 Resume Next Case Else pstrErrorMessage = " Chyba číslo : " & err.number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Error " Pokračovať Error_Exit End Sub SelectEnd

• Predchádzajúca strana: Ako pridať položky do rozbaľovacej /ComboBox v VB.net 
• Ďalšia strana: Ako používať objekt VBScript udalosti