用VisualBasic60实现电影特效

1、用Visual Basic6.0实现电影特效作者:日期:用Visual Basic6.0实现电影特效作者：佚名来源：In terNet加入时间：2005-1-28相关文章：« 在 Visual Basic 6.0 中创建 Word 文档« Visual Basic代码优化的六条军规«利用Visual Basic操作XML数据« Visual Basic 小游戏：猜英雄相关书籍：« Visual Basic 6.0 应用编程 150 例« Visual Basic 6.0控件参考手册« VISUAL BASIC 5 开发 WE

2、B数据库指 南« COOL 系列之 Visual Basic 6.0+VisualC+ 6.0« Visual Basic 语言参考-函数速查* Visual Basic 6中文版循序渐进教程* Visual Basic 6.0中文版语言参考手册« Visual Basic 6.0中文版范例入门与提* Visual Basic 6.0 中文版程序员指南* Visual Basic 6.0 Comp onent ToolsGuide组件电影或电视中经常可见到一些字幕或图片的动态变化特技，在制作多媒体教学软件或广告宣传等多媒体演示文档时，也常常需要用到一些图文的动态变

3、化效果。VB6.0作为Windows软件的强有力开发工具，在多媒体程序设计方面具有广阔的应用前景。本文 讨论运用VB6.0的定时器并结合Windows API函数实现图片或文字的动态缩放和渐隐 渐现等特技效果。、实现图文动态缩放和渐隐渐现特效的程序方法1、程序界面取窗体名为Form1 ,其Windowstate属性设为2。在窗体Form1中设置如下控件 和属性：一个标签控件 Label1，其 backcolor 等于 form1 的 backcolor; bondstyle 为 0, Autosize 为 True。一个图像控件 image1，其 Stratch 和 Visible 均为 Tr

4、ue ; Bordstyle 为 0。两个图片框控件Picture1 和 Picture2, Visible 属性 Picture1 为 False 而 Picture2为 True; AutoRedraw 属性 Picture1 为 True 而 Picture 为 False; ScaleModel 属性两者 均为Pixels; Bondstyle 属性两者均为 0。三个定时器控件 Timer1,Timer2 和Tirner3;命 令按钮控件数组cmd(0)，,Cmd(4)，其caption属性分别为：文字缩放”、图片缩放”、 文字隐现”、图片隐现”和退出”。2、文字的动态缩放通过VB6.

5、0的定时器控件定时改变文字的Size属性，就可达到文字被动态放大或缩小的效果。程序中通过 timerl的tuner过程来控制标签 Labell的caption属性文字 大小。由cmd(O)触发的cmd_click事件引发timer1_ time过程，通过一逻辑变量1(0)(数 组元素)控制文字的变化方式，1(0) = true时使字体动态放大，1(0) = false时使字体动 态缩小。3、图形的动态缩放将图像控件image1的stretch属性设为true，可实现控件中图片大小随imagel控件大小的变化而变化。通过定时器timer2的tuner过程定时改变imagel控件的尺寸大小，就达到

6、了使图片动态缩放的效果。由cmd(1)触发的cmd_click事件将引发timer2_time过程，通过逻辑变量1(1)控制图片变化的方式，1(1)=true时控制图片动态 放大，1(1)=false时控制图片动态缩小。4、文字的渐隐渐现效果从字符串中取若干个文字作为标签Label1的caption值，如果从字串中截取的文字数递增(直到等于字串的全部字数)，则实现文字渐现效果；而截取的文字如果递减(从字串的全部字数减到0)，则实现文字渐隐效果。通过定时器timer3的time:过程定时改变截取的字数，来达到此效果。由cmd(2)触发的。md_click事件引发timer3 _time过程，通过

7、逻辑变量 1(2)控制文字变化的方式，1(2)=true时使文字渐现，1(2)=false时 使文字渐隐。5、图形的渐隐渐现效果用Windows API函数BitBlt复制图片的方法实现。BitBlt函数的使用方法为：BitBlt hDestDC, x, y, nWidth, nHeight, hSrcDC, xSrc, ySrc,dwRop其中各参数的含义为:hDestDC和hSrcDC分别表示目标设备描述表句柄和源设备描述表句柄。即要把图片从 hSrcDC复制到hDestDC。Picturellox控件的hDC属性就 是我们要用到的设备描述表句柄。x, Y表示目标中左上角的位置， nWid

8、th, nHeight表示目标中的宽和高。 即要把图片复制到目标设备描述表中的什么位置，以及复制多宽和多高。xsrc和ySrc表示源图片中的左上角位置，即表示从什么位置开始复制。DwRop参数表示一种绘制方式，常用直接复制方式，这时就取SRCCOPY。、实现图文动态缩放和渐隐渐现特效的程序代码对全局变量和 API函数的通用声明(API函数Sleep, BitBIt及其常参数 SRCCOPY 的声明从略，可从 API浏览器中复制、粘贴):Dim 1(4) As Boolea n, i as Long, s As String, zt As In teger实现图片渐现渐隐的通用过程：Privat

9、e Sub PicCpy(Optional strip As Integer=10, Optional delay As Integer=20)Dim plw As In teger, plh As In teger,p2 As In tegerIf 1(3)=True The n安装程序.bmp")ElsePicture1=LoadPicture("")End Ifplw = Picturel.Widthplh=Picturel.Heightp2=0Do While p2<= plwBitBlt Picture2.hDC,p2,0, strip, plh,

10、 Picture1.hDC,p2,0,SRCCOPYp2=p2 + stripSleep delayDoEve ntsLoop由于图片宽度不一定是strip的整数倍，故下面再全图复制一遍图片：BitBlt Picture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPYEnd SubPrivate Sub Form_load()Label1.Font.Name="黑体"Image1.Top=0Image1.Left=0Picture2.Top=0Picture2.Left=Screen.Width - Picthne2.Widths=&qu

11、ot;产生缩放和隐现效果的文字“zt=5'zt为字体大小控制变量i=0 'i为显示文字时截取文字的字数变量End SubPrivate Sub Cmd_Click (Index As In teger)If 1(ln dex)=True Then1(I ndex)=FalseElse1(Idex) = TrueEnd IfSelect Case In dexCase 0 '激活 timer1 的 timer 过程Timerl.E nabled=TrueTimerl .In terval=50'Casel, 2与上述类似，分别激活timer2, timer3的ti

12、mer过程Case 3 '调用图片复制过程PiccpyPiCpy 10, 50Case 4结束程序运行Un load MeEndEnd SelectEnd SubPrivate Sub Timer1_Timer()'实现文字缩放的过程If 1(0)=Trun The nzt=zt<+5ElseZt=Zt-5Else IfIf zt>50 or zt<=5 ThenTimer1.E nabled=FalseEnd IfWith Label1.Fon t.Size=zt丄 eft=(Form1.Width - Lable1.Width) /2.Top=(Form1

13、.Height - Label1.Height)/2End WithLabel1.Capti on=sEnd SubPrivate Sub Timer2_Timer()'实现图片缩放的过程If 1(1)=True Then '使图片放大Image1.Width=Image1.Width+Form1.Width/10Image1.Height=Image1.Height+Form1.Height/10Else '使图片缩小Image1.Width=Image1.Width - Form1.Width/10Image1.Height=Image1.Height - Form1.Height/10End IfIf (Image1.Width >=Form1.Width/2) or (Image1.Width <=Form1.Width/10) ThenTimer2.E nabled=FalseEnd If安装程序.bmp")End SubPrivate Sub Timer3.Timer()