八图形操作与多媒体教学内容PPT课件.ppt

第八章图形操作与多媒体第八章图形操作与多媒体教学内容：教学内容：8.1 图形控件与操作图形控件与操作8.2 多媒体控件与操作多媒体控件与操作项目十项目十 图形化时钟项目图形化时钟项目 一、项目功能一、项目功能一、项目功能一、项目功能利用图像控件，画一个简单而实用的时钟掌握掌握LineLine控件的使用控件的使用熟悉熟悉计时器控件的使用计时器控件的使用 能力目标理解理解VBVB中坐标系的概念中坐标系的概念LineLine控件的使用控件的使用计时器控件的使用计时器控件的使用 知识目标VBVB中坐标系的概念中坐标系的概念二、知识、能力和素质目标二、知识、能力和素质目标二、知识、能力和素质目标二、知识、能力和素质目标三、任务划分三、任务划分任任任任务务一一一一任任任任务务二二二二任任任任务务三三三三设计项目的界面设计项目的界面设置控件属性设置控件属性编写事件代码编写事件代码任务一任务一 设计项目的界面设计项目的界面本本项项目目用用到到1 1个个lineline、1 1个个计计时时器器，其其大大小小、位位置置如如下下图图所示：所示：任务二任务二 设置控件属性设置控件属性设置窗体、计时器的属性：设置窗体、计时器的属性：1 1、计计时时器器的的intervalinterval设设置置为为：0 0，EnableEnable设设置置为为：truetrue。2 2、lineline控件主要用其方法实现画线条。控件主要用其方法实现画线条。3 3、其它略。、其它略。任务三任务三 编写代码编写代码分别编写窗体、计时器代码：分别编写窗体、计时器代码：1 1、窗体的事件：、窗体的事件：Load,Load,ResizeResize Private Sub Form_Load()Private Sub Form_Load()Timer1.Interval=100 Timer1.Interval=100 Width=4000 Width=4000 Height=4000 Height=4000 Left=Screen.Width 2-2000 Left=Screen.Width 2-2000 Top=(Screen.Height-Height)2 Top=(Screen.Height-Height)2 End Sub End Sub （1 1）窗体的）窗体的LoadLoad事件代码：事件代码：Private Sub Form_Resize()Private Sub Form_Resize()Dim i,Angle Dim i,Angle Static flag As Boolean Static flag As Boolean If flag=False Then If flag=False Then flag=True flag=True For i=0 To 14 For i=0 To 14 画出表盘画出表盘1212个点和时、分、秒共个点和时、分、秒共1515个个LINELINE If i 0 Then Load Line1(i)If i 0 Then Load Line1(i)Line1(i).Visible=True Line1(i).Visible=True Line1(i).BorderWidth=5 Line1(i).BorderWidth=5 Line1(i).BorderColor=RGB(0,128,0)Line1(i).BorderColor=RGB(0,128,0)设置设置LINELINE的粗细和颜的粗细和颜色色 Next iNext i End If End If For i=0 To 14 For i=0 To 14 Scale(-1,1)-(1,-1)Scale(-1,1)-(1,-1)Angle=i*2*Atn(1)/3 Angle=i*2*Atn(1)/3 Line1(i).X1=0.9*Cos(Angle)Line1(i).X1=0.9*Cos(Angle)Line1(i).Y1=0.9*Sin(Angle)Line1(i).Y1=0.9*Sin(Angle)Line1(i).X2=Cos(Angle)Line1(i).X2=Cos(Angle)Line1(i).Y2=Sin(Angle)Line1(i).Y2=Sin(Angle)Next i Next i End Sub End Sub（2 2）窗体的）窗体的ResizeResize事件代码：事件代码：2 2、计时器的事件：、计时器的事件：TimerTimer Private Sub timer1_Timer()Private Sub timer1_Timer()Const HH=0,MH=13,SH=14 Const HH=0,MH=13,SH=14 Dim Angle Dim Angle Static LS Static LS If Second(Now)=LS Then Exit Sub If Second(Now)=LS Then Exit Sub LS=Second(Now)LS=Second(Now)Angle Angle=0.5236 0.5236*(15(15-(Hour(Now)(Hour(Now)+Minute(Now)Minute(Now)/60)60)设设置时针置时针 Line1(HH).X1=0Line1(HH).X1=0 Line1(HH).Y1=0 Line1(HH).Y1=0 Line1(HH).X2=0.3*Cos(Angle)Line1(HH).X2=0.3*Cos(Angle)Line1(HH).Y2=0.3*Sin(Angle)Line1(HH).Y2=0.3*Sin(Angle)Angle Angle=0.1047 0.1047*(75(75-(Minute(Now)(Minute(Now)+Second(Now)Second(Now)/60)60)设置分针设置分针 Line1(MH).X1=0Line1(MH).X1=0 Line1(MH).Y1=0 Line1(MH).Y1=0 Line1(MH).X2=0.7*Cos(Angle)Line1(MH).X2=0.7*Cos(Angle)Line1(MH).Y2=0.7*Sin(Angle)Line1(MH).Y2=0.7*Sin(Angle)Angle=0.5236*(75-Second(Now)Angle=0.5236*(75-Second(Now)设置秒针设置秒针 Line1(SH).X1=0Line1(SH).X1=0 Line1(SH).Y1=0 Line1(SH).Y1=0 Line1(SH).X2=0.8*Cos(Angle)Line1(SH).X2=0.8*Cos(Angle)Line1(SH).Y2=0.8*Sin(Angle)Line1(SH).Y2=0.8*Sin(Angle)Form1.Caption Form1.Caption=Str(Now()Str(Now()窗窗口口显显示示精精确确的的日日期期和和数数字字化化的的时间时间 End SubEnd Sub项目十一项目十一 MP3MP3播放器项目播放器项目 一、项目功能一、项目功能一、项目功能一、项目功能通过对窗体事件的响应，制作简单的打字游戏。要求随机产生ASCII码为33到126之间的字符，其中包括数字、大小写英文字母和其他字符。掌握掌握文件操作方法文件操作方法掌握通用对话框的使用掌握通用对话框的使用 能力目标掌握掌握多媒体控件的常用属性和事件多媒体控件的常用属性和事件文件操作方法文件操作方法通用对话框的使用通用对话框的使用 知识目标多媒体控件的常用属性和事件多媒体控件的常用属性和事件二、知识、能力和素质目标二、知识、能力和素质目标二、知识、能力和素质目标二、知识、能力和素质目标三、任务划分三、任务划分任任任任务务一一一一任任任任务务二二二二任任任任务务三三三三设计项目的界面设计项目的界面设置控件属性设置控件属性编写事件代码编写事件代码任务一任务一 设计项目的界面设计项目的界面本本项项目目用用到到3 3个个标标签签、1 1个个图图片片框框、5 5个个按按钮钮和和1 1个个通通用用对对话框，其大小、位置如下图所示话框，其大小、位置如下图所示 任务二任务二 设置控件属性设置控件属性设置窗体和按钮、标签的属性：设置窗体和按钮、标签的属性：1 1、label1label1用用于于提提示示播播放放的的时时间间，其其CaptionCaption为为：“播播放放时时间间：”。2 2、label2label2用于显示播放的时间，其用于显示播放的时间，其CaptionCaption为：为：“”“”。3 3、label3label3用于显示播放的曲目。用于显示播放的曲目。4 4、图片框的、图片框的namename属性为：属性为：Mp3Play1Mp3Play14 4、其它控件的属性（略）、其它控件的属性（略）任务三任务三 编写代码编写代码分别编写按钮和图片框的代码：分别编写按钮和图片框的代码：1 1、图片框图片框的事件：的事件：ActFrameActFramePrivate Sub Mp3Play1_ActFrame(ByVal ActFrame As Long)Private Sub Mp3Play1_ActFrame(ByVal ActFrame As Long)Label2.Caption Label2.Caption=(ActFrame(ActFrame*Mp3Play1.MsPerFrame)Mp3Play1.MsPerFrame)10001000End SubEnd Sub2 2、按钮的事件：、按钮的事件：ClickClickPrivate Sub cmdPlay_Click()Private Sub cmdPlay_Click()Mp3Play1.Play Mp3Play1.PlayEnd SubEnd SubPrivate Sub cmdPause_Click()Private Sub cmdPause_Click()Mp3Play1.Pause Mp3Play1.PauseEnd SubEnd SubPrivate Sub cmdClose_Click()Private Sub cmdClose_Click()Mp3Play1.Close Mp3Play1.CloseEnd SubEnd SubPrivate Sub cmdOpen_Click()Private Sub cmdOpen_Click()CommonDialog1.ShowOpen CommonDialog1.ShowOpen r=Mp3Play1.Open(CommonDialog1.FileName,)r=Mp3Play1.Open(CommonDialog1.FileName,)Label3.Caption=Label3.Caption=正在播放歌曲：正在播放歌曲：&CommonDialog1.FileNameCommonDialog1.FileNameEnd SubEnd SubPrivate Sub cmdStop_Click()Private Sub cmdStop_Click()Mp3Play1.Stop Mp3Play1.StopEnd SubEnd Sub8.1 8.1 图形控件与操作图形控件与操作8.1.1 8.1.1 图片框控件和图像框控件图片框控件和图像框控件（1 1）图片框控件）图片框控件 图图片片框框（PicturePicture）控控件件是是一一个个完完整整的的图图形形控控件件。不不仅仅可可用用于于显显示示多多种种格格式式的的图图片片，也也能能支支持持VBVB中中的的各各种种绘绘图图方方法法和和PrintPrint方方法，而且还能作为一个容器用于放置其他控件。法，而且还能作为一个容器用于放置其他控件。支支持持的的图图形形文文件件格格式式有有：位位图图文文件件（.bmp.bmp、.dib.dib、.cur.cur）、图图标标文文件件（.ico.ico）、图图元元文文件件（.wmf.wmf）、增增强强型型图图元元文文件件（.emf.emf）、JPEGJPEG图形（图形（.emf.emf）或）或GIFGIF图形（图形（.gif.gif）等。）等。JPEG(Joint JPEG(Joint Photographic Photographic Expert Expert Group)Group)是是静静止止图图形形压压缩缩算算法法的的国国际际标标准准，采采用用有有损损压压缩缩技技术术，压压缩缩比比可可选选择择，支支持持灰灰度度和和真真彩彩色色图像。图像。GIF(Graphic GIF(Graphic Interchange Interchange Format)Format)，采采用用无无损损压压缩缩技技术术。其其特特点点是是：只只要要用用一一半半的的显显示示时时间间即即可可大大致致看看出出图图片片的的全全貌貌，但但最最多多支支持持256256种颜色。种颜色。四、相关知识点四、相关知识点常用属性：常用属性：PicturePicture属性属性与窗体的与窗体的PicturePicture属性大致相同，用于指定图片框中要加载的图片。属性大致相同，用于指定图片框中要加载的图片。默默认认的的属属性性值值为为NoThingNoThing（未未加加载载图图形形文文件件）。设设计计时时可可以以修修改改其其属属性性值，还可用剪贴板将图片复制粘贴到图片框中。值，还可用剪贴板将图片复制粘贴到图片框中。在程序中也可以修改或删除图片框中的图片。在程序中也可以修改或删除图片框中的图片。例如：例如：Picture1.Picture=NoThing Picture1.Picture=NoThing 删除图片框中的图片删除图片框中的图片Picture1.Picture=Picture1.Picture=“”“”删除图片框中的图片删除图片框中的图片Picture1.Picture=Picture2.Picture Picture1.Picture=Picture2.Picture 修改图片框中的图片修改图片框中的图片用用LoadPictureLoadPicture函数加载一新图片或删除图片框中的图片函数加载一新图片或删除图片框中的图片例如：例如：在图片框中加载新图片在图片框中加载新图片Picture1.Picture=LoadPicture(Picture1.Picture=LoadPicture(“c:PHONE.gifc:PHONE.gif”)不带参数时表示删除图片框中的图片不带参数时表示删除图片框中的图片Picture1.Picture=LoadPicturePicture1.Picture=LoadPicture（）（）用用SavePictureSavePicture函函数数将将加加载载到到图图片片框框中中的的图图片片及及用用绘绘图图方方法法绘绘制制的的图图形保存到一指定的文件中形保存到一指定的文件中例如：例如：SavePicture Picture1.PictureSavePicture Picture1.Picture，D:TempTmp.BmpD:TempTmp.BmpPicturePicture属性属性AutoSizeAutoSize属性属性 用用于于选选择择是是否否自自动动调调整整图图片片框框控控件件的的大大小小以以适适应应所所加加载载的的图图片。片。默默认认的的属属性性值值为为FalseFalse（即即图图片片框框保保持持原原始始尺尺寸寸）。如如果果图图片片比比图图片片框框大大，那那么么超超出出的的部部分分不不能能显显示示出出来来，由由于于图图片片框框不不支支持持滚滚动动条条，未未显显示示的的部部分分用用户户将将无无法法看看到到。利利用用滚滚动动条条控控件件的的编编程程技技术术可可以以解解决决这这一一问问题题，在后面的编程实例中将看到这一点。，在后面的编程实例中将看到这一点。注注意意：若若加加载载的的是是图图元元文文件件（.wmf.wmf），那那么么图图形形会会自自动动调调整整大大小小来来适适应应图片框的大小，若加载的是其他类型的文件，那么图形不会调整大小。图片框的大小，若加载的是其他类型的文件，那么图形不会调整大小。AlignAlign属性属性 用用于于选选择择图图片片框框的的对对齐齐方方式式，可可以以使使图图片片框框依依附附在在窗窗体体上上下下左左右右任任一一边边上上，就就像像工工具具栏栏一一样样。还还可可使使图图片片框框的的大大小小随随窗窗体体的的大大小的改变而改变。小的改变而改变。默认值为默认值为0 0None(None(自定义大小及位置自定义大小及位置)。可供选择的值还有：。可供选择的值还有：1 1Align TopAlign Top（显示在窗体顶部）（显示在窗体顶部）2 2Align BottomAlign Bottom（显示在窗体底部）（显示在窗体底部）3 3Align LeftAlign Left（显示在窗体左边缘）（显示在窗体左边缘）4 4Align RightAlign Right（显示在窗全右边缘）（显示在窗全右边缘）显显示示在在窗窗体体的的顶顶部部或或底底部部时时，图图片片框框的的宽宽度度为为窗窗体体的的ScaleWidthScaleWidth属属性性值值，高高度度可可自自定定义义；显显示示在在窗窗体体的的左左、右右边边缘缘时时，图图片片框框的的高高度度等于窗体的等于窗体的ScaleWidthScaleWidth属性值，宽度可自定义。属性值，宽度可自定义。（2 2）图像框控件）图像框控件 图图像像框框（ImageImage）控控件件是是一一个个简简化化的的图图形形控控件件。与与图图片片框框控控件件一一样样，可可用用于于显显示示多多种种格格式式的的图图形形文文件件，但但不不支支持持VBVB中中的的各各种种绘绘图图方法和方法和PrintPrint方法，也不能作为一个容器来放置其他控件。方法，也不能作为一个容器来放置其他控件。加加载载图图片片时时，与与图图片片框框不不同同的的是是，默默认认时时系系统统能能自自动动调调整整图图像像框框或或图片的大小，使它们的大小总能保持一致。图片的大小，使它们的大小总能保持一致。常用属性：常用属性：PicturePicture属性属性 与与图图片片框框控控件件的的PicturePicture属属性性一一样样，用用于于指指定定图图像像框框中中要要加加载载的的图图片。加载、删除或修改图片的方法也与图片框中所用的方法相同。片。加载、删除或修改图片的方法也与图片框中所用的方法相同。StrecthStrecth属性属性 用于选择是否将加载的图片缩放到控件本身的大小。用于选择是否将加载的图片缩放到控件本身的大小。默默认认值值为为False(False(加加载载图图片片后后，图图片片不不缩缩放放)。这这时时系系统统将将自自动动调整控件的大小，以适应所显示的图片。调整控件的大小，以适应所显示的图片。若若将将StrechStrech属属性性值值改改为为true(true(加加载载图图片片后后，缩缩放放图图片片)。这这时时控控件件的的大大小不变。小不变。AppearanceAppearance属性、属性、BorderStyleBorderStyle属性属性用于选择控件的立体与边框外观。用于选择控件的立体与边框外观。AppearanceAppearance属性的默认值为属性的默认值为0 0（平面外观），若改为（平面外观），若改为1 1则为立体外观。则为立体外观。BorderStyleBorderStyle属属性性的的默默认认值值为为0 0（无无边边框框），若若改改为为1 1则则为为单单线线固固定定边框。边框。可可利利用用ImageImage控控件件来来代代表表一一个个按按钮钮，用用其其外外观观代代表表按按钮钮的的状状态态。在在ImageImage控控件件的的MouseDownMouseDown事事件件中中通通过过修修改改属属性性，将将外外观观设设置置为为“立立体体单单线线”表表示示按按钮钮按按下下；在在MouseUpMouseUp事事件件中中将将外外观观设设置置为为“平平面面单线单线”表示按抬起。表示按抬起。返回目录返回目录例题例题1 1返回目录返回目录例例8.18.1利用滚动条控件控制图片框中的超大图片的显示。利用滚动条控件控制图片框中的超大图片的显示。由由于于图图片片框框控控件件PicturePicture和和图图像像框框控控件件ImageImage都都没没有有滚滚动动条条属属性性，不不支支持滚动条。因此，要用滚动条来控件图片的显示，就要自己编程实现。持滚动条。因此，要用滚动条来控件图片的显示，就要自己编程实现。(1)(1)界面设计与属性设置界面设计与属性设置 在在窗窗体体上上放放置置Picture1Picture1控控件件、HScroll1HScroll1控控件件、VScroll1VScroll1控控件件，并并在在 Picture1Picture1控控件件中中放放置置Image1Image1控控件件，通通过过Image1Image1控控件件的的属属性性窗窗口口中中的的PicturePicture属属性性加载一张超大图片。加载一张超大图片。图形演示图形演示1 18.1.28.1.2坐标系统与颜色坐标系统与颜色（1 1）坐标系统）坐标系统 为为了了确确定定控控件件、图图形形或或文文字字在在容容器器（窗窗体体或或图图片片框框）中中的的位位置置或或大大小小，必必须须了了解解容容器器的的坐坐标标系系统统。任任何何容容器器都都有有一一个个默默认认的的坐坐标标系系统统，如如图图所所示示：以以容容器器的的左左上上角角为为原原点点（0,00,0），X X轴轴方方向向向向右右为为正正，Y Y轴轴方方向向向向下下为为正正，坐坐标标单单位位（刻刻度度）为为缇缇（TwipTwip）。容容器器的的坐坐标标系系统统的的原原点点、方方向向和和坐坐标标单单位位可可以以通通过过修修改改刻刻度度属属性性或或使使用用ScaleScale方方法法来改变，但一般使用默认的坐标系统。来改变，但一般使用默认的坐标系统。对象的内部高度对象的内部高度ScaleModeScaleMode属性属性 可通过设置容器的可通过设置容器的ScaleModeScaleMode属性值来修改容器中的刻度。属性值来修改容器中的刻度。例如：例如：frmDisplay.ScaleMode=6frmDisplay.ScaleMode=6将窗体的刻度设置为毫米将窗体的刻度设置为毫米picDisplay.ScaleMode=VbPixelspicDisplay.ScaleMode=VbPixels将图片框的刻度设置为像素将图片框的刻度设置为像素重重新新设设置置ScaleModeScaleMode属属性性后后，ScaleWidthScaleWidth和和ScaleHeightScaleHeight属属性性值值将将自自动动重重新新定定义义，使使之之与与新新的的刻刻度度保保持持一一致致，而而ScaleTopScaleTop和和ScaleLeftScaleLeft属属性性将将自自动设为动设为0 0。返回目录返回目录THANK YOUSUCCESS2024/2/29 周四31可编辑返回目录返回目录ScaleLeftScaleLeft和和ScaleTopScaleTop属性属性 用用于于定定义义容容器的左上角的坐标。器的左上角的坐标。例如：例如：ScaleLeft=200ScaleLeft=200ScaleTop=200ScaleTop=200将将当当前前窗窗体体的的左左上上角角坐坐标标定定义义为为(200,200)(200,200)ScaleWidthScaleWidth和和ScaleHeightScaleHeight属性属性对象的内部宽度和高度对象的内部宽度和高度CurrentXCurrentX和和CurrentYCurrentY属性属性用于设置或返回容器当前的坐标值。用于设置或返回容器当前的坐标值。例如：例如：Private Private Sub Sub Picture1_MouseDown(Button Picture1_MouseDown(Button As As Integer,Integer,Shift Shift As As Integer,Integer,X X As As Single,Single,Y Y As As Single)Single)Picture1.CurrentX=XPicture1.CurrentX=X Picture1.CurrentY=YPicture1.CurrentY=Y Picture1.Print Picture1.Print Str(Int(Picture1.CurrentX)Str(Int(Picture1.CurrentX)&,&Str(Int(Picture1.CurrentY),&Str(Int(Picture1.CurrentY)End SubEnd Sub当当用用户户在在Picture1Picture1中中按按下下鼠鼠标标时时，将将鼠鼠标标按按下下的的位位置置设设为为当当前前位位置置，并在当前位置输出当前坐标。并在当前位置输出当前坐标。ScaleScale方法方法用于改变坐标系。用于改变坐标系。ScaleScale方法的语法为：方法的语法为：对象名对象名 .Scale (x1,y1)-(x2,y2).Scale (x1,y1)-(x2,y2)将将容容器器的的左左上上角角坐坐标标设设为为(x1(x1,y1)y1)，右右下下角角坐坐标标设设为为(x2(x2,y2)y2)。即即 容容 器器 的的 ScaleTop=x1ScaleTop=x1，ScaleLeft=x2ScaleLeft=x2，ScaleWidth=x2-x1ScaleWidth=x2-x1，ScaleHeigth=y2-y1ScaleHeigth=y2-y1。若若使使用用ScaleScale方方法法时时不不带带参参数数，表表示示将将容容器器的的坐坐标标系系恢恢复复为为默默认认的的坐标系。坐标系。返回目录返回目录（2 2）设置颜色）设置颜色1 1、RGBRGB函数函数可用于设置任何颜色。可用于设置任何颜色。RGBRGB函数的语法为：函数的语法为：RGB(red,green,blue)RGB(red,green,blue)参参数数redred，greengreen，blueblue分分别别表表示示红红，绿绿，蓝蓝的的分分量量值值。三三个个分分量量的的取取值值范围都是在范围都是在0 0到到255255之间。之间。例如：例如：Picture1.BackColor Picture1.BackColor=RGB(0,RGB(0,0,0,255)255)将将Picture1Picture1的的背背景景色色设设为蓝色为蓝色返回目录返回目录2 2、QBColorQBColor函数函数 只能用于设置只能用于设置1616种颜色中的一种。种颜色中的一种。QBColorQBColor函数的语法为：函数的语法为：QBColor(color)QBColor(color)参数参数colorcolor的取值范围是的取值范围是0 0到到1515，分别与一种颜色相对应。，分别与一种颜色相对应。例如：例如：Pset(CurrentX Pset(CurrentX,CurrentY)CurrentY)，QBColor(2)QBColor(2)在在当当前前位位置置画画一一绿绿色色的点的点3 3、使用内部颜色常量、使用内部颜色常量VBVB将常用的颜色值定义成内部常量。将常用的颜色值定义成内部常量。例如：例如：Form1.ForeColor=vbRedForm1.ForeColor=vbRedForm1.ForeColor=&HFF&Form1.ForeColor=&HFF&将将Form1Form1的前景色设为红色的前景色设为红色十十 六进制数六进制数 例例8.28.2 利利用用滚滚动动条条控控件件和和RGB(RGB(red red,green green,blue blue)函函数数控控制制图图片片框的背景色。框的背景色。图图片片框框的的背背景景色色用用RGBRGB函函数数控控制制，而而RGBRGB函函数数的的三三个个参参数数用用滚滚动动条条的的ValueValue属属性性值值控控制制，由由于于三三个个参参数数的的取取值值范范围围为为0 0255255，所所以以应应将将滚滚动动条条的的MaxMax属属性性值值改改为为255255，MinMin属属性性取取默默认认值值为为0 0。为为了了能能在在拖拖运运滚滚动动条条的的滚滚动动框框时时能能够够动动态态地地改改变变颜颜色色，在在滚滚动动条条的的ScrollScroll事事件件中中调调用用ChangeChange事件。事件。返回目录返回目录8.1.38.1.3线条与形状控件线条与形状控件在在容容器器中中绘绘制制一一些些简简单单的的图图形形时时，可可以以使使用用线线条条控控件件(Line)(Line)和和形形状状控控件件(Shape)(Shape)。与与其其它它控控件件不不同同的的是是这这两两个个控控件件没没有有任任何何可可以以触触发发的的事事件件，只能用于美化界面。只能用于美化界面。（1 1）线条控件）线条控件线线条条控控件件(Line)(Line)只只可可以以用用来来画画直直线线段段。线线段段的的位位置置、长长短短、颜颜色色、宽宽度等，可以用属性来设置。度等，可以用属性来设置。常用属性常用属性X1,Y1,X2,Y2X1,Y1,X2,Y2属性属性 X1,Y1X1,Y1和和X2,Y2X2,Y2为为直直线线段段的的两两个个端端点点的的在在容容器器中中的的坐坐标标值值，用用来来设定线段的位置及长短。设定线段的位置及长短。BorderWidthBorderWidth属性属性 用来设定直线的宽度。用来设定直线的宽度。BorderColorBorderColor属性属性 用来设定直线的颜色。用来设定直线的颜色。返回目录返回目录BorderStyleBorderStyle属性属性 用来设定直线的样式。用来设定直线的样式。（2 2）形状控件形状控件 形形状状控控件件(Shape)(Shape)可可用用来来画画矩矩形形、圆圆形形、椭椭圆圆、正正方方形形等等图图形形，所画的图形可以用不同的颜色及方式来填充。所画的图形可以用不同的颜色及方式来填充。常用属性常用属性ShapeShape属性属性 用来设定图形的形状样式。用来设定图形的形状样式。返回目录返回目录FillStyleFillStyle属性属性用来设定图形内部的填充样式。用来设定图形内部的填充样式。FillColorFillColor属性属性 用来设定图形内部填充的颜色。用来设定图形内部填充的颜色。BackColorBackColor属性和属性和BackStyleBackStyle属性属性 BackStyleBackStyle属性用来设定形状控件是否透明。属性用来设定形状控件是否透明。BackStyleBackStyle属性取值可有两种设置：属性取值可有两种设置：00透明（默认值）除边框外，不会遮盖其它控件透明（默认值）除边框外，不会遮盖其它控件11不不透透明明形形状状控控件件内内部部除除了了由由FillStyleFillStyle所所指指定定的的部部分分是是由由FillColorFillColor指定的颜色外，其他部分是由指定的颜色外，其他部分是由BackColorBackColor指定的颜色。指定的颜色。Top,Left,Height,WidthTop,Left,Height,Width属性属性 Top,LeftTop,Left用用来来设设定定图图形形的的左左上上角角的的坐坐标标，Height,WidthHeight,Width用用来来设设定定图形的高度和宽度。图形的高度和宽度。BorderColorBorderColor属性和属性和BorderColorBorderColor属性属性 用用来来设设定定图图形形的的边边框框宽宽度度和颜色。和颜色。例例8.38.3利用形状控件和定时器控件制作简单的动画。利用形状控件和定时器控件制作简单的动画。界面设计如图界面设计如图8.58.5所示。所示。在在窗窗体体添添加加一一图图片片框框控控件件Picture1Picture1，在在Picture1Picture1中中添添加加两两个个形形状状控控件件Shape1Shape1和和Shape2Shape2。Shape1Shape1为为矩矩形形作作车车头头，设设置置好好属属性性后后复复制制一一个个矩矩形形作作车车身身。Shape2Shape2为为圆圆形形作作车车轮轮，设设置置好好属属性性后后复复制制出出另另一一车车轮轮。在在窗窗体体中中添添加加一一时时钟钟控控件件Timer1Timer1及及两两个个命命令令按按钮钮Commend1Commend1和和Commend2Commend2。8.1.4 Pset8.1.4 Pset、LineLine和和CircleCircle方法方法 使使用用线线条条和和形形状状控控件件可可以以绘绘制制简简单单的的图图形形，但但使使用用VBVB提提供供的的绘绘图图方方法法可可以以绘绘制制更更加加复复杂杂的的图图形形。支支持持绘绘图图方方法法的的对对象象为为窗窗体或图片框。常用的绘图方法有：体或图片框。常用的绘图方法有：（1 1）画点）画点(Pset)(Pset)PsetPset方方法法可可用用于于在在指指定定的的位位置置(x,y)(x,y)，用用指指定定的的颜颜色色画画点点。语语法法格格式为：式为：object.Pset Step (x,y),colorobject.Pset Step (x,y),color表表示示可可选选项项，若若省省略略所所有有可可选选项项，即即Pset Pset (x,y)(x,y)表表示示在在当当前前窗窗体的坐标位置为体的坐标位置为(x,y)(x,y)处，以前景色画点。处，以前景色画点。StepStep表示表示(x,y)(x,y)为与当前坐标的的相对位移。例如：为与当前坐标的的相对位移。例如：CurrentX=100CurrentX=100CurrentY=100CurrentY=100将当前窗体的当前坐标置为将当前窗体的当前坐标置为100,100100,100Pset Pset Step Step (50,100)(50,100)在在当当前前窗窗体体的的坐坐标标位位置置为为150,200150,200处处画点画点Picture1.Pset Picture1.Pset (200,200)(200,200),vbRedvbRed 在在Picture1Picture1中中画画一一红红色色的的点。点。这时这时(200,200)(200,200)表示表示Picture1Picture1中的坐标位置。中的坐标位置。颜色除了可用内部颜色常量外，也可用颜色函数颜色除了可用内部颜色常量外，也可用颜色函数RGBRGB或或QBColorQBColor。（2 2）画线或矩形）画线或矩形(Line)(Line)LineLine方法可用于画直线或矩形。语法格式为：方法可用于画直线或矩形。语法格式为：object object.Line Line Step Step(x1,y1)(x1,y1)Step Step(x2,y2)(x2,y2),color color,BF,BF参数参数(x1,y1)(x1,y1)为起点坐标，若省略表示以当前坐标为起点。为起点坐标，若省略表示以当前坐标为起点。参数参数(x2,y2)(x2,y2)为终点坐标。为终点坐标。选项选项B B表示画矩形，若省略为画直线。表示画矩形，若省略为画直线。选选项项F F只只有有有有选选项项B B时时才才可可选选，表表示示用用前前景景色色或或LineLine方方法法中中指指定定的的颜颜色色填填充充矩矩形形。若若只只有有B B，不不选选F F，矩矩形形的的填填充充色色由