Easy VB

Label1.Caption = CInt(Label1.Caption) + 1

if cint(label1.caption) > xxx then
  label1.caption = 0
end if

Anders

Anders>>

Den virker ikke..

Kan du bruge noget i den her retning:

Private Sub UserForm_activate()
    TællerMax = 10000
    For Tæller = 1 To TællerMax
        Label1.Caption = Tæller
        UserForm1.Repaint
    Next Tæller
End Sub

klik på din timer når du har sat den på formen, husk at den skal være enabled, og skriv i dens kode (dobbeltklik på timeren på formen for at se præcis hvad den sub hedder, kan ikke lige huske det) at hver gang den tæller (du skal selv indstille i properties hvor hurtigt det er) skal den:

if val(label1.caption)< maksimum -1 then
    label1.caption = val(label1.caption)+1
else
    \'den kode du vil have når du er \"løbet tør\"
end if

jeg går ud fra du har en maksimumværdi i en variabel, ellers forstår jeg ikke helt hvad du mener med en variabel der løber tør?

hvis du sætter din tæller til at være vildt hurtig, så smid lige en DoEvents eller to  ind i sub\'en lige før \"if\" :-)

Hej Daniel

prøv lige at lægge dette på form load

Private Sub Form_Load()
    Label1.Caption = 0
End Sub

Det kan være fordi at vb tror den skal sige \"label1\" + 1 = ????
En streng + et tal går ikke.

og dette på din timer

Private Sub Timer1_Timer()
Label1.Caption = CInt(Label1.Caption) + 1
If CInt(Label1.Caption) > 100 Then
    Label1.Caption = 0
End If

End Sub



Anders

bare af nysgerrighed - siden du har accepteret svaret

fra dk_akj
17/09 2001 12:43:52 

hvad bruger du så din timer til?