---

Hej
Er der nogen der ved hvordan man stopper eksekveringen af f.eks en
while-løkke fra en knap. Jeg har prøvet følgende model, men den virker ikke.

Private Sub loekke_procedure()
CarryOn = True
j = 1
While j < 500000 and CarryOn
xxxxxxxxxx
j = j + 1
Wend
End Sub

Private Sub Command1_Click()
CarryOn = False
End Sub

Når jeg kalder loekke_proceduren, så blir den i løkken indtil den er færdig.
Formularen er låst, og det hjælper ikke at klikke på Comand1-knappen.

Hvordan gør man det?

Mvh. Tor

---

Tor Valen wrote:
> Hej
> Er der nogen der ved hvordan man stopper eksekveringen af f.eks en
> while-løkke fra en knap. Jeg har prøvet følgende model, men den virker ikke.
>
> Private Sub loekke_procedure()
> CarryOn = True
> j = 1
> While j < 500000 and CarryOn
> xxxxxxxxxx
> j = j + 1
> Wend
> End Sub
>
> Private Sub Command1_Click()
> CarryOn = False
> End Sub
>
> Når jeg kalder loekke_proceduren, så blir den i løkken indtil den er færdig.
> Formularen er låst, og det hjælper ikke at klikke på Comand1-knappen.
>
> Hvordan gør man det?
>
> Mvh. Tor
>
>

Exit do ?

Jeg ville nok flytte den ene betingelse ind i løkken

If carryOn=False then
Exit do
end if

Og det kræver nok også, at der i løkken er en doevents, der giver andre
kommandoer lov til at blive udført..



mvh
Krabsen

---

Takker.
Det var nok at putte en doevents ind i løkken, så funkede det.
Mvh.Tor

"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i en meddelelse
news:4474b436$0$15792$14726298@news.sunsite.dk...
> Tor Valen wrote:
>> Hej
>> Er der nogen der ved hvordan man stopper eksekveringen af f.eks en
>> while-løkke fra en knap. Jeg har prøvet følgende model, men den virker
>> ikke.
>>
>> Private Sub loekke_procedure()
>> CarryOn = True
>> j = 1
>> While j < 500000 and CarryOn
>> xxxxxxxxxx
>> j = j + 1
>> Wend
>> End Sub
>>
>> Private Sub Command1_Click()
>> CarryOn = False
>> End Sub
>>
>> Når jeg kalder loekke_proceduren, så blir den i løkken indtil den er
>> færdig. Formularen er låst, og det hjælper ikke at klikke på
>> Comand1-knappen.
>>
>> Hvordan gør man det?
>>
>> Mvh. Tor
>
> Exit do ?
>
> Jeg ville nok flytte den ene betingelse ind i løkken
>
> If carryOn=False then
> Exit do
> end if
>
> Og det kræver nok også, at der i løkken er en doevents, der giver andre
> kommandoer lov til at blive udført..
>
>
>
> mvh
> Krabsen

---

"Tor Valen" <torvalen@FJERNprivat.dk> skrev i en meddelelse
news:4474aebc$0$928$edfadb0f@dread14.news.tele.dk...
> Hej
> Er der nogen der ved hvordan man stopper eksekveringen af f.eks
> en while-løkke fra en knap. Jeg har prøvet følgende model, men
> den virker ikke.
>
> Private Sub loekke_procedure()
> CarryOn = True
> j = 1
> While j < 500000 and CarryOn
> xxxxxxxxxx
> j = j + 1
> Wend
> End Sub
>
> Private Sub Command1_Click()
> CarryOn = False
> End Sub

Dine 2 CarryOn variabler er 2 helt forskellige variabler - ellers
ville det virke.

Skriv 'Option explicit' aller øverst i dit modul og se


--
/\ preben nielsen
\/\ prel@post.tele.dk