雙擊計(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語(yǔ)句來判斷圖片的位置。如果圖片還沒有移動(dòng)到圖片框的右端,則繼續(xù)右移;如果圖片移出了圖片框的右端,則將圖片的位置調(diào)整到圖片框的左斷。
為了能使【開始】按鈕和【停止】按鈕可以控制圖片的移動(dòng),只需使用它們來控制計(jì)時(shí)器的有效性就可以了(因?yàn)榭刂茍D片移動(dòng)的代碼在計(jì)時(shí)器的Timer事件過程中).如果計(jì)時(shí)器有效(Enabled屬性為True),則圖片不斷移動(dòng),如果計(jì)時(shí)器無效(Enabled屬性為False),則圖片停止移動(dòng)。
編寫【開始】與【停止】按鈕的Click事件過程如下:
Private Sub ComStart_Click()
Timerl.Enabled=Ture
End Sub
Private Sub ComStop_Click()
Timerl.Enabled.False
End Sub
這樣,一個(gè)簡(jiǎn)單的飛機(jī)飛行動(dòng)畫就制作完畢,讀者可以通過更改Timer事件過程,來使飛機(jī)做更復(fù)雜的運(yùn)動(dòng)。
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |