PHP expert |
|
Je kan met een timer object werken. Stel dat je timer object Timer noemt en je stelt in dat hij om de 100ms een tick uitvoert (dubbelklik in je editor op die Timer object voor de sub Tick te maken).
Je maakt een variable in je formulier: Dim teller As Integer = 0;
Je hebt nu 5 afbeeldingen en het object van van de afbeelding noemt bijvoorbeeld PictureBox_Vuur en je afbeeldingen noemen vuur_0 ... vuur_4
Private Sub Tick......
Me.teller += 1;
Dim x As Integer = Me.teller % 5;
If x = 1 Then
PictureBox_Vuur.Image = New Image(vuur_1)
ElseIf x = 2 Then
...
Else 'x = 0 , eerste afbeelding laden
PictureBox_Vuur.Image = New Image(vuur_0)
End Sub
Private Sub Tick...... Me.teller += 1; Dim x As Integer = Me.teller % 5; If x = 1 Then PictureBox_Vuur.Image = New Image(vuur_1) ElseIf x = 2 Then ... Else 'x = 0 , eerste afbeelding laden PictureBox_Vuur.Image = New Image(vuur_0) End Sub
Die image toekennig is wat pseudo omdat ik die code niet meer exact ken voor New Image. Maar Vuur_0 is dus het vuur zelf en Vuur_4 is dus het minst zichtbare vuur. |