Visual Basic NET ( 3)


         


1_.RotateFlip(RotateFlipType.RotateNoneFlipX) '
2_.RotateFlip(RotateFlipType.RotateNoneFlipX)
3_.RotateFlip(RotateFlipType.RotateNoneFlipX)
PictureBox1.BorderStyle = BorderStyle.None
PictureBox1.BackColor = Color.Transparent
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.Image = 1_頠 '
Timer1.Enabled = False '
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Select Case N
Case 0 : PictureBox1.Image = 1
Case 1 : PictureBox1.Image = 2
Case 2 : PictureBox1.Image = 3
Case 3 : PictureBox1.Image = 2
End Select
N = (N + 1) Mod 4
PictureBox1.Left = PictureBox1.Left + dx
End Sub
' :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dx = 10
1 = 1_頠 '
2 = 2_
3 = 3_
Timer1.Enabled = True '
End Sub
' :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dx = -10
1 = 1_頠 '
2 = 2_
3 = 3_
Timer1.Enabled = True '
End Sub

    





Forekc.ru
, , , , , , , , , ,