hei og hopp... Jeg driver fortsatt på det samme prosjektet hvis noen fikk med seg den forrige tråden.
Visual Basic er tingen her.
Problemet nå er sånn at jeg har en timer og etter 5 sekunder (bare brukte det før å prøve)
så bytter den ut cmdbuttons...
Men jeg har prøvd å få opp en label som den skal telle ned på, men den viser ikke noe før telleren har telt seg ferdig, da viser den "0".
Skulle gjerne hatt den til å vise 5, 4, 3 osv...
her kommer den koden jeg har så hvis noen gidder å se over og rette/legge til ting og tang.
Visual Basic er tingen her.
Problemet nå er sånn at jeg har en timer og etter 5 sekunder (bare brukte det før å prøve)
så bytter den ut cmdbuttons...
Men jeg har prøvd å få opp en label som den skal telle ned på, men den viser ikke noe før telleren har telt seg ferdig, da viser den "0".
Skulle gjerne hatt den til å vise 5, 4, 3 osv...
her kommer den koden jeg har så hvis noen gidder å se over og rette/legge til ting og tang.
Kode
Private Sub cmdGiopp_Click() End End Sub Private Sub lblTimer_Click() If tmrTid.Interval = 0 Then lblTimer.Caption = "5" ElseIf tmrTid.Interval = 1000 Then lblTimer.Caption = "4" ElseIf tmrTid.Interval = 2000 Then lblTimer.Caption = "3" ElseIf tmrTid.Interval = 3000 Then lblTimer.Caption = "2" ElseIf tmrTid.Interval = 4000 Then lblTimer.Caption = "1" ElseIf tmrTid.Interval = 5000 Then lblTimer.Caption = "0" End If End Sub Private Sub Timer1_Timer() cmdOption1.Visible = False cmdOption2.Visible = False cmdOption3.Visible = False cmdOption4.Visible = False cmdOption21.Visible = True cmdOption22.Visible = True cmdOption23.Visible = True cmdOption24.Visible = True End Sub Private Sub tmrTid_Timer() If tmrTid.Interval = 0 Then lblTimer.Caption = "5" If tmrTid.Interval = 1000 Then lblTimer.Caption = "4" If tmrTid.Interval = 2000 Then lblTimer.Caption = "3" If tmrTid.Interval = 3000 Then lblTimer.Caption = "2" If tmrTid.Interval = 4000 Then lblTimer.Caption = "1" If tmrTid.Interval = 5000 Then lblTimer.Caption = "0" End Sub