vc實現(xiàn)動畫應(yīng)用兩則(已修改)
2024-09-20 16:49 本頁面
【正文】 VC 實現(xiàn)動畫應(yīng)用兩則 一 .在 VC 中實現(xiàn)快速動畫 快速動畫是指每隔一段很小的時間間隔就快速擦去原有畫面，并重新畫上新的畫面的動畫技術(shù)。快速動畫成功的關(guān)鍵就在于擦去和重畫的速度必須很快，否則畫面就會有閃爍現(xiàn)象。 在 VB 中制作快速動畫比較簡單，只要把窗體的 AutoRedraw 屬性設(shè)置為 true，再直接調(diào)用 API函數(shù) BitBlt，畫完一幀 Refresh一次。但 VC 的窗體沒有 AutoRedraw屬性，只要一使用 BitBlt，窗體就會自動刷新，由于一幀畫面往往要幾次用到 BitBlt，畫面就閃爍起來了。解決的辦法就是自己定義一個不可見的緩沖區(qū)，其大小應(yīng)與目標(biāo)窗體相同，先在緩沖區(qū)上把一幀的畫面畫完，再用一次 BitBlt函數(shù)把緩沖區(qū)的圖案貼到窗體上。請看下例： //在 TForm1 *Form1。的后面添上這三句 Graphics::TBitmap *p。Graphics::TBitmap *q。 int xx=0。// void __fastcall TForm1::FormCreate (TObject *Sender) {p=new Graphics::TBitmap。 //這存放的就是要貼到窗體上的小圖案 pHandle=LoadBitmap(HInstance， aaa)。 //從資源文件中載入小圖案 q=new Graphics::TBitmap。//定義緩沖區(qū) qq Width=Width。 //使緩沖區(qū)的大小與窗體相同 q Height=Height。PatBlt(q Canvas Handle， 0， 0， q Width， q Height， 0)。 //把緩沖區(qū)的背景變?yōu)楹谏?} // ? void __fastcall TForm1::FormDestroy (TObject *Sender) {//程序結(jié)束時釋放內(nèi)存 delete p。 delete q。}// void __fastcall TForm1::Timer1Timer (TObject *Sender) {//窗體上要加上一個 Timer控件 xx＋ =2。PatBlt(q Canvas Handle， 0， 0， Width， Height， 0)。 //把緩沖區(qū)的背景變?yōu)楹谏?，同時擦去 了舊的畫面 BitBlt(q Canvas Handle， xx， 0， p Width， p Height， p Canvas Handle， 0， 0， SRCCOPY)。 //正在緩沖區(qū)上制作一幀的畫面，這幾句是不可見的 BitBlt(q Canvas Handle， xx， 50， p W
公司管理相關(guān)推薦
鄂ICP備17016276號-1