klok-kleur

[Maaarten]

Ik heb een programma dat om de zoveel tijd van kleur veranderd maar hij doet dit maar 1 keer van rood naar zwart maar naar groen gaat hij dus niet

Public Class Form1
    Dim flag As Boolean
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        kleur.BackColor = Color.Red

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        flag = True
        If flag = False Then
            kleur.BackColor = Color.Green
            flag = True
        Else
            kleur.BackColor = Color.Black
            flag = False
        End If

    End Sub


End Class

 

[The Mighty Atom]

Zou werkt het wel:

Public Class Form1

    Dim flag As Boolean = True

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.BackColor = Color.Red

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If flag = True Then
            Me.BackColor = Color.Black
            flag = False
        Else
            Me.BackColor = Color.Green
            flag = True
        End If

    End Sub

End Class

Ik heb kleur vervangen door Me. Kwestie van terug veranderen.

 

[Maaarten]

Oke bedankt