Springen naar inhoud


- - - - -
VB6

Een Label Caption Oneindig Herhalen



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 181 berichten
    Laatst bezocht 02 apr 2024 15:55

Geplaatst op 06 oktober 2019 - 16:08

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

#2 Ludi

Ludi

    Professional Developer

  • Leden
  • PipPipPipPip
  • 362 berichten
    Laatst bezocht 14 mei 2024 11:42

Geplaatst op 06 oktober 2019 - 16:42

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

#3 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 887 berichten
    Laatst bezocht 21 mei 2024 20:37
  • LocatieMechelen (BE)

Geplaatst op 12 oktober 2019 - 08:35

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

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






Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)