Avatar billede bluestrike Nybegynder
21. oktober 2003 - 09:32 Der er 7 kommentarer og
3 løsninger

Visual basic -Error handler spørgsmål.

Jeg vil gerne have noget error handling på min application. Jeg har forstået man kan bruge følgende kode:

On Error GoTo errorhandler

nu er mit spørgsmål om det er muligt at få dette til at kalde en funktion/sub... Da dette ville lette implementeringen en del.
Avatar billede jennemaan Nybegynder
21. oktober 2003 - 09:38 #1
sub errorhandler()

Select Case err.Number
case 4711
    debug.print "something rotten happened"
End Select
end sub

sub errorproc()

on error goto err


exit sub
err:

errorhandler
'resume ?

end sub


/Jennemaan
Avatar billede larsjordan Nybegynder
21. oktober 2003 - 09:39 #2
Sub ErrorHandler()
  'Her sættes koden til din error handler
end Sub
Sub EnEllerAndenSub
on error goto err_EnEllerAndenSub
  'kode
  exit sub
err_EnEllerAndenSub:
  ErrorHandler 'Her kaldes din errorhandler

end Sub
Avatar billede bluestrike Nybegynder
21. oktober 2003 - 09:51 #3
Ja okay... den mulighed er der selvfølgelig... Men man kan ikke skrive noget i retning af On Error Goto my_error_sub... ??
Avatar billede larsjordan Nybegynder
21. oktober 2003 - 09:56 #4
nej
Avatar billede tubber Juniormester
21. oktober 2003 - 10:07 #5
Her er en stump kode fra en loginform jeg har lavet, der kan du se hvordan jeg bruger en errorhandler.......

'This button logs you on the domain
Private Sub cmdVerify_Click()
'If there is an error the errorhandler catches it
On Local Error GoTo ErrorHandler
    'The text fileds where you enter your info
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    'Tells that it is a WinNT domain
    Set dso = GetObject("WinNT:")
    'Gets the variables into the ADSI and contacts the Domain Controler
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub

'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub
Avatar billede tubber Juniormester
21. oktober 2003 - 10:09 #6
On Local Error GoTo ErrorHandler
    'Din kode
Exit Sub
'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = ditFejlNummer Then MsgBox "Din fejlbesked", , "Navn på msgbox"
Exit Sub
End Sub
Avatar billede tubber Juniormester
21. oktober 2003 - 10:09 #7
Håber det kan bruges
Avatar billede bluestrike Nybegynder
21. oktober 2003 - 10:31 #8
Er der samtidig nogen af jer der ved hvordan ma stopper afviklingen af applicationen...??
Avatar billede larsjordan Nybegynder
21. oktober 2003 - 10:33 #9
Det er lidt spaghetti-agtigt, men bare skriv

END

så stoppen programmet
Avatar billede bluestrike Nybegynder
21. oktober 2003 - 10:36 #10
I har alle 3 fået point.. Håber det er iorden, og tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester