타이머와 버튼2개 픽쳐박스를 화면에 배치합니다.
PictureBox 우측상단의 역삼각형을 클릭해서 image를 import 합니다. size mod는 StretchImage 로
위 그림처럼 Timer 셋팅을 합니다.
Public Class Form1
Dim num As Integer = 1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Select Case num
Case 1 ' num 변수를 하나씩 + 해서 그림을 차례대로 보여줍니다.
PictureBox1.Image = My.Resources.p1
num = 2
Case 2
PictureBox1.Image = My.Resources.p2
num = 3
Case 3
PictureBox1.Image = My.Resources.p3
num = 4
Case 4
PictureBox1.Image = My.Resources.p4
num = 5
Case Is = 5
PictureBox1.Image = My.Resources.p5
num = 1
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class
