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
  • 165 berichten
    Laatst bezocht 14 nov 2019 19:03

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
  • 357 berichten
    Laatst bezocht 22 okt 2019 22:48

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
  • 691 berichten
    Laatst bezocht vandaag, 13:35
  • 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)