[Visual Baisc 6.0] Mouse 事件實作簡易動畫

2013-11-13

摘要:[Visual Baisc 6.0] Mouse 事件實作簡易動畫

Dim PictureNumber ' 設定目前圖片索引
Dim Image2PictureNumber ' 設定目前圖片索引
Dim TempX, TempY ' 紀錄目前 暫存 X,Y 軸

Private Sub Form_Load()

End Sub

Private Sub Image2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) ' 這是利用 MouseMove 的動畫
    If Abs(X - TempX) > 500 Or Abs(Y - TempY) > 500 Then ' 為了不要讓動畫會隨著每次移動就改變狀態,必須移動 X 或 Y 軸 500點以上才會改變狀態
        TempX = X ' X 放入暫存
        TempY = Y ' Y 放入暫存
        Image2(Image2PictureNumber).Visible = False ' 目前這張設為 隱藏
        Image2PictureNumber = Image2PictureNumber + 1 ' 索引換到下一張
        If Image2PictureNumber > 4 Then Image2PictureNumber = 0 ' 判斷索引如果超過圖片總索引則回到 0 開始
        Image2(Image2PictureNumber).Visible = True ' 新圖片設為 顯示
    End If
End Sub

Private Sub Timer1_Timer() ' 這是利用 Timer 的動畫
    Image1(PictureNumber).Visible = False ' 目前這張設為 隱藏
    PictureNumber = PictureNumber + 1 ' 索引換到下一張
    If PictureNumber > 4 Then PictureNumber = 0 ' 判斷索引如果超過圖片總索引則回到 0 開始
    Image1(PictureNumber).Visible = True ' 新圖片設為 顯示
End Sub

[Visual Baisc 6.0] Mouse 事件實作簡易動畫.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁