VB是一种编程式多媒体开发工具,用VB开发多媒体的方法有很多。归结一下 有以下四种:自行编写程序代码实现,使用对象连接和嵌入OLE2.0,调用API有 关多媒体的函数,使用第三方VB控件开发商制作的多媒体控件VBX。其中第四种 方法最简便,效果也最明显。 下文将简要介绍Autodesk公司的多媒体控件VBPLAY.VBX的功能和使用方法。 启动VB专业版后,选择File—Add File…,在WINDOWS的SYSTEM目录下选择 VBPLAY.VBX,将VBPLAY.VBX加入到工具箱中,就可以看到ANIMATION著名的图标。 它的主要属性介绍如下: 1、具有基本属性: name,height,width,top,left,forecolor,backcolor,enabled,visible, index, 还有一些特殊属性。 2、BorderStyle属性,设定边界条件。分别为0-none,表示无边界,1-Fixed Single,表示固定单线框,2-Sizable(缺省值),可调尺寸,3-Fixed Double, 固定双线框。这些属性与其他控件类似。 3、All Color:保留所有WINDOWS系统可用的颜色。Colorcycling:保留 WINDOWS系统调色板的颜色。 4、AniHeight 和Aniwidth,设定一个动画的幅面。 5,Autoplay属性,设定自动播放功能。如果设定为TRUE,则程序运行时动画 文件自动播放,若设为FALSE,则需要用程序代码控制。 6、BeginFade,BeginFadeTime,Endfade,EndfadeTime,这是VBPLAY.VBX最 精彩的部分,用这几个简单的属性就可以实现图象的淡入淡出效果。其中: BeginFade表示动画开始时的效果设定。有三个选择项。cut:切换效果,无 淡入淡出;fade to/From Black 即淡入效果;Fade to/From White 即淡出效果。 以前必须调用Bitbil这样的W INDOWS API函数才能实现的功能现在只需设定属性 即可实现。 BeginFadeTime设定淡入淡出效果执行的时间,与Timer的属性Interval一样, 以毫秒为单位。 EndFade和Endfadetime表示结尾处的淡入淡出效果设定,其选项与BeginFade和BeginFadeTime相似。 7、FullScreen:全屏幕播放。 8、HideAnimation:如果不是在播放状态下,即在设计状态下,不要将画面显示出来。 9、LoopFrame:设定是否循环播放。可选值为TRUE或FALSE。 10、MemoryLoad:设定为TRUE则在打开动画时将它载入内存中,这样可以得到较 快的播放速度。 11、play、pause、pauseatend,设定播放、暂停以及播放完后暂停的时间,以 秒为单位。 12、有关SOUND的属性:Sound属性会打开一个对话框,在对话框中选择背景音乐, 以真正实现“影音同步”,SoundDelay属性设定声音播放的延迟时间,以毫秒为单位。 如果为负数,则表示在动画前先播放音乐,SoundRepeats属性声音播放的次数。 13、AniSettings属性,其上有“Click Here For Dialog”的标识,单击后会 弹出对话框。以上所提到的大部分属性可以在对话框中设定,“TEST”按钮可以测试 效果,“TRANSITIONS”可以设定淡入淡出的效果。 下面给出一例,在VB专业版中调试通过。 各控件的属性设置如下: FORM1: caption:动画演示 windowstate:2-maxizimed ANIMATION1: ANIMATION:C:\DEMO\DEMO.FLC BeginFade:fade to/From Black BeginFadeTime:3000 EndFade:Fade to/From White Endfadetime:3000 HideAnimation:true FullScreen:true Sound:C:\DEMO\DEMO.WAV SoundDelay:-2000 SoundRepeats:0 Type:(FLI/FLC) COMMAND1: caption:播放 COMMAND2: caption:停止 而源程序只有两行: Sub Command3D1_Click () animation1.Play = True End Sub Sub Command3D2_Click () End End Sub 注意例子中播放3DS的FLI/FLC文件必须在WINDOWS的SYSTEM的目录中载入播 放FLI/FLC动画文件的动态连接库AAPLAY.DLL。 这样我们就实现了一幅影音同步的多媒体作品,是不是很简单?不要再犹豫 了,赶快上机试一下,你会叹服于VBPLAY.VBX的强大功能。