用Visual Basic6.0实现电影特效

《用Visual Basic6.0实现电影特效》由会员分享，可在线阅读，更多相关《用Visual Basic6.0实现电影特效（5页珍藏版）》请在装配图网上搜索。

1、用Visual Basic6.0实现电影特效作者：佚名 来源：InterNet 加入时间：-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 开发WEB数据库指南 COOL系列之Visual Basic 6.0+Visual C+ 6.0 Visual Basic 语言参照-函数速查 Visual Bas

2、ic 6中文版循序渐进教程 Visual Basic 6.0中文版语言参照手册 Visual Basic 6.0中文版范例入门与提高 Visual Basic 6.0中文版程序员指南 Visual Basic 6.0 Component Tools Guide组件 电影或电视中常常可见到某些字幕或图片的动态变化特技，在制作多媒体教学软件或广告宣传等多媒体演示文档时，也常常需要用到某些图文的动态变化效果。VB6.0作为Windows软件的强有力开发工具，在多媒体程序设计方面具有广阔的应用前景。本文讨论运用VB6.0的定期器并结合Windows API函数实现图片或文字的动态缩放和渐隐渐现等特技效

3、果。一、实现图文动态缩放和渐隐渐现特效的程序措施1、程序界面取窗体名为Form1，其Windowstate属性设为2。在窗体Form1中设立如下控件和属性:一种标签控件Label1，其backcolor等于form1的backcolor; bondstyle为0, Autosize为True。一种图像控件image1，其Stratch和Visible均为True ; Bordstyle为0。两个图片框控件Picture1和Picture2, Visible属性Picture1为False而Picture2为True; AutoRedraw属性Picture1为True而Picture为Fals

4、e; ScaleModel属性两者均为Pixels; Bondstyle属性两者均为0。三个定期器控件Timer1,Timer2和Tirner3;命令按钮控件数组cmd(0)，.,Cmd(4)，其caption属性分别为:“文字缩放”、“图片缩放”、“文字隐现”、“图片隐现”和“退出”。 2、文字的动态缩放通过VB6.0的定期器控件定期变化文字的Size属性，就可达到文字被动态放大或缩小的效果。程序中通过timer1的tuner过程来控制标签Label1的caption属性文字大小。由cmd(0)触发的cmd_click事件引起timer1_ time过程，通过一逻辑变量1(0)(数组元素)控

5、制文字的变化方式，1(0) = true 时使字体动态放大，1(0) = false时使字体动态缩小。3、图形的动态缩放将图像控件image1的stretch属性设为true，可实现控件中图片大小随imagel控件大小的变化而变化。通过定期器timer2的tuner过程定期变化imagel控件的尺寸大小，就达到了使图片动态缩放的效果。由cmd(1)触发的cmd_click事件将引起timer2_time过程，通过逻辑变量1(1)控制图片变化的方式，1(1)=true时控制图片动态放大，1(1)=false时控制图片动态缩小。4、文字的渐隐渐现效果从字符串中取若干个文字作为标签Label1的ca

6、ption值，如果从字串中截取的文字数递增(直到等于字串的所有字数)，则实现文字渐现效果;而截取的文字如果递减(从字串的所有字数减到0)，则实现文字渐隐效果。通过定期器timer3的time:过程定期变化截取的字数，来达到此效果。由cmd(2)触发的。md_click事件引起timer3 _time过程，通过逻辑变量1(2)控制文字变化的方式，1(2)=true时使文字渐现，1(2)=false时使文字渐隐。5、图形的渐隐渐现效果用Windows API函数BitBlt复制图片的措施实现。BitBlt函数的使用措施为:BitBlt hDestDC, x, y, nWidth, nHeight,

7、 hSrcDC, xSrc, ySrc,dwRop其中各参数的含义为:hDestDC和hSrcDC分别表达目的设备描述表句柄和源设备描述表句柄。即要把图片从hSrcDC复制到hDestDC。Picturellox控件的hDC属性就是我们要用到的设备描述表句柄。x, Y表达目的中左上角的位置，nWidth, nHeight表达目的中的宽和高。即要把图片复制到目的设备描述表中的什么位置，以及复制多宽和多高。xsrc和ySrc表达源图片中的左上角位置，即表达从什么位置开始复制。DwRop参数表达一种绘制方式，常用直接复制方式，这时就取SRCCOPY。二、实现图文动态缩放和渐隐渐现特效的程序代码对全局

8、变量和API函数的通用声明(API函数Sleep, BitBlt及其常参数SRCCOPY的声明从略，可从API浏览器中复制、粘贴):Dim 1(4) As Boolean, i as Long, s As String, zt As Integer实现图片渐现渐隐的通用过程:Private Sub PicCpy(Optional strip As Integer=10, Optional delay As Integer=20)Dim plw As Integer, plh As Integer,p2 As IntegerIf 1(3)=True ThenPicture1 = LoadPict

9、ure(c:win98安装程序.bmp)ElsePicture1=LoadPicture()End Ifplw = Picturel.Widthplh=Picturel.Heightp2=0Do While p2= plwBitBlt Picture2.hDC,p2,0, strip, plh, Picture1.hDC,p2,0,SRCCOPYp2=p2 + stripSleep delayDoEventsLoop由于图片宽度不一定是strip的整数倍，故下面再全图复制一遍图片:BitBlt Picture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPYE

10、nd SubPrivate Sub Form_load()Label1.Font.Name=黑体Image1.Top=0Image1.Left=0Picture2.Top=0Picture2.Left=Screen.Width - Picthne2.Widths=产生缩放和隐现效果的文字zt=5zt为字体大小控制变量i=0 i为显示文字时截取文字的字数变量End SubPrivate Sub Cmd_Click (Index As Integer)If 1(Index)=True Then1(Index)=FalseElse1(Idex) = TrueEnd IfSelect Case Ind

11、exCase 0 激活timer1的timer过程Timer1.Enabled=TrueTimer1.Interval=50. Case1, 2与上述类似，分别激活timer2, timer3的timer过程Case 3 调用图片复制过程PiccpyPiCpy 10, 50Case 4结束程序运营Unload MeEndEnd SelectEnd SubPrivate Sub Timer1_Timer() 实现文字缩放的过程If 1(0)=Trun Thenzt=zt50 or zt=Form1.Width/2) or (Image1.Width =Len(s) on i=0 ThenLabel1.Caption=Left$(s,i)End IfEnd Sub以上程序在VB6.0和Windows98/环境下调试通过。