Et program som skal nedtælle fra 100?

husk en timer1 og command1 + en lable1


Option Explicit

Private intCount As Integer

Private Sub Command1_Click()
  intCount = 100
  Command1.Enabled = False
  Timer1.Enabled = True 'start timer
End Sub

Private Sub Form_Load()
  intCount = 100
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  intCount = (intCount - 1)
  If intCount = 0 Then
    Timer1.Enabled = False
    intCount = 100
    MsgBox "Print"
  End If
  If Text1.Text = "1234" Then
    Timer1.Enabled = False
    MsgBox "Stoppet"
  End If
  Label1.Caption = intCount
End Sub

og lige en Text1 ;)

Private intCount As Integer -> Private?
intCount = (intCount - 1) -> (intCount - 1) ?

- Du kan vel nøjes med "dim intCount As Integer" og "intCount = intCount - 1"..

- Ville det ikke være bedre, at lave Timer-koden om til en IF-THEN-ELSE sætning?

if text1.text = "1234" then
  ' stop timeren
  ' "nulstil" intCount
  ' msgbox "stoppet"
else
  ' intCount..
  '
end if

' opdater label..

Jo, jeg kunne have skrevet koden, men jeg er for doven :-)

/theSurfer

sjh -> Det virkede... tusind tak.. opret et svar, så skal du på point.

/maabjerg

jo tak.. ;)

thesurfer > Ja.. man kan jo lave sin kode på 1000 måder.. men nu lavede jeg den uden ELSE..