资源描述:
《用VB多媒体设计》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、一个具有多媒体效果的软件,能实现图文声并貌,能产生动画效果,往往给人耳目一新的感觉,给人留下很深的印象,因此得到用户的青睐。本文简介用VB设计多媒体效果的一般方法,并介绍我们设计的一个实例。 一、用VB的图形功能产生多媒体效果 1、用VB的图形方法 VB是利用图形对象的属性、方法和事件在图形对象(窗体Form、图片框PictureBox等)上绘制图形的。图形对象的属性有自动重画AutoRedraw、线型DrawStyle、填充风格FillStyle、填充颜色FillColor等等;图形对象的方法有画点Pset、画线Line、画圆Circle等等
2、。图形对象的事件有单击鼠标Click,双击鼠标Dblclick等等。再利用QBColor,RGB函数设置颜色,就可以绘制出五彩缤纷的图形来。比如以下函数,就是利用图形方法,在窗体上画出一个有十字形光芒的星星。多次调用此函数并通过函数形参值的变化,可在窗体的不同地方,画出大小不一,颜色各异的多个星星来。Functionstarl(dwidth1,dwidth2,x,y,clor1,clor2)'带光芒的星星drawwidth=dwidth1'设定星星的大小PSet(x,y),QBColor(Colorl)'画星星并置颜色drawwidth=dwidth
3、2/4'光芒宽度Line(x,y)-(x-200,y),QBColor(clor1)'光芒长度及颜色Line(x,y)-(x+200,y),QBColor(clor1)Line(x,y)-(x,y+200),QBCdor(clor1)Line(x,y)-(x,y-400),QBColor(clor1)drawwidth=dwidth2'再画覆盖星星PSet(x,y),QBColor(clor2)EndFunction 循环调用此函数,就能产生星光闪烁的效果。2、用图形控制工具 图形工具又可分三种:图像(Image)控制工具、线条(Line)控制工
4、具和形状(Shape)控制工具。只要在工具箱中点中某控制,拖到窗体上,就产生了相应的形状和事件,在事件代码窗中编入程序就能实现许多图形功能。 图像工具是一个矩形的区域,在此区域中可以用上述的图形方法绘制出各种图形、可以置入.BMP、DIB、ICO及WMF等格式的文件,还可以在该区域中输入照片和其他的图像数据;线条控制工具主要用于绘制直线;而形状工具可以直接在表格上绘制出各种几何图形。 例如,在属性窗口Properties中,按下面的设置可在背景为青色的窗体上画出一个黄色的月牙。 窗体(forml):backcolor'选为青色 形状1(sha
5、pel):fillstyle=0'实心填充 fillcolor'选为黄色 shape=3'圆形 形状2(shape2):fillstyle=0'实心填充 fincolor'选为青色 shape=3'圆形 拖动形状1和形状2到窗体合适的位置,并使形状2覆盖住形状1而使形状1成为月牙形即可。 3、动画效果 对图形方法产生的图形,采用覆盖和异或等方法,就能实现图形的移动而产生动画效果。 下面一段程序实现了一个人造地球卫星的图片作椭圆轨道运行的动画效果。Subpicture_click() ConstPI=3.1415926'圆周率 Con
6、starf=PI/8'轨道倾斜角度 *卫星转动* Fori=0TO2*PIStep.0015 xx=ra*Cos(i)'椭圆 yy=rb*Sin(i)'椭圆 xp=xx*Cos(arf)-yy*Sin(arf)'坐标变换 yp=xx*Sin(arf)+yy*Cos(arf)+ym'坐标变换 picturel.Picture=luadPicture("c:vbmetilsatelid.wmf') '装入卫星图片 picturel.Left=xp'移动图片,产生动画 picturel.Left=yp'移动图片,产生动画 DoEve
7、nts'可使卫星转动的同时,响应其他事件 NextiEndSub二、用VB的声音功能产生多媒体效果 1、利用API函数 VB没有提供像PLAY这样的声音函数,它只有一个简单的BEEP,使机器产生一下蜂鸣声。要想产生音乐,可以调用Windows的动态链接库DLL中的函数或是调用VB动态链接库文件VBX。一般是先要在窗体层的通用说明部分或模块层对调用的Windows函数进行说明。音乐函数主要是调用"SOUND.DRV"库中的几个API函数,说明之后就可以直接使用了。调用以下几个函数可使计算机演奏出悦耳的歌曲。 Opensound()打开发声设备
8、StarlSound()开始产生音乐 CloseSound()关闭发声设备 SetVoiceSound(