Springen naar inhoud


- - - - -
VB6

Een Label



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

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 162 berichten
    Laatst bezocht 10 okt 2019 16:54

Geplaatst op 06 oktober 2019 - 16:07

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 12 okt 2019 15:13

Geplaatst op 06 oktober 2019 - 16:44

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 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 162 berichten
    Laatst bezocht 10 okt 2019 16:54

Geplaatst op 06 oktober 2019 - 18:20

Uhm, Ludi,

ik ben niet duidelijk genoeg geweest

In label wordt het teken '>'  20 keer na elkaar getoond

Ik wil dat na de  20ste keer, alles wordt gewist en alles terug opnieuw begint.

Totdat ik de timer stopzet.

#4 Ludi

Ludi

    Professional Developer

  • Leden
  • PipPipPipPip
  • 357 berichten
    Laatst bezocht 12 okt 2019 15:13

Geplaatst op 06 oktober 2019 - 18:27

Dat klopt dat gebeurd hier ook. Alleen nu wordt het woordje 'Klaar' erin gezet. Dat kun je vervangen.

#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 162 berichten
    Laatst bezocht 10 okt 2019 16:54

Geplaatst op 06 oktober 2019 - 18:44

Na 20 keer ">" wordt 'Klaar' inderdaat getoond. En dan stopt.

Ik wil dat na 20 keer '>" wordt van 0 begonen en nogmaals 20 keer '>" getoond worden
en zo verder tot ik alles stop met Timer.enabled=False

#6 Ludi

Ludi

    Professional Developer

  • Leden
  • PipPipPipPip
  • 357 berichten
    Laatst bezocht 12 okt 2019 15:13

Geplaatst op 06 oktober 2019 - 19:58

Bedoel je het zo

Visual Basic Code:
Dim teller As Integer

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

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 = ""
End If

End Sub

Ludi

#7 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 162 berichten
    Laatst bezocht 10 okt 2019 16:54

Geplaatst op 06 oktober 2019 - 20:07

Ja, Ludi, dat bedoelde ik !!!

Het was toch zo simpel maar ik raakte niet uit.

Opgelost  !!!!!

Zeer Bedankt

Houthalen

#8 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 677 berichten
    Laatst bezocht gisteren, 20:41
  • LocatieMechelen (BE)

Geplaatst op 12 oktober 2019 - 08:38

Dit is "beter" je maakt eerst een selectie voor dat je de teller ophoogt/label veranderd
Visual Basic Code:
Private Sub Timer1_Timer()
If teller => 20 Then
teller = 0
Label1.Caption = ""
else
Label1.Caption = Label1.Caption & ">"
teller = teller + 1
End If
End Sub






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)