用Visual Basic进行多媒体设计

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