Re: Re:visual basic -- 3ICT oefeningen

[ Show ]

Support VoyForums

[ Shrink ]

VoyForums Announcement: Programming and providing support for this service has been a labor of love since 1997. We are one of the few services online who values our users' privacy, and have never sold your information. We have even fought hard to defend your privacy in legal cases; however, we've done it with almost no financial support -- paying out of pocket to continue providing the service. Due to the issues imposed on us by advertisers, we also stopped hosting most ads on the forums many years ago. We hope you appreciate our efforts.

Show your support by donating any amount. (Note: We are still technically a for-profit company, so your contribution is not tax-deductible.) PayPal Acct: Feedback:

Donate to VoyForums (PayPal):

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time ]

Subject: Re: Re:visual basic

Author:
Stijn Exter

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 09:49:09 03/12/02 Tue
In reply to: Tilleman Kristof 's message, "Re: visual basic" on 10:28:58 03/11/02 Mon

Wat Kristof mij voorschotelde blijkt echter niet te werken onder 6.0.
Wat ik ondertussen zelf wel gevonden heb is het volgende en dit blijkt wel te werken onder 6.0.
Hopelijk zal dit ooit voor iemand van pas komen.

On Error GoTo lable1 ' This is the normal way to
define and enable
' an error handler

On Error GoTo 0 ' Disables the error handling

On Error Resume Next ' Ignore future errors and continue with the next line

Exit_Point:
Exit Sub ' This is needed to make sure the error handler
' is not run when there are no errors.
' Use "Exit Sub", "Exit Function", or
' "Exit Property" as appropriate

Lable1: 'The error handler starts here

Resume ' Continue with the statement that caused the error
Resume Next ' Continue with the statement after the one that failed
Resume lable ' Continue with the specified statement

Resume Exit_Point

' Err is the built-in error object
if Err = someNumber then ' Check fo a specific error
Err.Clear ' Clear the error
Err.Raise 4 ' Force/simulate error 4

[ Next Thread | Previous Thread | Next Message | Previous Message ]