VC实现动画应用两则

类别:VC语言 点击:0 评论:0 推荐:
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);

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

本文地址:http://com.8s8s.com/it/it3601.htm