VB6, Oneindig herhalen in label

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Met deze wordt het teken'>' val de label 20 keer getekend
en dan stopt.
Code: 
Dim teller As Integer
Private Sub Timer1_Timer()
teller = teller + 1
Label1.Caption = Label1.Caption & ">"
If teller = 20 Then
teller = 0
End If
End Sub
Ho kan ik doen doen om alles continu te laten lopen(herhalen) tot ik de timer stop met
Code: 
Timer1.Enabled=False
?
dank U
 
Laatst bewerkt:
Het is opgelost. Zo

Code: 
Dim teller As Integer
Private Sub Timer1_Timer()
teller = teller + 1
Label1.Caption = Label1.Caption & ">"
If teller = 20 Then
teller = 0
label1.caption="" [COLOR="#FF0000"]<--------------[/COLOR]
End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan