雙擊計時器控件，打開【代碼】窗口，編寫計時器的Timer事件過程如下：

　　Private Sub Timer1_Timer()

　　If Ima.Left<=Pic.width Then

　　Ima.Move Ima.Left+100

　　Else

　　Ima.left=-400

　　End If

　　End Sub

　　在該段代碼中，使用了一個If語句來判斷圖片的位置。如果圖片還沒有移動到圖片框的右端，則繼續(xù)右移;如果圖片移出了圖片框的右端，則將圖片的位置調(diào)整到圖片框的左斷。

　　為了能使【開始】按鈕和【停止】按鈕可以控制圖片的移動，只需使用它們來控制計時器的有效性就可以了(因為控制圖片移動的代碼在計時器的Timer事件過程中).如果計時器有效(Enabled屬性為True),則圖片不斷移動，如果計時器無效(Enabled屬性為False),則圖片停止移動。

　　編寫【開始】與【停止】按鈕的Click事件過程如下：

　　Private Sub ComStart_Click()

　　Timerl.Enabled=Ture

　　End Sub

　　Private Sub ComStop_Click()

　　Timerl.Enabled.False

　　End Sub

　　這樣，一個簡單的飛機飛行動畫就制作完畢，讀者可以通過更改Timer事件過程，來使飛機做更復(fù)雜的運動。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習(xí)題匯總

　　2011年計算機等級考試二級VB復(fù)習(xí)指導(dǎo)匯總

　　2011年上半年計算機等級考試報名時間匯總