Windows(9x)支持的VC曾是應用最廣的語言之一，現在仍然有著廣大的用戶。筆者是VC的“信徒”之一，在這上面耗費了不少時間，與將筆者的兩則應用實例介紹給大家，希望能與大家共同交流。

---- 一.在VC中實現快速動畫

---- 快速動畫是指每隔一段很小的時間間隔就快速擦去原有畫面，并重新畫上新的畫面的動畫技術。快速動畫成功的關鍵就在于擦去和重畫的速度必須很快，否則畫面就會有閃爍現象。

---- 在VB中制作快速動畫比較簡單，只要把窗體的AutoRedraw屬性設置為true，再直接調用API函數BitBlt，畫完一幀Refresh一次。但VC的窗體沒有AutoRedraw屬性，只要一使用BitBlt，窗體就會自動刷新，由于一幀畫面往往要幾次用到BitBlt，畫面就閃爍起來了。解決的辦法就是自己定義一個不可見的緩沖區，其大小應與目標窗體相同，先在緩沖區上把一幀的畫面畫完，再用一次BitBlt函數把緩沖區的圖案貼到窗體上。請看下例： //在TForm1 *Form1;的后面添上這三句

Graphics::TBitmap *p;Graphics::TBitmap *q;int xx=0;//---------------------void __fastcall TForm1::FormCreate(TObject *Sender){p=new Graphics::TBitmap;//這存放的就是要貼到窗體上的小圖案p->Handle=LoadBitmap(HInstance，"aaa");//從資源文件中載入小圖案q=new Graphics::TBitmap;//定義緩沖區qq- >Width=Width;//使緩沖區的大小與窗體相同q- >Height=Height;PatBlt(q- >Canvas- > Handle，0，0，q- >Width，q- >Height，0);//把緩沖區的背景變為黑色}//-------???void __fastcall TForm1::FormDestroy(TObject *Sender){//程序結束時釋放內存delete p;delete q;}//--------------------void __fastcall TForm1::Timer1Timer(TObject *Sender){//窗體上要加上一個Timer控件xx＋=2;PatBlt(q- >Canvas- >Handle，0，0，Width，Height，0);//把緩沖區的背景變為黑色，同時擦去了舊的畫面BitBlt(q- >Canvas- >Handle，xx，0，p- >Width，p- >Height，p- >Canvas- >Handle，0，0，SRCCOPY);//正在緩沖區上制作一幀的畫面，這幾句是不可見的BitBlt(q- >Canvas- >Handle，xx，50，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);BitBlt(q- >Canvas- >Handle，xx，150，p- >Width，p- >Height，p- >Canvas- >Handle，0，0，SRCCOPY);BitBlt(q- >Canvas- >Handle，xx，200，p- >Width，p- >Height，p- >Canvas- >Handle，0，0，SRCCOPY);BitBlt(q- >Canvas- >Handle，xx，250，p- >Width，p- >Height，p- >Canvas- >Handle，0，0，SRCCOPY);BitBlt(q- >Canvas- >Handle，xx，300，p- >Width，p- >Height，p- >Canvas- >Handle，0，0，SRCCOPY);BitBlt(Canvas- >Handle，0，0，Width，Height，q- >Canvas- >Handle，0，0，SRCCOPY);//把緩沖區的畫面貼到窗體上}

---- 如果實際應用時，像上面的程序那樣，把畫動畫的語句放在Timer控件的OnTimer事件中，就可能會有一個小問題。如果用戶暫停了動畫，窗體又正好產生了重畫事件(比如窗體被最小化后又被恢復)，那窗體上的畫面就會消失。這是因為窗體被重畫時，只畫了窗體的通用部分，Windows并不知道原來的窗體上有自定義的畫面。要想讓Windows把畫面恢復原樣，必須把畫動畫的語句放在窗體的OnPaint事件中，Timer控件的OnTimer事件中只寫決定圖案位置的語句(如本例中的xx＋=2；)和一句RePaint。修改后具體的程序我就省略了，大家可以自己完成。

---- 二.在VC程序中插入微型動畫

---- 下面利用CImageList類保存數幅畫面,利用Draw函數在一定的時間間隔播放出來,形成了類似GIF動畫的效果。該方法可以在Window的客戶區內、工具條上、狀態條上播放動畫。這里還給出了利用SetIcon函數在窗口標題欄上播放動畫的方法。

---- (一)、原理

---- 在VC中有一個CImageList類可以以圖像列表的方式管理圖像,圖像列表中的圖像大小相同,索引以0為開始,每個圖像都可以單獨引用。Microsoft 的API提供了一系列的函數,您可以利用這些函數創建、銷毀圖像列表,可以顯示圖像、增加和刪除圖像,替代、合并和拖動圖像。

---- CImageList 類提供了Windows圖像列表通用控件功能。下面對本文用到的函數簡要說明如下:

BOOL Create( int cx, int cy, UINT nFlags, int nInitial, intnGrow );

---- 該函數用于創建一個圖像列表。 cx,cy 是每個圖像的寬度和高度;nFlags是圖像列表的類型,其值僅可包含一個ILC_COLOR值。其詳細取值參見VC在線幫助。nInitial為圖像列表最初含有的圖像數目;nGrow為當圖像數量需要改變時,每次動態增長的圖像數。

BOOL Draw( CDC* pdc, int nImage, POINT pt, UINT nStyle );

---- 該函數用于顯示一個圖像。pdc為目標設備上下文的指針;nImage為要顯示的圖像索引;pt為圖像顯示的位置;nStyle為圖像顯示風格,詳見在線幫助。

HICON ExtractIcon( int nImage );利用該函數可以得到一函數的句柄:int Add( HICON hIcon );該函數把一個圖像加入圖像列表中。

---- (二)、編程與實現

---- 首先,建立圖表資源。在VC6.0中利用資源編輯器,建立幾幅圖表,IDI_ICON1、IDI_ICON2、IDI_ICON3......在編輯圖標時選擇Custom,將圖標設置成大小為64X32。由于Windows的各個部件不完全相同,其實現方法也不完全相同,下面對在窗口不同位置顯示動畫的方法分別加以介紹。

---- 1. 在View類客戶區繪制動畫

---- 在類的定義文件中加入下列變量:

POINT pt1;//圖像顯示的位置int m_Play; //將要顯示圖像的索引void CreateImageList();//創建圖像列表的函數CImageList m_ImageList1;//圖像列表對象int m_ImageNumber; //圖像列表中圖像的總數目首先初始化pt1.m_Play、m_ImageNumber:CImageView::CImageView(){// TODO: add construction code herept1.x =1;pt1.y =1;m_Play=0;m_ImageNumber=0;}CreateImageList()的實現如下:void CImageView::CreateImageList(){m_ImageList1.Create (64,32,ILC_COLOR,5,2);HICON hIcon = ::LoadIcon(AfxGetResource-Handle(),MAKEINTRESOURCE(IDI_ICON1));m_ImageList1.Add(hIcon);m_ImageNumber++;hIcon = ::LoadIcon(AfxGetResourceHandle(),MAKEINTRESOURCE(IDI_ICON2));m_ImageList1.Add(hIcon);m_ImageNumber++;hIcon = ::LoadIcon(AfxGetResourceHandle(),MAKEINTRESOURCE(IDI_ICON3));m_ImageList1.Add(hIcon);m_ImageNumber++;//把您要播放的所有資源加入圖像列表。}在OnCreate函數中設置計時器,并創建圖像列表:int CImageView::OnCreate(LPCREATESTRUCTlpCreateStruct){if (CView::OnCreate(lpCreateStruct) == -1)return -1;// TODO: Add your specialized creation code hereCreateImageList();SetTimer(1,500,NULL);return 0;}響應ON_TIMER消息,顯示動畫:void CImageView::OnTimer(UINT nIDEvent){// TODO: Add your message handler code here and/or call defaultCDC *pDC=GetDC();if(m_Play >m_ImageNumber)m_Play=0;m_ImageList1.Draw(pDC,m_Play,pt1,ILD_TRANSPARENT);m_Play++;ReleaseDC(pDC);CView::OnTimer(nIDEvent);}

---- 最后別忘了在OnDestroy函數中,增加在窗口撤銷時中止定時器的代碼。

---- 2. 在狀態條上顯示動畫

---- 由于狀態條也是窗口,所以也可以在其上顯示動畫。在CMainFrame類中可以看到下列代碼:

protected: // control bar embedded membersCStatusBar m_wndStatusBar;

---- 所以為了在狀態條上顯示動畫,其編程代碼應在CMainFrame類中加入。首先創建資源文件和圖像列表類,具體方法和代碼見View類客戶區繪制動畫一節,此處不再重復。下面給出ON_TIMER的響應函數:

void CMainFrame::OnTimer(UINT nIDEvent){// TODO: Add your message handler code here and/or call defaultif(m_Play >m_ImageNumber)m_Play=0;//如果圖畫為最后一個,顯示第一幅圖片CDC *pDC=this- >m_wndStatusBar. GetDC();ASSERT(pDC!=NULL);pt1.x=1;pt1.y =1;m_ImageList1.Draw(pDC,m_Play,pt1,ILD_TRANSPARENT);ReleaseDC(pDC);m_Play++;CFrameWnd::OnTimer(nIDEvent);}

---- 上述代碼將在狀態條左上方播放動畫。

---- 3. 在工具欄上播放動畫

---- 由于工具欄的性質與狀態條差不多,其播放動畫的方法也相似,下面給出ON_TIMER的響應函數:

void CMainFrame::OnTimer(UINT nIDEvent){// TODO: Add your message handler code here and/or call defaultif(m_Play >m_ImageNumber)m_Play=0;//如果圖畫為最后一個,顯示第一幅圖片CRect rect;CDC *pDC;pDC=this- >m_wndToolBar.GetDC();ASSERT(pDC!=NULL);this- >m_wndToolBar.GetClientRect(&rect);//獲得顯示有效區域pt1.x =rect.right -64; //將顯示位置定在最右邊pt1.y=1;m_ImageList1.Draw(pDC,m_Play,pt1,ILD_TRANSPARENT);ReleaseDC(pDC);m_Play++;CFrameWnd::OnTimer(nIDEvent);}

---- 上述代碼將在工具欄右上方播放動畫。但如仔細觀察,動畫的位置并不是靠近窗口最右邊,這是因為工具欄的窗口有邊界,采用如下方法,可以把畫面移到窗口右邊:

pDC=GetDC ();//獲得CMainFrame的畫圖設備指針ASSERT(pDC!=NULL);this- >GetClientRect(&rect);pt1.x =rect.right-64 ;pt1.y=rect.top+3 ;m_ImageList1.Draw(pDC,m_Play,pt1,ILD_TRANSPARENT);ReleaseDC(pDC);這是因為工具欄占據的位置屬于CMainFrame的客戶區。

---- 4. 使圖標變成動畫

---- 在CWnd類中有一個函數:

HICON SetIcon( HICON hIcon, BOOL bBigIcon);可以改變窗口的圖標,所以您可以通過使用該函數不斷地改變圖標使圖標動起來,效果像GetRight一樣。 在OnTimer函數中加入下列代碼:SetIcon(m_ImageList1.ExtractIcon(m_Play),FALSE);

---- 就可以使圖標動起來。當然為了使程序工作得更好,您最好重建一套圖標資源。

總結

以上是生活随笔為你收集整理的VC实现动画应用两则的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。