VC實現動畫應用兩則

VC實現動畫應用兩則

華北石油研究院
李莉莉

---- 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 here
pt1.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(LPCREATESTRUCT
lpCreateStruct)
{
if (CView::OnCreate(lpCreateStruct) == -1)
return -1;
// TODO: Add your specialized creation code here
CreateImageList();
SetTimer(1,500,NULL);
return 0;
}
響應ON_TIMER消息,顯示動畫:
void CImageView::OnTimer(UINT nIDEvent)
{
// TODO: Add your message handler code
 here and/or call default
CDC *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 members
CStatusBar m_wndStatusBar;

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

void CMainFrame::OnTimer(UINT nIDEvent)
{
// TODO: Add your message handler code 
here and/or call default
if(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 default
if(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);

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