Er zijn 2 reacties in dit onderwerp

[houthalen]

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 (dus herhalen) tot ik de timer stop met
Timer1.enabled=false?

dank U

[Ludi]

Dat zou je zo kunnen doen.

Visual Basic Code:

Dim teller As Integer

Public Sub Form_load()

Timer1.Interval = 250 ' Millisecondes
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()


teller = teller + 1
Label1.Caption = Label1.Caption & ">"

If teller = 20 Then
teller = 0
Label1.Caption = "Klaar"
Timer1.Enabled = False
End If

End Sub

Ludi

[Damic]

Zie topic http://www.vbib.be/i...3656-een-label/

Veranderd door Damic, 12 oktober 2019 - 08:39.