動畫(課本第七章課堂練習)

PictureBox元件 *4, Button元件*2

程式檔案 圖片檔案

程式碼

Public Class Form1

    Dim num As Integer ' 宣告全域變數num，用來表示目前顯示的數字

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       PictureBox1.Visible = False '將圖片控制項隱藏
       PictureBox2.Visible = False : PictureBox3.Visible = False
       Timer1.Interval = 200 ' 每0.2秒執行Timer1_Tick事件程序一次
       Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If num = 1 Then ' 當num=1時，則令num等於3，否則減1
          num = 3
       Else
          num -= 1
       End If
    Select Case num
       Case 1 ' 若num等於1，PictureBox4則顯示 dog1.bmp
          PictureBox4.Image = PictureBox1.Image
       Case 2 ' 若num等於2，PictureBox4則顯示 dog2.bmp
          PictureBox4.Image = PictureBox2.Image
       Case 3 ' 若num等於3，PictureBox4則顯示 dog3.bmp
          PictureBox4.Image = PictureBox3.Image
    End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       End
    End Sub
End Class