Dim aktuellesBild As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case aktuellesBild
Case 0
PictureBox1.BackgroundImage = My.Resources._1
aktuellesBild = 1
Case 1
PictureBox1.BackgroundImage = My.Resources._0
aktuellesBild = 0
End Select
End Sub
Ein "Problem" ist das allerdings nicht. Wenn doch, sieht es ganz duster aus für die Zukunft.
|