Stoppa LOOP med knapptryck?

En lösning är att använda en global variabel. Det är ett måste att ha med DoEvents i lopen annars kan inte Command2_Click() rutinen ändra värdet på den globala variabeln.

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">Private gLoopBreak as Boolean

Do Until bild.Top = 0 Or gLoopBreak = True
DoEvents
bild.Top = bild.Top - 1
Loop

Private Sub Command1_Click()
gLoopBreak = True
End Sub

Hoppas det här hjälpe dig.

[Redigerat av Stefan den 11 okt 2000]

Hee..
tack så mycket...
Men det funkar inte?!?

Nu ser koden ut så här;:

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub Command2_Click()
gLoopBreak = True

End Sub

Private Sub Command1_Click()
Do Until bild.Top <= 0 Or gLoopBreak = True

DoEvents
bild.Top = bild.Top - 1
Loop
End Sub

Kunde ej få in Private gLoopBreak as Boolean...
Då blev det fel???

Hur ska jag göra?

------------------
Erki
http://www.tapiren.net - Din Community på Internet!!

Deklarationen av gLoopBreak ska ligga i General Declarations. Den ska inte ligga i någon funktion eller sub.

Detta gör att den är åtkommligt från alla funktioner/subs i formuläret.