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

　　Private Sub Timer1_Timer()

　　If Ima.Left<=Pic.width Then

　　Ima.Move Ima.Left+100

　　Else

　　Ima.left=-400

　　End If

　　End Sub

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

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

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

　　Private Sub ComStart_Click()

　　Timerl.Enabled=Ture

　　End Sub

　　Private Sub ComStop_Click()

　　Timerl.Enabled.False

　　End Sub

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

　　2010年9月計(jì)算機(jī)等級考試成績查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總

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

　　2011年上半年計(jì)算機(jī)等級考試報(bào)名時(shí)間匯總