掌握计算机的绘图和动画是一件奇妙且引人入胜的主题，VisualBasic下的图象处理技术，包括绘图，色彩，动画，三维空间，虚拟现实，甚至计算机仿真的基础。听起来很诱人的东西往往需要大量不诱人的知识，本章是这些奇妙东西的入门。VB可以利用绘图方法在窗体或某容器类对象上画图。也可以用绘图控件画图。其多媒体控件可以让你感受动画、声音等。9.1图形处理9.1图形处理可读系统由控件的ScaleMode属性设置的。ScaleMode的值有：ScaleMode值意义0用户自定义1点素（Twip即“特维”，缺省刻度）2点（Point）3象素（Pixel，这与屏幕分辨率有关）4字符（Character）5英寸（Inch）6毫米（Millimeter）7厘米（Centimeter）(1)当前坐标•对象：窗体、图形框等。•属性：CurrentX、CurrentY，该属性设计阶段不可用•绝对坐标：(x,y)•相对坐标：step(x,y)(2)线宽•窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。(3)线型（DrawStyle）VB采用对象前景色（ForeColor）来绘图•RGB函数格式：RGB（红，绿，蓝）其中：红、绿、蓝三基色的成分使用0~255之间的整数，共有256×256×256种颜色•QBColor函数格式：QBColor（颜色码）其中：颜色码使用0~15之间的整数，共有16色例：Label1.forecolor=RGB(255,0,0)Label1.forecolor=vbred9.1图形处理9.1图形处理例9-3在图片框上生成“天女散花”9.1图形处理例9-4在窗体上画“三角形”9.1图形处理9.1图形处理例9-6在窗体上画出一个扇形、圆9.1图形处理9.1图形处理9.1图形处理9.1图形处理PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbRightButtonThenPrint“你按下鼠标右键"IfButton=vbLeftButtonThenPrint“你按下鼠标左键”EndSub1.使用动画控件（Animation)(1)功能用于播放无声的“.avi”的数字电影文件。(2)添加部件部件——MicrosoftWindowsCommonControls-26.0(3)常用属性Center:设为True，可确保播放的画面位于动画控件的中间位置。Autoplay:用于设定已打开的动画文件的自动播放。(4)常用方法Open---打开播放文件格式：Object.OpenfnamePlay----用于进行播放格式：Object.Play[repeat][,start][,end]其中：repeat：重复播放的次数start：起始播放的桢；end：停止播放的桢例如：animat1.play5,9,242.多媒体控件(1)多媒体控件(MultimediaMCI)用于管理，控制各种MCI（MediaContolInterface)设备的控件。它提供了一组控制按钮，可以通过这些按钮控制和管理声卡、CD-ROM、VCD播放器等设备。(2)添加部件第一步:工程/部件第二步:部件第三步:在“控件”列表框中选定MicrosoftMultimediaControl6.0(3)主要属性:Enabled：使该控件有效Visible：使该控件可见DeviceType：设置多媒体控件所要管理的设备类型AutoEnable：为True时，自动激活DeviceType所指定的设备。FileName：指定MCI所要使用的文件名称Command：在运行时使用，指定需要执行的MCI命令(4)MCI命令它是通过一套高层的与设备无关的命令来控制多媒体设备的。主要命令如表9-7所示(p223)。格式：Mmcontrol1.Command=“commandname”例如：Mmcontrol1.Command=“Open”示例:交叉火力主要程序代码:PrivateSubLineDemo()DimX2DimY2R=255*RndG=255*RndB=255*RndX2=Int(DemoForm.Width*Rnd+1)Y2=Int(DemoForm.Height*Rnd+1)Line-(X2,Y2),RGB(R,G,B)EndSub作业