第09章图形处理与多媒体应用2学时

9.1图形处理9.2多媒体应用

9.3示例第9章图形处理及多媒体应用作业实验掌握重点预习VisualBasic程序设计计算机的绘图和动画是一件奇妙且引人入胜的主题，VisualBasic下的图象处理技术，包括绘图，色彩，动画，三维空间，虚拟现实，甚至计算机仿真的基础。听起来很诱人的东西往往需要大量不诱人的知识，本章是这些奇妙东西的入门。

VB可以利用绘图方法在窗体或某容器类对象上画图。也可以用绘图控件画图。其多媒体控件可以让你感受动画、声音等。╳

9.1图形处理9.1图形处理1.VisualBasic的坐标系统系统坐标系原点位于屏幕左上角（0，0），从原点出发，水平向右为X轴正方向，垂直向下为Y轴正方向。

(1)VisualBasic坐标系和笛卡尔平面坐标系不同容器坐标系是:╳

窗体的左上角是原点

X轴的正向水平向右

Y轴的正向垂直向下利用绘图方法在窗体或某容器类对象上绘图，均用容器坐标系。所以：窗体中控件的位置用Left，Top属性描述。Left表示控件左上角到窗体左边的距离，Top表示控件左上角到窗体上边的距离。9.1图形处理Twip是系统缺省的度量单位。通过使用窗体等容器类对象的ScaleMode属性，可另行定义容器坐标系度量单位。但容器的left,top,width,height属性值仍为Twip为单位

利用窗体的Scale方法如：Form1.Scale(-50,50)-(50,-50)

其中:前一个括号指定左上角坐标，后一个括号指定右下角坐标

1.VisualBasic的坐标系统

(2)建立自己的坐标系利用到窗体的Scale系列属性9.1图形处理

ScaleLeft属性：确定对象左边的水平坐标；

ScaleTop属性：确定对象顶端的垂直坐标；

ScaleWidth属性：确定对象内部水平的单元数目；

ScaleHeight属性：确定对象内部垂直的单元数目。如：ScaleLeft=-50:ScaleTop=50

ScaleWidth=100:ScaleHeight=-100可读系统由控件的ScaleMode属性设置的。ScaleMode的值有：ScaleMode值意义0用户自定义1

点素（Twip

即“特维”，缺省刻度）2

点（Point）3

象素（Pixel，这与屏幕分辨率有关）4字符（Character）5

英寸（Inch）6

毫米（Millimeter）7

厘米（Centimeter）

╳

1.VisualBasic的坐标系统

(3)刻度系统9.1图形处理1Inch=1440Twips；1Centimeter=567Twips1Inch=72Points；1字符宽（水平方向）=120Twips1字符高（垂直方向）=240Twips；1磅=20Twips。（磅即Point)(1)当前坐标•对象：窗体、图形框、打印机•属性：CurrentX、CurrentY，该属性设计阶段不可用•绝对坐标：(x,y)•相对坐标：step(x,y)(2)线宽•窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。╳

2.

绘图属性9.1图形处理(3)线型（DrawStyle）╳

2.

绘图属性9.1图形处理(4)填充封闭图形的填充方式由以下两个属性决定：

FillColor指定填充图案的颜色，缺省值与ForeColor相同FillStyle属性指定填充的图案，共有8种内部图案。DrawStyle设置值线型0实线1长划线2点线3点划线4点点划线5透明线6内实线

VB采用对象前景色（ForeColor）来绘图•

RGB函数格式：RGB（红，绿，蓝）其中：红、绿、蓝三基色的成分使用0~255之间的整数，共有256×256×256种颜色•

色彩常量Vbred╳

2.

绘图属性9.1图形处理(5)色彩4.形状控件Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。当Shape控件添加到窗体时显示为一个矩形，可通过设置Shape属性确定所需要的几何形状。

3.

画线工具

Line控件可以用来画线。步骤如下：(1)单击工具箱中的Line图标；(2)移动鼠标到要画线的起始位置；(3)按下鼠标左键并拖曳鼠标到要画线结束处，放开鼠标左键。9.1图形处理(1)Line方法

Line方法用于画直线或矩形格式：[对象.]Line[[Step](x1,y1)-(x2,y2)[,颜色][,B[F]]

其中：对象用于绘图板的容器对象名(x1,y1)：为起点坐标，单精度，省则为上个划线方法划线的终点为本次划线起点 (x2,y2)：为终点坐标，单精度

Step：指定由currentx,currenty属性提供当前图形起点坐标

B：表示画矩形，使用时前面逗号不可省

F：表示用画矩形的颜色来填充矩形。╳

5.图形方法(使用绘图方法也可绘图)9.1使用绘图方法主要有:Line方法,Circle方法,Pset方法,Point方法(2)Circle方法

Circle方法用于画圆、椭圆、圆弧和扇形格式：[对象.]Circle[[Step](x,y),半径[,颜色][,起始角][,终止角][,纵向比率]]]其中：(x,y)为圆心坐标；Step表示采用相对坐标。Radius：圆的半径或椭圆的长轴半径Start：画圆弧时，用于设置圆弧的起始弧度值End：画圆弧时，用于设置圆弧的结束弧度值Aspect：画椭圆时，垂直长度和水平长度比的正浮点数，小于1，radius指水平方向x半径，大于或等于1,radius指垂直方向y半径注：省略参数时，逗号是不可缺省的╳

5.

绘图方法9.1图形处理(3)Pset方法

Pset方法用于画点格式：[对象.]Pset[Step](x,y)[,颜色]其中：(x,y)为点的坐标；Step表示采用相对坐标；采用背景颜色Forecolor可清除某个位置上的点。(4)Point方法

Point方法用于返回指定点的RGB颜色，格式：[对象.]Point(x,y)

其中：(x,y)为点的坐标。╳

5.

绘图方法9.1图形处理（5）清除图形[object.]clsObject是绘制图形所在的容器对象名（6）在图形中加入文本可使用容器控件的Currentx,Currenty属性指定文字输出的位置。Currentx,Currenty属性均为运行时属性。例：Currentx＝1000

Currenty＝1000Print“输出位置“╳

6.

使用图片框9.1图形处理在VisualBasic程序里加入图片(1)图片通常可以放在Form，PictureBox，ImageBox中1、使用picture属性显示图片Autosize=true，则图片框自动适应图片大小2、用代码加入图片用LoadPicture函数如：Image1.Picture=LoadPicture(“c:\pic\demo.bmp”)

删除图片的方法：Image1.Picture=LoadPicture(“”)(3)

使用paintpicture方法[Object.]paintpicturepicture,dx,dy[,dw[,dh[,sx[,sy[,sw[,sh,op]]]]]]Object是目标窗体或图片框对象名，缺省为当前窗体名Picture是要处理的图片源Dx,dy指定目标对象中图片的X,Y坐标值Dw,dh目标对象中图片的宽度与高度，dw或dh使用负值时，可实现图片对象的水平或垂直翻转Sx,sy欲处理图片进行剪裁时，剪裁图片左上角坐标值Sw,sh欲处理图片进行剪裁时，剪裁图片宽度和高度op

Click就是一个鼠标事件，它可以发生在许多对象上。同时鼠标事件还有DblClick，MouseDown，MouseUp，MouseMove以及拖曳后放下的事件。在VisualBasic所附的示例程序里，有一个介绍鼠标事件的例子，它的通常的路径及文件名是：

c:\vb\samples\mouse\mouse.vbp

╳

7.VisualBasic的鼠标事件9.1图形处理(1)MouseDown，MouseUp，Mousemove事件

MouseDown，MouseUp事件分别发生在按下鼠标按键和松开鼠标按键或鼠标在对象范围内移动时，窗体的空的MouseDown，MouseUp事件是这样的：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubButton:返回一个表示按鼠标键状况的整数，左键返回1，右键返回2，中间返回4Shift：返回一个表示按控制键状况的整数，按shift返回1，按ctrl返回2，按Alt返回4X,y：返回鼠标当前位置x,y坐标值

(2)MouseDown，MouseUp事件与Click事件的不同Click事件不能检测到是哪一个按键按下了，也不能检测到按下鼠标的同时键盘上是否按着Shift，Ctrl，Alt键，而且Click事件还不能确定按鼠标时鼠标指针的位置。而这些在MouseDown，MouseUp事件里都可以知道.这也是这两个事件过程发生时后面四个参数的意义。在需要上面所说的参数时，可以用MouseDown事件或MouseUp事件代替Click事件。

╳

9.1图形处理7.VisualBasic的鼠标事件╳

1.使用动画控件（Animation)

(1)功能用于播放无声的“.avi”的数字电影文件。

(2)添加部件部件——MicrosoftWindowsCommonControls-26.0

(3)常用属性Center:设为True，可确保播放的画面位于动画控件的中间位置。Autoplay:用于设定已打开的动画文件的自动播放。9.2多媒体应用

VB中与多媒体有关的控件有两个，都是ActiveX控件。一个是动画控件，另一个是媒体控制控件。(4)常用方法Open---打开播放文件格式：Object.OpenfnamePlay----用于进行播放格式：Object.Play[repeat][,start][,end]其中：repeat：重复播放的次数

start：起始播放的桢（画面）；end：停止播放的桢例如：animat1.play5,9,24╳

1.使用动画控件（Animation)

9.2多媒体应用表示：使用名为animat1的动画控件要把已打开的“.avi”文件的第10幅画到第25幅画面重复播放5遍。

Stop-----停止播放一般形式：Object.stop

Close-----关闭文件2.多媒体控件(1)多媒体控件(MultimediaMCI)

用于管理，控制各种MCI（MediaContolInterface)设备的控件。它提供了一组控制按钮，可以通过这些按钮控制和管理声卡、CD-ROM、VCD播放器等设备。(2)添加部件第一步:工程/部件第二步:部件第三步:在“控件”列表框中选定

MicrosoftMultimediaControl6.0╳

9.2多媒体应用(3)主要属性:

Enabled：使该控件有效

Visible：使该控件可见

DeviceType：设置多媒体控件所要管理的设备类型

AutoEnable：为True时，自动激活DeviceType所指定的设备。

FileName：指定MCI所要使用的文件名称

Command：在运行时使用，指定需要执行的MCI命令(4)MCI命令

它是通过一套高层的与设备无关的命令来控制多媒体设备的。主要命令如表9-7所示(p223)。

格式：Mmcontrol1.Command=“commandname”

例如：Mmcontrol1.Command=“Open”╳

2.多媒体控件9.2多媒体应用示例:交叉火力请演示<图形示例文件夹>中的程序需要定时器:PrivateSubTimer1_Timer()IfmnuCtlMoveDemo.CheckedAndDoFlag=TrueThenCtlMoveDemoElseIfmnuLineDemo.CheckedAndDoFlag=TrueThenLin