비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-이미지가 바뀌면서 애니메이션 시키기,Resources, PictureBox,Select Case

vb.net 강좌-이미지가 바뀌면서 애니메이션 시키기

위처럼 좌에서 우로 이미지가 변하면서 움직이는 애니메이션입니다.

pictureBox 와  Timer 를 화면에 배치합니다.

Timer 속성을 위와 같이 설정합니다.

pictureBox 속성창에서 Image 우측을 클릭해서 이미지 5개를 resource 등록합니다.그리고 Size와 SizeMode 를 유의하시고요..

Timer 를 클릭하면 Timer1_Tick 이벤트에 코드를 적용합니다.

Public Class Form1

    Dim a As Integer = 1

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

        PictureBox1.Location = New Point(PictureBox1.Location.X + 10, PictureBox1.Location.Y)

        Select Case a

            Case 1

                PictureBox1.Image = My.Resources.p1

                a += 1

            Case 2

                PictureBox1.Image = My.Resources.p2

                a += 1

            Case 3

                PictureBox1.Image = My.Resources.p3

                a += 1

            Case 4

                PictureBox1.Image = My.Resources.p4

                a += 1

            Case 5

                PictureBox1.Image = My.Resources.p5

                a = 1

        End Select

    End Sub

End Class