vc實(shí)現(xiàn)動(dòng)畫應(yīng)用兩則-wenkub
2022-09-15 16:49:02 本頁(yè)面
【正文】 q Canvas Handle， xx， 300， p Width， p Height， p Canvas Handle， 0， 0， SRCCOPY)。 BitBlt(q Canvas Handle， xx， 100， p Width， p Height， p Canvas Handle， 0， 0， SRCCOPY)。}// void __fastcall TForm1::Timer1Timer (TObject *Sender) {//窗體上要加上一個(gè) Timer控件 xx＋ =2。 //使緩沖區(qū)的大小與窗體相同 q Height=Height。// void __fastcall TForm1::FormCreate (TObject *Sender) {p=new Graphics::TBitmap。請(qǐng)看下例： //在 TForm1 *Form1?？焖賱?dòng)畫成功的關(guān)鍵就在于擦去和重畫的速度必須很快，否則畫面就會(huì)有閃爍現(xiàn)象。 在 VB 中制作快速動(dòng)畫比較簡(jiǎn)單，只要把窗體的 AutoRedraw 屬性設(shè)置為 true，再直接調(diào)用 API函數(shù) BitBlt，畫完一幀 Refresh一次。的后面添上這三句 Graphics::TBitmap *p。 //這存放的就是要貼到窗體上的小圖案 pHandle=LoadBitmap(HInstance， aaa)。PatBlt(q Canvas Handle， 0， 0， q Width， q Height， 0)。PatBlt(q Canvas Handle， 0， 0， Width， Height， 0)。 BitBlt(q Canvas Handle， xx， 150， p Width， p Height， p Canvas Handle， 0， 0， SRCCOPY)。 BitBlt(Canvas Handle， 0， 0， Width， Height， q Canvas Handle， 0， 0， SRCCOPY)。要想讓 Windows 把畫面恢復(fù)原樣，必須把畫動(dòng)畫的語(yǔ)句放在窗體的 OnPaint事件中， Timer控件的 OnTimer事件中只寫決定圖案位置的語(yǔ)句 (如本例中的 xx＋ =2； )和一句 RePaint。這里還給出了利用 SetIcon函數(shù)在窗口標(biāo)題欄上播放動(dòng)畫的方法。下面對(duì)本文用到的函數(shù)簡(jiǎn)要說(shuō)明如下 : BOOL Create( int cx, int cy, UINT nFlags, int nInitial, intnGrow )。其詳細(xì)取值參見 VC 在線幫助。 該函數(shù)用于顯示一個(gè)圖像。nStyle為圖像顯示風(fēng)格 ,詳見在線幫助。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1