Warum funktioniert dieses kleine Programm nicht ?
Public Class frm0212
Dim instance As Timer
Dim value As Integer
Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
timAnzeige.Enabled = False
End Sub
Private Sub timAnzeige_tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timAnzeige.Click
timAnzeige.Text &= "x"
End Sub
Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
timAnzeige.Enabled = True
value = 1000
instance.Interval = value
End Sub
Private Sub frm0212_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Wer weiß Rat ?
