1、教学内容：教学内容：8.1 图形控件与操作图形控件与操作8.2 多媒体控件与操作多媒体控件与操作项目十项目十 图形化时钟项目图形化时钟项目 利用图像控件，画一个简单而实用的时钟掌握掌握Line控件的使用控件的使用熟悉熟悉计时器控件的使用计时器控件的使用 能力目标理解理解VB中坐标系的概念中坐标系的概念Line控件的使用控件的使用计时器控件的使用计时器控件的使用 知识目标VB中坐标系的概念中坐标系的概念三、任务划分三、任务划分设计项目的界面设计项目的界面设置控件属性设置控件属性编写事件代码编写事件代码任务一任务一 设计项目的界面设计项目的界面本项目用到本项目用到1 1个个lineline、1 1
2、个计时器，其大小、位置如下图个计时器，其大小、位置如下图所示：所示：任务二任务二 设置控件属性设置控件属性设置窗体、计时器的属性：设置窗体、计时器的属性：1 1、计时器的、计时器的intervalinterval设置为：设置为：0 0，EnableEnable设置为：设置为：truetrue。2 2、lineline控件主要用其方法实现画线条。控件主要用其方法实现画线条。3 3、其它略。、其它略。任务三任务三 编写代码编写代码分别编写窗体、计时器代码：分别编写窗体、计时器代码：1 1、窗体的事件：、窗体的事件：Load,Load,Resize Private Sub Form_Load()Ti
3、mer1.Interval=100 Width=4000 Height=4000 Left=Screen.Width 2-2000 Top=(Screen.Height-Height)2 End Sub （1）窗体的）窗体的Load事件代码：事件代码：Private Sub Form_Resize()Dim i,Angle Static flag As Boolean If flag=False Then flag=True For i=0 To 14 画出表盘画出表盘12个点和时、分、秒共个点和时、分、秒共15个个LINE If i 0 Then Load Line1(i)Line1(i).
4、Visible=True Line1(i).BorderWidth=5 Line1(i).BorderColor=RGB(0,128,0)设置设置LINE的粗细和颜色的粗细和颜色 Next i End If For i=0 To 14 Scale(-1,1)-(1,-1)Angle=i*2*Atn(1)/3 Line1(i).X1=0.9*Cos(Angle)Line1(i).Y1=0.9*Sin(Angle)Line1(i).X2=Cos(Angle)Line1(i).Y2=Sin(Angle)Next i End Sub（2）窗体的）窗体的Resize事件代码：事件代码：2 2、计时器的事
5、件：、计时器的事件：TimerTimer Private Sub timer1_Timer()Const HH=0,MH=13,SH=14 Dim Angle Static LS If Second(Now)=LS Then Exit Sub LS=Second(Now)Angle=0.5236*(15-(Hour(Now)+Minute(Now)/60)设置时针设置时针 Line1(HH).X1=0 Line1(HH).Y1=0 Line1(HH).X2=0.3*Cos(Angle)Line1(HH).Y2=0.3*Sin(Angle)Angle=0.1047*(75-(Minute(Now
6、)+Second(Now)/60)设置分针设置分针 Line1(MH).X1=0 Line1(MH).Y1=0 Line1(MH).X2=0.7*Cos(Angle)Line1(MH).Y2=0.7*Sin(Angle)Angle=0.5236*(75-Second(Now)设置秒针设置秒针 Line1(SH).X1=0 Line1(SH).Y1=0 Line1(SH).X2=0.8*Cos(Angle)Line1(SH).Y2=0.8*Sin(Angle)Form1.Caption=Str(Now()窗口显示精确的日期和数字化的时间窗口显示精确的日期和数字化的时间 End Sub项目十一项目
7、十一 MP3 MP3播放器项目播放器项目 通过对窗体事件的响应，制作简单的打字游戏。要求随机产生ASCII码为33到126之间的字符，其中包括数字、大小写英文字母和其他字符。掌握掌握文件操作方法文件操作方法掌握通用对话框的使用掌握通用对话框的使用 能力目标掌握掌握多媒体控件的常用属性和事件多媒体控件的常用属性和事件文件操作方法文件操作方法通用对话框的使用通用对话框的使用 知识目标多媒体控件的常用属性和事件多媒体控件的常用属性和事件三、任务划分三、任务划分设计项目的界面设计项目的界面设置控件属性设置控件属性编写事件代码编写事件代码任务一任务一 设计项目的界面设计项目的界面本项目用到本项目用到3
8、3个标签、个标签、1 1个图片框、个图片框、5 5个按钮和个按钮和1 1个通用对个通用对话框，其大小、位置如下图所示话框，其大小、位置如下图所示 任务二任务二 设置控件属性设置控件属性设置窗体和按钮、标签的属性：设置窗体和按钮、标签的属性：1 1、label1label1用于提示播放的时间，其用于提示播放的时间，其CaptionCaption为：为：“播放时播放时间：间：”。2 2、label2 label2用于显示播放的时间，其用于显示播放的时间，其CaptionCaption为：为：“”“”。3 3、label3 label3用于显示播放的曲目。用于显示播放的曲目。4 4、图片框的、图片框
9、的namename属性为：属性为：Mp3Play14 4、其它控件的属性（略）、其它控件的属性（略）任务三任务三 编写代码编写代码分别编写按钮和图片框的代码：分别编写按钮和图片框的代码：1 1、图片框图片框的事件：的事件：ActFramePrivate Sub Mp3Play1_ActFrame(ByVal ActFrame As Long)Label2.Caption=(ActFrame*Mp3Play1.MsPerFrame)1000End SubPrivate Sub cmdPlay_Click()Mp3Play1.PlayEnd SubPrivate Sub cmdPause_Clic
10、k()Mp3Play1.PauseEnd SubPrivate Sub cmdClose_Click()Mp3Play1.CloseEnd SubPrivate Sub cmdOpen_Click()CommonDialog1.ShowOpen r=Mp3Play1.Open(CommonDialog1.,)Label3.Caption=正在播放歌曲：正在播放歌曲：&CommonDialog1.End SubPrivate Sub cmdStop_Click()Mp3Play1.StopEnd Sub8.1 图形控件与操作图形控件与操作8.1.1 图片框控件和图像框控件图片框控件和图像框控件（
11、1）图片框控件）图片框控件 图片框（图片框（Picture）控件是一个完整的图形控件。不仅可用于显）控件是一个完整的图形控件。不仅可用于显示多种格式的图片，也能支持示多种格式的图片，也能支持VB中的各种绘图方法和中的各种绘图方法和Print方法，方法，而且还能作为一个容器用于放置其他控件。而且还能作为一个容器用于放置其他控件。支持的图形文件格式有：位图文件（支持的图形文件格式有：位图文件（.bmp、.dib、.cur）、图标文）、图标文件（件（.ico）、图元文件（）、图元文件（.wmf）、增强型图元文件（）、增强型图元文件（.emf）、）、JPEG图形（图形（.emf）或）或GIF图形（图形
12、（.gif）等。）等。JPEG(Joint Photographic Expert Group)是静止图形压缩算法的国是静止图形压缩算法的国际标准，采用有损压缩技术，压缩比可选择，支持灰度和真彩色图际标准，采用有损压缩技术，压缩比可选择，支持灰度和真彩色图像。像。GIF(Graphic Interchange Format)，采用无损压缩技术。其特点是：，采用无损压缩技术。其特点是：只要用一半的显示时间即可大致看出图片的全貌，但最多支持只要用一半的显示时间即可大致看出图片的全貌，但最多支持256种颜色。种颜色。四、相关知识点四、相关知识点常用属性：常用属性：Picture属性属性与窗体的与窗体
13、的Picture属性大致相同，用于指定图片框中要加载的图片。属性大致相同，用于指定图片框中要加载的图片。默认的属性值为默认的属性值为NoThing（未加载图形文件）。设计时可以修改其属性（未加载图形文件）。设计时可以修改其属性值，还可用剪贴板将图片复制粘贴到图片框中。值，还可用剪贴板将图片复制粘贴到图片框中。在程序中也可以修改或删除图片框中的图片。在程序中也可以修改或删除图片框中的图片。例如：例如：Picture1.Picture=NoThing 删除图片框中的图片删除图片框中的图片Picture1.Picture=“”“”删除图片框中的图片删除图片框中的图片Picture1.Picture=
14、Picture2.Picture 修改图片框中的图片修改图片框中的图片用用LoadPicture函数加载一新图片或删除图片框中的图片函数加载一新图片或删除图片框中的图片例如：例如：在图片框中加载新图片在图片框中加载新图片Picture1.Picture=LoadPicture(“c:PHONE.gif”)不带参数时表示删除图片框中的图片不带参数时表示删除图片框中的图片Picture1.Picture=LoadPicture（）（）用用SavePicture函数将加载到图片框中的图片及用绘图方法绘制的图形函数将加载到图片框中的图片及用绘图方法绘制的图形保存到一指定的文件中保存到一指定的文件中例如
15、：例如：SavePicture Picture1.Picture，D:TempTmp.BmpPicture属性属性AutoSize属性属性 用于选择是否自动调整图片框控件的大小以适应所加载的图片。用于选择是否自动调整图片框控件的大小以适应所加载的图片。默认的属性值为默认的属性值为False（即图片框保持原始尺寸）。如果图片比图片框（即图片框保持原始尺寸）。如果图片比图片框大，那么超出的部分不能显示出来，由于图片框不支持滚动条，未显大，那么超出的部分不能显示出来，由于图片框不支持滚动条，未显示的部分用户将无法看到。利用滚动条控件的编程技术可以解决这一示的部分用户将无法看到。利用滚动条控件的编程技
16、术可以解决这一问题，在后面的编程实例中将看到这一点。问题，在后面的编程实例中将看到这一点。注意：若加载的是图元文件（注意：若加载的是图元文件（.wmf），那么图形会自动调整大小来适），那么图形会自动调整大小来适应图片框的大小，若加载的是其他类型的文件，那么图形不会调整大应图片框的大小，若加载的是其他类型的文件，那么图形不会调整大小。小。Align属性属性 用于选择图片框的对齐方式，可以使图片框依附在窗体上下左用于选择图片框的对齐方式，可以使图片框依附在窗体上下左右任一边上，就像工具栏一样。还可使图片框的大小随窗体的大小右任一边上，就像工具栏一样。还可使图片框的大小随窗体的大小的改变而改变。的改
17、变而改变。默认值为默认值为0None(自定义大小及位置自定义大小及位置)。可供选择的值还有：。可供选择的值还有：1Align Top（显示在窗体顶部）（显示在窗体顶部）2Align Bottom（显示在窗体底部）（显示在窗体底部）3Align Left（显示在窗体左边缘）（显示在窗体左边缘）4Align Right（显示在窗全右边缘）（显示在窗全右边缘）显示在窗体的顶部或底部时，图片框的宽度为窗体的显示在窗体的顶部或底部时，图片框的宽度为窗体的ScaleWidth属属性值，高度可自定义；显示在窗体的左、右边缘时，图片框的高度性值，高度可自定义；显示在窗体的左、右边缘时，图片框的高度等于窗体的等
18、于窗体的ScaleWidth属性值，宽度可自定义。属性值，宽度可自定义。（2）图像框控件）图像框控件 图像框（图像框（Image）控件是一个简化的图形控件。与图片框控件一）控件是一个简化的图形控件。与图片框控件一样，可用于显示多种格式的图形文件，但不支持样，可用于显示多种格式的图形文件，但不支持VB中的各种绘图方中的各种绘图方法和法和Print方法，也不能作为一个容器来放置其他控件。方法，也不能作为一个容器来放置其他控件。加载图片时，与图片框不同的是，加载图片时，与图片框不同的是，默认时系统能自动调整图像框或默认时系统能自动调整图像框或图片的大小，使它们的大小总能保持一致。图片的大小，使它们的
19、大小总能保持一致。常用属性：常用属性：Picture属性属性 与图片框控件的与图片框控件的Picture属性一样，用于指定图像框中要加载的图片。属性一样，用于指定图像框中要加载的图片。加载、删除或修改图片的方法也与图片框中所用的方法相同。加载、删除或修改图片的方法也与图片框中所用的方法相同。Strecth属性属性 用于选择是否将加载的图片缩放到控件本身的大小。用于选择是否将加载的图片缩放到控件本身的大小。默认值为默认值为False(加载图片后，图片不缩放加载图片后，图片不缩放)。这时系统将自动调整。这时系统将自动调整控件的大小，以适应所显示的图片。控件的大小，以适应所显示的图片。若将若将Str
20、ech属性值改为属性值改为true(加载图片后，缩放图片加载图片后，缩放图片)。这时控件的大小。这时控件的大小不变。不变。Appearance属性、属性、BorderStyle属性属性用于选择控件的立体与边框外观。用于选择控件的立体与边框外观。Appearance属性的默认值为属性的默认值为0（平面外观），若改为（平面外观），若改为1则为立体外观。则为立体外观。BorderStyle属性的默认值为属性的默认值为0（无边框），若改为（无边框），若改为1则为单线固定边则为单线固定边框。框。可利用可利用Image控件来代表一个按钮，用其外观代表按钮的状态。控件来代表一个按钮，用其外观代表按钮的状态。
21、在在Image控件的控件的MouseDown事件中通过修改属性，将外观设置为事件中通过修改属性，将外观设置为“立立体单线体单线”表示按钮按下；在表示按钮按下；在MouseUp事件中将外观设置为事件中将外观设置为“平面单线平面单线”表示按抬起。表示按抬起。返回目录返回目录例题例题1返回目录返回目录例例8.1利用滚动条控件控制图片框中的超大图片的显示。利用滚动条控件控制图片框中的超大图片的显示。由于图片框控件由于图片框控件Picture和图像框控件和图像框控件Image都没有滚动条属性，不支都没有滚动条属性，不支持滚动条。因此，要用滚动条来控件图片的显示，就要自己编程实现。持滚动条。因此，要用滚动
22、条来控件图片的显示，就要自己编程实现。(1)界面设计与属性设置界面设计与属性设置 在窗体上放置在窗体上放置Picture1控件、控件、HScroll1控件、控件、VScroll1控件，控件，并在并在 Picture1控件中放置控件中放置Image1控件，控件，通过通过Image1控件控件的属性窗口中的的属性窗口中的Picture属性加属性加载一张超大图片。载一张超大图片。图形演示图形演示18.1.2坐标系统与颜色坐标系统与颜色（1）坐标系统）坐标系统 为了确定控件、图形或文字在容器（窗体或图片框）中的位置或为了确定控件、图形或文字在容器（窗体或图片框）中的位置或大小，必须了解容器的坐标系统。任
23、何容器都有一个默认的坐标系大小，必须了解容器的坐标系统。任何容器都有一个默认的坐标系统，如图所示：以容器的左上角为原点（统，如图所示：以容器的左上角为原点（0,0），），X轴方向向右为正，轴方向向右为正，Y轴方向向下为正，坐标单位（刻度）为缇（轴方向向下为正，坐标单位（刻度）为缇（Twip）。容器的坐标）。容器的坐标系统的原点、方向和坐标单位可以通过修改刻度属性或使用系统的原点、方向和坐标单位可以通过修改刻度属性或使用Scale方方法来改变，但一般使用默认的坐标系统。法来改变，但一般使用默认的坐标系统。对象的内部高度对象的内部高度ScaleMode属性属性 可通过设置容器的可通过设置容器的Sc
24、aleMode属性值来修改容器中的刻度。属性值来修改容器中的刻度。例如：例如：frmDisplay.ScaleMode=6将窗体的刻度设置为毫米将窗体的刻度设置为毫米picDisplay.ScaleMode=VbPixels将图片框的刻度设置为像素将图片框的刻度设置为像素重新设置重新设置ScaleMode属性后，属性后，ScaleWidth和和ScaleHeight属性值将自动重属性值将自动重新定义，使之与新的刻度保持一致，而新定义，使之与新的刻度保持一致，而ScaleTop和和ScaleLeft属性将自动属性将自动设为设为0。返回目录返回目录返回目录返回目录ScaleLeft和和ScaleT
25、op属性属性 用于定义容器的左上角的坐标。用于定义容器的左上角的坐标。例如：例如：ScaleLeft=200ScaleTop=200将当前窗体的左上角坐标定义为将当前窗体的左上角坐标定义为(200,200)ScaleWidth和和ScaleHeight属性属性对象的内部宽度和高度对象的内部宽度和高度CurrentX和和CurrentY属性属性用于设置或返回容器当前的坐标值。用于设置或返回容器当前的坐标值。例如：例如：Private Sub Picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
26、Picture1.CurrentX=X Picture1.CurrentY=Y Picture1.Print Str(Int(Picture1.CurrentX)&,&Str(Int(Picture1.CurrentY)End Sub当用户在当用户在Picture1中按下鼠标时，将鼠标按下的位置设为当前位置，中按下鼠标时，将鼠标按下的位置设为当前位置，并在当前位置输出当前坐标。并在当前位置输出当前坐标。Scale方法方法用于改变坐标系。用于改变坐标系。Scale方法的语法为：方法的语法为：对象名对象名.Scale (x1,y1)-(x2,y2)将容器的左上角坐标设为将容器的左上角坐标设为(x1
27、,y1)，右下角坐标设为，右下角坐标设为(x2,y2)。即。即容器的容器的ScaleTop=x1，ScaleLeft=x2，ScaleWidth=x2-x1，ScaleHeigth=y2-y1。若使用若使用Scale方法时不带参数，表示将容器的坐标系恢复为默认的方法时不带参数，表示将容器的坐标系恢复为默认的坐标系。坐标系。返回目录返回目录（2）设置颜色）设置颜色1、RGB函数函数可用于设置任何颜色。可用于设置任何颜色。RGB函数的语法为：函数的语法为：RGB(red,green,blue)参数参数red，green，blue分别表示红，绿，蓝的分量值。三个分量的取值分别表示红，绿，蓝的分量值。
28、三个分量的取值范围都是在范围都是在0到到255之间。之间。例如：例如：Picture1.BackColor=RGB(0,0,255)将将Picture1的背景色设为蓝的背景色设为蓝色色返回目录返回目录2、QBColor函数函数 只能用于设置只能用于设置16种颜色中的一种。种颜色中的一种。QBColor函数的语法为：函数的语法为：QBColor(color)参数参数color的取值范围是的取值范围是0到到15，分别与一种颜色相对应。，分别与一种颜色相对应。例如：例如：Pset(CurrentX,CurrentY)，QBColor(2)在当前位置画一绿色的在当前位置画一绿色的点点3、使用内部颜色常
29、量、使用内部颜色常量VB将常用的颜色值定义成内部常量。将常用的颜色值定义成内部常量。例如：例如：Form1.ForeColor=vbRedForm1.ForeColor=&HFF&将将Form1的前景色设为红色的前景色设为红色十十 六进制数六进制数 例例8.2 利用滚动条控件和利用滚动条控件和RGB(red,green,blue)函数控制图片框的函数控制图片框的背景色。背景色。图片框的背景色用图片框的背景色用RGB函数控制，而函数控制，而RGB函数的三个参数用滚动条函数的三个参数用滚动条的的Value属性值控制，由于三个参数的取值范围为属性值控制，由于三个参数的取值范围为0255，所以应将，所
30、以应将滚动条的滚动条的Max属性值改为属性值改为255，Min属性取默认值为属性取默认值为0。为了能在拖运。为了能在拖运滚动条的滚动框时能够动态地改变颜色，在滚动条的滚动条的滚动框时能够动态地改变颜色，在滚动条的Scroll事件中调事件中调用用Change事件。事件。返回目录返回目录8.1.3线条与形状控件线条与形状控件在容器中绘制一些简单的图形时，可以使用线条控件在容器中绘制一些简单的图形时，可以使用线条控件(Line)和形状控和形状控件件(Shape)。与其它控件不同的是这两个控件没有任何可以触发的事件，。与其它控件不同的是这两个控件没有任何可以触发的事件，只能用于美化界面。只能用于美化界
31、面。（1）线条控件）线条控件线条控件线条控件(Line)只可以用来画直线段。线段的位置、长短、颜色、宽只可以用来画直线段。线段的位置、长短、颜色、宽度等，可以用属性来设置。度等，可以用属性来设置。常用属性常用属性X1,Y1,X2,Y2属性属性 X1,Y1和和X2,Y2为直线段的两个端点的在容器中的坐标值，用来设为直线段的两个端点的在容器中的坐标值，用来设定线段的位置及长短。定线段的位置及长短。BorderWidth属性属性 用来设定直线的宽度。用来设定直线的宽度。BorderColor属性属性 用来设定直线的颜色。用来设定直线的颜色。返回目录返回目录BorderStyle属性属性 用来设定直线
32、的样式。用来设定直线的样式。（2）形状控件形状控件 形状控件形状控件(Shape)可用来画矩形、圆形、椭圆、正方形等图形，所可用来画矩形、圆形、椭圆、正方形等图形，所画的图形可以用不同的颜色及方式来填充。画的图形可以用不同的颜色及方式来填充。常用属性常用属性Shape属性属性 用来设定图形的形状样式。用来设定图形的形状样式。返回目录返回目录FillStyle属性属性用来设定图形内部的填充样式。用来设定图形内部的填充样式。FillColor属性属性 用来设定图形内部填充的颜色。用来设定图形内部填充的颜色。BackColor属性和属性和BackStyle属性属性 BackStyle属性用来设定形状
33、控件是否透明。属性用来设定形状控件是否透明。BackStyle属性取值可有两种设置：属性取值可有两种设置：0透明（默认值）除边框外，不会遮盖其它控件透明（默认值）除边框外，不会遮盖其它控件1不透明形状控件内部除了由不透明形状控件内部除了由FillStyle所指定的部分是由所指定的部分是由FillColor指定的颜色外，其他部分是由指定的颜色外，其他部分是由BackColor指定的颜色。指定的颜色。Top,Left,Height,Width属性属性 Top,Left用来设定图形的左上角的坐标，用来设定图形的左上角的坐标，Height,Width用来设定图用来设定图形的高度和宽度。形的高度和宽度。
34、BorderColor属性和属性和BorderColor属性属性 用来设定图形的边框宽度和颜色。用来设定图形的边框宽度和颜色。例例8.3利用形状控件和定时器控件制作简单的动画。利用形状控件和定时器控件制作简单的动画。界面设计如图界面设计如图8.5所示。所示。在窗体添加一图片框控件在窗体添加一图片框控件Picture1，在，在Picture1中添加两个形状控中添加两个形状控件件Shape1和和Shape2。Shape1为矩形作车头，设置好属性后复制为矩形作车头，设置好属性后复制一个矩形作车身。一个矩形作车身。Shape2为圆形作车轮，设置好属性后复制出另为圆形作车轮，设置好属性后复制出另一车轮。
35、在窗体中添加一时钟控件一车轮。在窗体中添加一时钟控件Timer1及两个命令按钮及两个命令按钮Commend1和和Commend2。8.1.4 Pset、Line和和Circle方法方法 使用线条和形状控件可以绘制简单的图形，但使用使用线条和形状控件可以绘制简单的图形，但使用VB提供的提供的绘图方法可以绘制更加复杂的图形。支持绘图方法的对象为窗体绘图方法可以绘制更加复杂的图形。支持绘图方法的对象为窗体或图片框。常用的绘图方法有：或图片框。常用的绘图方法有：（1）画点）画点(Pset)Pset方法可用于在指定的位置方法可用于在指定的位置(x,y)，用指定的颜色画点。语法格式，用指定的颜色画点。语法
36、格式为：为：object.Pset Step (x,y),color表示可选项，若省略所有可选项，即表示可选项，若省略所有可选项，即Pset (x,y)表示在当前窗体表示在当前窗体的坐标位置为的坐标位置为(x,y)处，以前景色画点。处，以前景色画点。Step表示表示(x,y)为与当前坐标的的相对位移。例如：为与当前坐标的的相对位移。例如：CurrentX=100CurrentY=100将当前窗体的当前坐标置为将当前窗体的当前坐标置为100,100Pset Step (50,100)在当前窗体的坐标位置为在当前窗体的坐标位置为150,200处画点处画点Picture1.Pset (200,200
37、),vbRed 在在Picture1中画一红色的点。中画一红色的点。这时这时(200,200)表示表示Picture1中的坐标位置。中的坐标位置。颜色除了可用内部颜色常量外，也可用颜色函数颜色除了可用内部颜色常量外，也可用颜色函数RGB或或QBColor。（2）画线或矩形）画线或矩形(Line)Line方法可用于画直线或矩形。语法格式为：方法可用于画直线或矩形。语法格式为：object.Line Step(x1,y1)Step(x2,y2),color,BF参数参数(x1,y1)为起点坐标，若省略表示以当前坐标为起点。为起点坐标，若省略表示以当前坐标为起点。参数参数(x2,y2)为终点坐标。为
38、终点坐标。选项选项B表示画矩形，若省略为画直线。表示画矩形，若省略为画直线。选项选项F只有有选项只有有选项B时才可选，表示用前景色或时才可选，表示用前景色或Line方法中指定的颜色方法中指定的颜色填充矩形。若只有填充矩形。若只有B，不选，不选F，矩形的填充色由绘图区的，矩形的填充色由绘图区的FillColor属性属性值和值和FillStyle属性值决定。属性值决定。例如：例如：Line (0,0)(ScaleWidth,ScaleHeight)在从坐标在从坐标(0,0)处到当前窗体的右下角画一直线处到当前窗体的右下角画一直线Picture1.Line (200,200),B 在在Picture
39、1中以当前坐标位置为起点，以坐标位置中以当前坐标位置为起点，以坐标位置(200,200)为终点，以前景色画一矩形。为终点，以前景色画一矩形。Line (100,100)-(1000,1000),RGB(0,255,0),BF 以绿色画一矩形并用绿色填充。以绿色画一矩形并用绿色填充。（3）画圆、椭圆、扇形和弧线）画圆、椭圆、扇形和弧线(Circle)Circle方法可用于画圆、椭圆、扇形和弧线等。方法可用于画圆、椭圆、扇形和弧线等。1.画圆画圆语法格式为：语法格式为：object.circle Step (x,y),radius ,color参数参数(x,y)为圆心的坐标。为圆心的坐标。radi
40、us为圆的半径。为圆的半径。color为画圆时的画线颜色，若省略，则表示用前景色画圆。圆的填为画圆时的画线颜色，若省略，则表示用前景色画圆。圆的填充色由绘图区的充色由绘图区的FillColor属性值和属性值和FillStyle属性值决定。属性值决定。例如：例如：circle (100,100),50,vbRed 在坐标在坐标100,100处用红色画半径为处用红色画半径为50的圆的圆2.画圆弧或扇形画圆弧或扇形语法格式为：语法格式为：object.circle Step (x,y),radius ,color,start,end 参数参数start和和end 为圆弧的起点和终点，以弧度为单位，取
41、值范围为圆弧的起点和终点，以弧度为单位，取值范围0到到2。若取值为负数，表示画扇形。若取值超过若取值为负数，表示画扇形。若取值超过2或或2，程序将会出错。，程序将会出错。弧度的计算是以圆形的最右边为弧度的计算是以圆形的最右边为0，以逆时针方向为正。，以逆时针方向为正。例如：当窗体大小改变时，在窗体内画圆弧。如图例如：当窗体大小改变时，在窗体内画圆弧。如图8.6所示。所示。3.画椭圆画椭圆语法格式为：语法格式为：object.circle Step (x,y),radius ,color,start,end,aspect 参数参数aspect为圆的纵横比（垂直半径为圆的纵横比（垂直半径/水平半径
42、）。若大于水平半径）。若大于1，参数，参数radius为垂直半径，相当于标准的圆被水平压缩；若小于为垂直半径，相当于标准的圆被水平压缩；若小于1，参数，参数radius为水平半径，相当于标准的圆被垂直压缩。为水平半径，相当于标准的圆被垂直压缩。（4）与绘图有关的方法）与绘图有关的方法Cls清除画面清除画面语法格式为：语法格式为：object.Cls 用于清除指定对象上用绘图方法所绘制的图形。注意：用用于清除指定对象上用绘图方法所绘制的图形。注意：用Cls方法不能清除用线条控件方法不能清除用线条控件Line和形状控件和形状控件Shape所绘制的图形。所绘制的图形。Print文字输出文字输出语法格
43、式为：语法格式为：object.Print experssion,|;用于在当前位置用于在当前位置(CurrenX,CurrentY)输出文字。输出文字。Point取得颜色数据取得颜色数据语法格式为：语法格式为：object.Point(x,y)用于取得指定坐标位置用于取得指定坐标位置(x,y)处一点的颜色数据。处一点的颜色数据。（5）与绘图方法有关的属性）与绘图方法有关的属性DrawStyle属性与属性与DrawWidth属性属性 用于设定使用绘图方法时所用的划线的样式及线宽。用于设定使用绘图方法时所用的划线的样式及线宽。FillStyle属性与属性与FillColor属性属性用于设定使用绘
44、图方法所绘制的封闭区间的填充样式与填充颜色。用于设定使用绘图方法所绘制的封闭区间的填充样式与填充颜色。AutoRedraw属性属性 用于设定由绘图方法所产生的图形是否能自动重绘，默认值为用于设定由绘图方法所产生的图形是否能自动重绘，默认值为False，即当所绘的图形被遮盖后再重新显露出来时，被遮盖的部，即当所绘的图形被遮盖后再重新显露出来时，被遮盖的部分不能自动重绘。分不能自动重绘。当当AutoRedraw属性值为属性值为False时，用绘图方法所产生的图形只是输时，用绘图方法所产生的图形只是输出到屏幕上的工作区中，并不记入内存，当窗体被遮盖后再重新显出到屏幕上的工作区中，并不记入内存，当窗体
45、被遮盖后再重新显露出来时，被遮盖的这部分图形不会重新显示出来。露出来时，被遮盖的这部分图形不会重新显示出来。当当AutoRedrass属性值为属性值为True时，用绘图方法产生的图形不仅输出时，用绘图方法产生的图形不仅输出到屏幕的工作区中，而且被记入内存，所以当窗体被遮盖后再重新到屏幕的工作区中，而且被记入内存，所以当窗体被遮盖后再重新显露出来时，被遮盖的这部分图形可以重新显示出来。显露出来时，被遮盖的这部分图形可以重新显示出来。例题例题AutoRedraw例例8.4利用绘图方法绘制简单的图形。利用绘图方法绘制简单的图形。界面设计及属性设置如图所示。界面设计及属性设置如图所示。8.2 多媒体控
46、件与操作多媒体控件与操作8.2.1 VB的多媒体控件介绍的多媒体控件介绍 要使用要使用VB的多媒体控件，要先动手添加到工具箱中。在的多媒体控件，要先动手添加到工具箱中。在“工程工程”菜单中单击菜单中单击“部件部件”，或在工具箱上单击右键再单击，或在工具箱上单击右键再单击“部件部件”，选择选择Microsoft Multimedia Control 6.0,单击单击“确定确定”按钮。见图按钮。见图多媒体控件就添加到工具箱中了，通常称之为多媒体控件就添加到工具箱中了，通常称之为Multimedia MCI控控件。件。MCI是是Media Control Interface（媒体控件接口）的缩写，（
47、媒体控件接口）的缩写，它为多种多媒体设备提供了一个公用接口。实际上，它为多种多媒体设备提供了一个公用接口。实际上，VB多媒体控多媒体控件控件就是一组按钮，它用来向多媒体设备发出件控件就是一组按钮，它用来向多媒体设备发出MCI命令。命令。当把多媒体控件添加到窗体上后，工具的外观如图当把多媒体控件添加到窗体上后，工具的外观如图8.14所示，所示，它实际上是由一系列按钮组成，外观和按钮的功能与我们平常使用它实际上是由一系列按钮组成，外观和按钮的功能与我们平常使用的录音机相似。的录音机相似。它们被分别定义为它们被分别定义为Previous（最前）、（最前）、Next（最末）、（最末）、Play(播放播
48、放)、Pause(暂停暂停)、Back(上一曲上一曲)、Step(下一曲下一曲)、Stop（停止）、（停止）、Record(录音录音)和和Eject(弹出弹出)。8.2.2 多媒体控件的常用事件及属性多媒体控件的常用事件及属性多媒体控件常用的事件有：多媒体控件常用的事件有：ButtomClick事件、事件、ButtonCompleted事件、事件、当多媒体当多媒体MCI控制按钮激活的控制按钮激活的MCI命令完成命令完成后发送。后发送。ButomGotFocus事件、事件、ButtonLostFocus事件、事件、Done事件和事件和StatusUpdate事件，事件，Button可以是以下任意
49、一种：可以是以下任意一种：Previous、Next、Play、Pause、Back、Step、Stop、Record或或Eject。多媒体控件的常用属性包括：多媒体控件的常用属性包括：ButtonEabled属性属性 该属性设定控件上各个按钮的状态是否有效，当属性值为该属性设定控件上各个按钮的状态是否有效，当属性值为Ture时，时，按钮处在可用状态。当属性值为按钮处在可用状态。当属性值为False时，按钮呈现为灰色、不可使时，按钮呈现为灰色、不可使用。可以在属性栏中设置，初始的属性值都为用。可以在属性栏中设置，初始的属性值都为False，也可以用程序，也可以用程序设置，如今有以下程序：设置，
50、如今有以下程序：Button Visible属性属性 该属性设置控件上的各按钮是否出厂可见状态。当属性值为该属性设置控件上的各按钮是否出厂可见状态。当属性值为Flase时，按钮不可见，当属性为时，按钮不可见，当属性为True时，按钮是可见的。时，按钮是可见的。属性属性指定将要打开的或者将要保存的文件名。指定将要打开的或者将要保存的文件名。Frames属性属性规定每次单击规定每次单击Step或或Back按钮时，能够向前或后退的帧（画面）数。按钮时，能够向前或后退的帧（画面）数。在设计时，该属性不可用。它是一个长整型数。在设计时，该属性不可用。它是一个长整型数。Lengty属性属性该属性返回一个已
