Visual Basic NET ( 2)


13.6.5. - 2


Dim 1 As New Bitmap("1.png")

Dim 2 As New Bitmap("2.png")

Dim 3 As New Bitmap("3.png")

Dim N As Integer = 0

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

Me.BackgroundImage = Image.FromFile(".jpg")

1.MakeTransparent(Color.White)

2.MakeTransparent(Color.White)

3.MakeTransparent(Color.White)

PictureBox1.BorderStyle = BorderStyle.None

PictureBox1.BackColor = Color.Transparent

PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize

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 ' N 1

If N = 4 Then N = 0 ' 3 0, 4

PictureBox1.Left = PictureBox1.Left - 10

End Sub

N = N + 1 ' N 1

If N = 4 Then N = 0 ' 3 0, 4

N = (N + 1) Mod 4

93.      

. , , . : .

94.      

. , . , . . Paint, PhotoShop - , . , , .