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 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);

---- 就可以使图标动起来。当然为了使程序工作得更好,您最好重建一套图标资源。