🚀 go-pugleaf

Het volgende voorbeeld is in feite niets waard.  Bovendien kun je dit
via een combinatie van Val() en Str() ook oplossen.  Maar het voorbeeld
geeft enkel de Engelse foutboodschap en onderbreekt dus het programma.

Option Explicit

Sub Main()
On Error GoTo Fout
Dim lStrAntwoord As String
Dim lLngResult As Long
Dim lIntTeller As Integer

   lLngResult = 0
   For lIntTeller = 1 To 3
     lStrAntwoord = InputBox("Geef een waarde in (" & lIntTeller & "):",
"Optellen 3 waarden")
     lLngResult = lLngResult + lStrAntwoord
     MsgBox ("Het resultaat (optelling) is : " & lLngResult)
   Next
   Exit Sub
Fout:
   MsgBox ("Sorry, er is een fout gebeurd.  Deze waarde wordt niet
meegeteld")
   lStrAntwoord = "0"     'ik weet het, dit hoeft niet
   Resume Next
End Sub


>"Luc Kumps" <NOkumpsSPAM@pandora.be> wrote in message
> news:IKzb6.263975$MA1.8557502@afrodite.telenet-ops.be...
>Zou je eens een miniem voorbeeldprogramma kunnen posten, waaruit jouw
>probleem duidelijk wordt?
>
>Luc
>
>"Bockx Danny" <danny.bockx@skynet.be> wrote in message
>news:94jv8q$l6p$1@news1.skynet.be...
>> English version follows.
>>
>> Waarschijnlijk is het heel dom...  Eigenlijk wil ik gewoon
foutmeldingen
>> opvangen.  Ik heb altijd in Visual Basic 6 geprogrameerd in Windows
98.
>> Onlangs heb ik Windows 2000 ge�nstalleerd.  Nadien werken de
instructies
>> "On Error GoTo ..."  en "On Error Resume" niet meer.  Het lijkt dat
er
>> helemaal geen commando staat.  Bestaat er een service pack dat dit
>> probleem oplost ?
>>
>> Dank u,