vb timercontrol, virker ikke

Nej, men du kan kun anvende den på en form.

Eller en usercontrol!

Dim dwTime 'skal være en global variabel

Private Sub Form_Load()
    Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer()
    If Timer1.Enabled Then
        dwTime = dwTime + 1
        lblTid.Caption = CStr(dwTime)
    End If
End Sub


Private Sub cmdChois_Click()

    Timer1.Enabled = Not Timer1.Enabled
   
    If Timer1.Enabled Then
        cmdChois.Caption = "&Stop"
    Else
        cmdChois.Caption = "&Start"
    End If
End Sub

//>Rune

tak

Kommentar til ovenstående - på din form skal naturligvis være en knap 'cmdChois' og en Label 'lblTid' og et Timerobjekt 'Timer1'. For at få det til at virke skal du huske at sætte Timer1's Interval til en værdi, f.eks. 100 (= 1 sek)...

martin_moth < 1000 (= 1 sek)... ;-)

martin_moth> ;-)

Thx 4 poinz
//>Rune