🚀 go-pugleaf

Bij mij werkt dit op NT (de voorganger van Win 2000) perfect onder VB6,
Service Pack 4.
Welk SP heb jij ge�nstalleerd?

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,
>
>
>