🚀 go-pugleaf

Bij mij werkt dit perfect op Win2000.
Indien ik "x" ingeef ipv een getal, dan komt er een Nederlandstalige
foutenboodschap.
Geeft de .exe die ik je opstuurde bij jou problemen?

Luc

"Bockx Danny" <danny.bockx@skynet.be> wrote in message
news:94p1ur$qon$1@news0.skynet.be...
> 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,
>
>
>