用Visual Basic进行多媒体设计

　　一个具有多媒体效果的软件，能实现图文声并貌，能产生动画效果，往往给人耳目一新的感觉，给人留下很深的印象，因此得到用户的青睐。本文简介用VB设计多媒体效果的一般方法，并介绍我们设计的一个实例。

　　一、用VB的图形功能产生多媒体效果

　　1、用VB的图形方法

　　VB是利用图形对象的属性、方法和事件在图形对象(窗体Form、图片框Picture Box等)上绘制图形的。图形对象的属性有自动重画AutoRedraw、线型DrawStyle、填充风格FillStyle、填充颜色FillColor等等；图形对象的方法有画点Pset、画线Line、画圆Circle等等。图形对象的事件有单击鼠标Click,双击鼠标Dblclick等等。再利用QBColor, RGB函数设置颜色，就可以绘制出五彩缤纷的图形来。比如以下函数，就是利用图形方法，在窗体上画出一个有十字形光芒的星星。多次调用此函数并通过函数形参值的变化，可在窗体的不同地方，画出大小不一，颜色各异的多个星星来。

Function starl(dwidth1,dwidth2,x,y,clor1,clor2) '带光芒的星星
drawwidth=dwidth1 '设定星星的大小
PSet(x,y),QBColor(Colorl) '画星星并置颜色
drawwidth=dwidth2/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)
End Function
　　循环调用此函数，就能产生星光闪烁的效果。 　　2、用图形控制工具

　　图形工具又可分三种：图像(Image)控制工具、线条(Line)控制工具和形状(Shape)控制工具。只要在工具箱中点中某控制，拖到窗体上，就产生了相应的形状和事件，在事件代码窗中编入程序就能实现许多图形功能。

　　图像工具是一个矩形的区域，在此区域中可以用上述的图形方法绘制出各种图形、可以置入.BMP、DIB、ICO及WMF等格式的文件，还可以在该区域中输入照片和其他的图像数据；线条控制工具主要用于绘制直线；而形状工具可以直接在表格上绘制出各种几何图形。

　　例如，在属性窗口Properties中，按下面的设置可在背景为青色的窗体上画出一个黄色的月牙。

　　窗体(forml):backcolor '选为青色
　　形状1(shapel):fillstyle =0 '实心填充
　　fillcolor '选为黄色
　　shape=3 '圆形
　　形状2(shape2):fillstyle=0 '实心填充
　　fincolor '选为青色
　　shape=3 '圆形
　　拖动形状1和形状2到窗体合适的位置，并使形状2覆盖住形状1而使形状1成为月牙形即可。

　　3、动画效果

　　对图形方法产生的图形，采用覆盖和异或等方法，就能实现图形的移动而产生动画效果。

　　下面一段程序实现了一个人造地球卫星的图片作椭圆轨道运行的动画效果。

Sub picture_click( )
　Const PI=3.1415926 '圆周率
　Const arf=PI/8 '轨道倾斜角度
　* 卫星转动 *
　For i=0 TO 2 * PI Step.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:\vb\metil\satelid.wmf')
　　'装入卫星图片
　　picturel.Left=xp '移动图片，产生动画
　　picturel.Left=yp '移动图片，产生动画
　　DoEvents '可使卫星转动的同时，响应其他事件
　Next i
End Sub