Visual Basic程序设计 第三版 教学课件 作者 丁爱萍 第6 11章 项目九.pptVIP

项目九　图形与图像设计 任务9.1 绘 制 图 形　　任务导入　　使用绘图控件可以直接在窗体上绘制简单的图形，不需要编写代码，使用非常简单。本任务学习使用Shape(形状)控件和Line(直线)控件绘制图形的方法以及与图形和颜色有关的属性。 　　学习目标　　(1) 会使用常用的绘图控件绘制图形。　　(2) 了解与图形有关的属性。　　(3) 了解颜色属性和颜色函数的使用方法。 　　任务实施　　1．了解Shape控件　　Shape控件预定义了6种形状的图形，可通过设置Shape属性来显示所需的图形，见表9-1。　　图9.1所示为当Shape属性分别为0、1～5时，用Shape控件画图的效果。可以调整这些形状的大小，也可以设置其颜色、边框样式、边框宽度等。表9-2列出了Shape控件的常用属性。 图9.1 用Shape控件画出的图形 　　BorderStyle属性产生的效果取决于BorderWidth属性的设置。如果BorderWidth不是1，并且BorderStyle不是0或6，则将BorderStyle设置为1。图9.2所示为设计时用Shape控件画的图形。也可以在程序运行时修改属性以动态地显示图形。 图9.2 设计时通过设置属性显示不同图形 　　【课堂演练】　　【实例9-1】 编写程序显示Shape控件的6种形状，并设置不同的填充样式。　　【实现步骤】　　(1) 在窗体上建立Shape控件数组Shape1(0)～Shape1(5)。　　(2) 编写事件代码。 　　Private Sub Form_Activate()　　 Dim i As Integer　　 Print　　 Print “ 0 1 2 3 4 5 ”　　 Shape1(0).Shape = 0 　　 Shape1(0).FillStyle = 2 　　For i = 1 To 5　 Shape1(i).Left = Shape1(i – 1).Left + 1000 ‘ 确定控件位置　 Shape1(i).Shape = i’ 通过Shape属性改变控件形状　 Shape1(i).FillStyle = i + 2‘ 通过FillStyle属性改变填充样式　 Shape1(i).Visible = True　 Next i　End Sub 　　(3) 运行程序，结果如图9.3所示。 图9.3 在程序运行中改变Shape控件的属性 　　2．了解Line控件　　Line控件与Shape控件相似，但仅用于画线。Line控件用于在窗体、图片框或框架中画各种直线段，既可以在设计时通过设置线的端点坐标属性来画出直线，也可以在程序运行时动态地改变直线的各种属性。 　　在设计时，可以使用Line控件在窗体上可视化地安排直线的位置、长度、颜色、宽度、实虚线等属性。运行时不能使用Move方法移动Line控件，但是可以通过改变X1、X2、Y1和Y2属性来移动它或者调整它的大小。　　BorderStyle属性的效果取决于BorderWidth 属性的设置。如果BorderWidth的值不是1，并且BorderStyle的值不是0或6，则将BorderStyle的值自动设置为1。 　　可以在运行时修改其属性，语句如下：　　Line.BorderWidth=3 ‘ 将直线宽度设置为3个像素(Pixel)　　用Line控件画直线时，系统将每一根直线(即一个Line控件)都看成是一个对象，如图9.4所示。 图9.4 设计时用Line控件所画的直线 　　3. 了解与图形有关的属性　　在VB中，窗体、图片框或Printer对象都有一些与图形有关的属性，使用这些属性能够设置颜色、线型和填充样式，可以绘制出丰富多彩的图形。表9-3中列出了这些图形属性。 　　4．了解DrawMode属性　　DrawMode属性用来决定由图形方法或Shape控件及Line控件所绘制线条的真实颜色。在一个黑色或纯白色的背景上，或者在未定义颜色的背景上绘图时，DrawMode属性将不起作用。 　　用DrawMode属性绘图时，系统将当前的ForeColor、BackColor和DrawMode属性所确定的方式组合起来，其结果为最后绘图的颜色。DrawMode属性的语法为　　[〈对象〉.] DrawMode [=〈值〉]　　其中，〈值〉的范围为1～16，按其复杂程度可分为表9-4所示的四类。 　　在这四种变化中，DrawMode属性不考虑前景色(ForeColor)，只设置像素的当前