Visual Basic 程序设计基础：第六章 图形控件和图形方法

1、 2 一个软件能否吸引用户，很重要的一点是对图形一个软件能否吸引用户，很重要的一点是对图形 技术的运用是否得当。技术的运用是否得当。漂亮的界面，生动的图形图像，漂亮的界面，生动的图形图像， 往往能够激发起用户使用软件的欲望往往能够激发起用户使用软件的欲望。 图形控件图形控件 VB坐标系坐标系 图形方法图形方法 本章细分为以下内容：本章细分为以下内容： 3 1、 PictureBox控件控件(图片框控件图片框控件) 主要作用：显示图片、绘图和显示文本、作为其主要作用：显示图片、绘图和显示文本、作为其 他控件的容器。他控件的容器。 主要属性：主要属性： Picture（配合（配合LoadPictu

2、re 函数）函数） 装入图片：装入图片： 对象名对象名. Picture = LoadPicture(“图片图片 文件文件”) 删除图片：删除图片： 对象名对象名. Picture = LoadPicture( “”) 6.1 图形控件图形控件 nPictureBox控件的另一个很重要的控件的另一个很重要的属性属性： AutoSize n当所要显示的图形比控件大时，如果当所要显示的图形比控件大时，如果 AutoSize为为False，超过的部分将被裁剪掉，超过的部分将被裁剪掉， 且控件不提供滚动条；如果且控件不提供滚动条；如果AutoSize为为True， 那么控件将会自动调整大小以显示完整图

3、那么控件将会自动调整大小以显示完整图 形。形。 PictureBox控件控件 主要方法：主要方法： 主要事件：主要事件： 6 6.1 图形控件图形控件 2、Image控件控件(影像框控件影像框控件) 主要作用：显示图片。主要作用：显示图片。 影像框比图片框占用的内存少，所以速度影像框比图片框占用的内存少，所以速度 较快。较快。 影像框内不能使用影像框内不能使用Print、Pset、Line、 Circle等方法进行绘图和输出文本，影像等方法进行绘图和输出文本，影像 框也不能作为其他控件的容器。框也不能作为其他控件的容器。 n除了除了Picture属性之外，属性之外，Image控件的一个很控件的

4、一个很 重要的属性：重要的属性：Stretch nStretch属性属性=False，影像框自动改变大小适，影像框自动改变大小适 应其中的图片应其中的图片 nStretch属性属性=True，图片自动调整尺寸适应，图片自动调整尺寸适应 影像框影像框 n常用事件：常用事件：与与Picture控件类似，如控件类似，如Change、 Click等。等。 2、Image控件控件(影像框控件影像框控件) 8 6.1 图形控件图形控件 3、Shape控件控件(形状控件形状控件) 11 6.1 图形控件图形控件 4、Line（直线控件）（直线控件） LineLine控件的重要属性：控件的重要属性：X1X1、

5、Y1Y1、X2X2、Y2Y2，分别表示直线两个端，分别表示直线两个端 点的坐标。点的坐标。 LineLine控件不响应任何事件，它只支持表面显示。控件不响应任何事件，它只支持表面显示。 12 6.2 Visual Basic坐标系坐标系 13 默认坐标系统（原点默认坐标系统（原点左上角、单位左上角、单位缇）缇） Height Y X 0,0 容器容器 Width Height 对象1 对象2 Width Left Top Left Top 14 定制坐标系统定制坐标系统 使用使用默认的坐标系统默认的坐标系统，坐标原点只能在，坐标原点只能在容器的左上角容器的左上角。 通过通过定制坐标系统定制坐标

6、系统，可以任意地设定，可以任意地设定坐标系统的原点位置坐标系统的原点位置 以及以及坐标的刻度坐标的刻度。 用到的容器属性：用到的容器属性：ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight Y X 缺省坐标系 ScaleLeft=0 ScaleTop=0 0 Y X 坐标平移 Scaleleft= -30 ScaleTop= -50 0 (-30,-50) 15 定制坐标系统定制坐标系统 容器内部左上角的坐标通过容器内部左上角的坐标通过ScaleLeft、ScaleTop来确定，来确定， 右下角的坐标还要用到另外两个属性：右下角的坐标还要用到另外两个属性：Sca

7、leWidth、ScaleHeight。 右下角的坐标值为：右下角的坐标值为： (ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight) 同时确定了坐标系的方向和单位同时确定了坐标系的方向和单位 Y X 0 (50,-60) ScaleLeft=0 ScaleTop=0 ScaleWidth=50 ScaleHeight=-60 Y X 两个对角点确两个对角点确 定一个坐标系定一个坐标系 ScaleLeft= -30 ScaleTop= -50 ScaleWidth=100 ScaleHeight=110 0 (-30,-50) (70,60) 16 定制坐标系统

8、定制坐标系统 ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight，这四个属性并，这四个属性并 不会改变容器本身的大小尺寸，它们所起的作用只是对容器内不会改变容器本身的大小尺寸，它们所起的作用只是对容器内 部部 区域的区域的“重新规划重新规划”。 Y X 0 (50,-60) ScaleLeft=0 ScaleTop=0 ScaleWidth=50 ScaleHeight=-60 Y X 两个对角点确两个对角点确 定一个坐标系定一个坐标系 ScaleLeft= -30 ScaleTop= -50 ScaleWidth=100 ScaleHeight=110 0 (

9、-30,-50) (70,60) 17 例例、通过通过ScaleTop，ScaleLeft，ScaleWidth和和ScaleHeight 属性属性，自定义图片框自定义图片框Pic1的坐标系。的坐标系。 Pic1. ScaleLeft = -200 Pic1. ScaleTop = 250 Pic1. ScaleWidth = 500 Pic1. ScaleHeight = -400 Y X 0 300-200 -150 250 窗体窗体Form1 18 定制容器内部的坐标系，除了利用以上所提的定制容器内部的坐标系，除了利用以上所提的 ScaleLeftScaleLeft、ScaleTopSc

10、aleTop、ScaleWidthScaleWidth、ScaleHeightScaleHeight这四个属这四个属 性之外，我们还可以利用性之外，我们还可以利用ScaleScale方法方法进行定制。进行定制。 定制坐标系统定制坐标系统 19 语法：语法：容器容器.Scale (xLeft,yTop) (xRight,yBottom) 容器左上角的坐标值容器左上角的坐标值容器右下角的坐标值容器右下角的坐标值 定制坐标系统定制坐标系统 20 Y X 0 300-200 -150 250 例如，建立和例如，建立和上面上面一样的坐标系。一样的坐标系。 Pic1.Scale (-200,250) (3

11、00, -150) 定制坐标系统定制坐标系统 Pic1. ScaleLeft = -200 Pic1. ScaleTop = 250 Pic1. ScaleWidth = 500 Pic1. ScaleHeight = -400 21 刻度可以通过容器的刻度可以通过容器的ScaleMode属性设置。属性设置。 0用户定义。用户定义。 1缇。这是缺省刻度。缇。这是缺省刻度。1英寸英寸=1140缇缇 2磅。磅。72磅磅= 1英寸英寸 3象素。监视器或打印机分辨率的最小单位。象素。监视器或打印机分辨率的最小单位。 4字符。打印时，一个字符有字符。打印时，一个字符有1/6英寸高英寸高1/12英寸宽英寸

12、宽 5英寸英寸 6毫米毫米 7厘米厘米 坐标刻度坐标刻度 ScaleMode属性属性 Private Sub Command1_Click() Form1.ScaleMode = 6 Print Command1.Width End Sub 应用应用Scale方法或者改变了方法或者改变了 ScaleLeft、ScaleTop、 ScaleHeight、 ScaleWidth属性值后，属性值后， ScaleMode的值自动变为的值自动变为0 23 例：例：点击按钮，使点击按钮，使Shape1对象移动。对象移动。 Private Sub Command1_Click() If Shape1.Lef

13、t = Form1.Width Then Shape1.Left = - Shape1.Width Shape1.Left = Shape1.Left + 1000 Else Shape1.Left = Shape1.Left + 1000 End If End Sub 24 1、执行下面程序段之后，窗体左上角坐标为（），、执行下面程序段之后，窗体左上角坐标为（）， 右下角坐标为（）？右下角坐标为（）？ Form1.ScaleTop = 1：Form1.ScaleLeft = 1 Form1.ScaleHeight = -2：Form1.ScaleWidth = 2 答案：答案：（1，1） （

14、3，1） 真题练习真题练习 25 2、与语句、与语句Scale(2,2)(2,2)等价的程序段是（）？等价的程序段是（）？ A、ScaleLeft = 2 ：ScaleTop = 2 ScaleWidth = 2 ：ScaleHeight = 2 B、 ScaleLeft = 2 ：ScaleTop = 2 ScaleWidth = 4 ：ScaleHeight = 4 C、 ScaleLeft = 4 ：ScaleTop = 4 ScaleWidth = 2 ：ScaleHeight = 2 D、 ScaleLeft = 4 ：ScaleTop = 2 ScaleWidth = 4 ：Sca

15、leHeight = 2 答案：答案：B 真题练习真题练习 26 判断题：移动框架时框架内控件也跟随移动，所以框架内判断题：移动框架时框架内控件也跟随移动，所以框架内 各控件的各控件的Left、Top属性值也将随之改变。属性值也将随之改变。 答案：错答案：错 真题练习真题练习 判断题：用判断题：用Scale方法改变了窗体坐标系后，窗体的方法改变了窗体坐标系后，窗体的Left、 Top属性值不变。属性值不变。 答案：对答案：对 27 6.3 图形方法（图形方法（pset，line，circle）以及函数）以及函数point 可以使用可以使用5种方式设置颜色：种方式设置颜色： (1)(1)直接在属

16、性栏里进行设置。直接在属性栏里进行设置。 (2)(2)使用使用RGBRGB函数。函数。 (3)(3)使用使用QBColorQBColor函数，选择函数，选择1616种种QbasicQbasic颜色中的一种。颜色中的一种。 (4)(4)使用系统提供的颜色常数。使用系统提供的颜色常数。 (5)(5)直接使用直接使用Long类类型颜色值。型颜色值。 28 （2）使用）使用RGB函数函数 RGB(red, green, blue)RGB(red, green, blue) 说明：说明： red, green, bluered, green, blue3 3种颜色，从种颜色，从0 0255255之间的一

17、个亮之间的一个亮 度值度值(0(0表示亮度最低，而表示亮度最低，而255255表示亮度最高表示亮度最高) )。 例：例：Form1.BackColor = RGB(126,76,200) Form1.BackColor = RGB(126,76,200) 设定背景紫色设定背景紫色 （3）使用）使用QBColor函数函数 其使用格式如下：其使用格式如下： QBColor(color)QBColor(color) 说明：说明： color参数是一个界于参数是一个界于015的整型数，分别代表的整型数，分别代表 16种颜色，如表种颜色，如表6-2所示。所示。 29 （4）使用系统定义的颜色常数）使用系

18、统定义的颜色常数 在在VBVB系统中已经预先定义了常用颜色的颜色常数，如常数系统中已经预先定义了常用颜色的颜色常数，如常数 vbRedvbRed就代表红色，就代表红色，vbGreenvbGreen代表绿色等等。代表绿色等等。 例如，例如，要将窗体的背景色设为红色。则可使用如下语句：要将窗体的背景色设为红色。则可使用如下语句： Form1.BackColor = vbRedForm1.BackColor = vbRed （5）直接使用颜色设置值）直接使用颜色设置值 用十六进制数指定颜色的格式为：用十六进制数指定颜色的格式为： &HBBGGRR&HBBGGRR 其中，其中，BBBB指定蓝颜色的值，

19、指定蓝颜色的值，GGGG指定绿颜色的值，指定绿颜色的值，RRRR指定红色的指定红色的 值。每个数段都是两位十六进制数，即从值。每个数段都是两位十六进制数，即从0000FFFF。 例如，例如， Form1.BackColor = &HFF0000Form1.BackColor = &HFF0000 它相当于：它相当于：Form1.BackColor = RGB(0, 0, 255)Form1.BackColor = RGB(0, 0, 255) 30 1设置线宽设置线宽DrawWidth 属性属性 窗体、图形框或打印机的窗体、图形框或打印机的DrawWidth属性给出这些对象上属性给出这些对象上

20、 所所画线画线的的宽度宽度或或点点的的大小大小。例如：。例如： Form1.DrawWidth = 2Form1.DrawWidth = 2 （宽度为（宽度为2 2个象素）个象素） 缺省值为缺省值为 1 1，即一个像素宽。，即一个像素宽。 6.3.2 线宽、线型与填充模式线宽、线型与填充模式 31 2. 设置线型设置线型DrawStyle 属性属性 设置值线 型图 示 0实线(缺省) 1长划线 2点线 3点划线 4点点划线 5透明线 6内实线 32 6.3.3 图形方法与应用图形方法与应用 其语法格式如下： 容器容器.Pset (X.Pset (X，Y) Y) ，colorcolor 例：例：

21、单击窗体画出带颜色的随机点。单击窗体画出带颜色的随机点。 Form1.PSet (Rnd * Form1.Width, Rnd * Form1.Height), QBColor(Int(Rnd * 16) 缺省为 ForeColo r 34 格式：格式：PointPoint（x x，y y） 该函数的返回值为点（该函数的返回值为点（x x，y y）的颜色值）的颜色值 C CPointPoint（5050，100100） 35 容器名容器名. Line (x1,y1)(x2,y2),Color,BF 其中：对象可以其中：对象可以是窗体或图片框。是窗体或图片框。 (x1,y1) ，(x2,y2)为

22、线段的起点、终点坐标。省略起点，缺为线段的起点、终点坐标。省略起点，缺 省为省为当前输出位置当前输出位置，缺省，缺省Color为容器的为容器的ForeColor属性。属性。 B表示画矩形，表示画矩形，F表示用画矩形的边框颜色来填充矩表示用画矩形的边框颜色来填充矩 形，若无形，若无F，则由对象的，则由对象的FillColor和和FillStyle来决定来决定 填充色。填充色。 Private Sub Form_Click() DrawWidth = 5 决定线的宽度决定线的宽度 FillStyle = 0 FillColor = vbYellow Line (1000, 1000)-(3000,

23、 3000), QBColor(12), B End Sub 各参数可根据实际要求进行取舍，但如果舍去各参数可根据实际要求进行取舍，但如果舍去 的是中间参数，参数的位置分隔符不能舍去。的是中间参数，参数的位置分隔符不能舍去。 37 （2）相对坐标的概念）相对坐标的概念 如果坐标值前加上关键字如果坐标值前加上关键字Step，就表示使用的是，就表示使用的是相对坐相对坐 标标，例如，例如 Step (x,y)。表示从。表示从当前坐标当前坐标分别再加上分别再加上x、y的值。的值。 38 对象对象. Line (x1,y1)Step (x2,y2),颜色颜色,BF 对象对象. PSet Step (x,

24、y) ,颜色颜色 例如：例如：Line (200,100)(250,150) 等价于等价于 Line (200,100)Step (50,50) 39 例：例： 画一个左上角在画一个左上角在(20,40)，右下角在，右下角在(150,200)的矩形，注意在的矩形，注意在color 参数省参数省 略时，逗号并不省略。略时，逗号并不省略。 出发点是出发点是(150,250)，终点是向，终点是向X轴正向走轴正向走150，向，向Y轴正向走轴正向走50的点的点 从当前位置（由从当前位置（由CurrentX，CurrentY决定）画到决定）画到(400,500) Line (250,300)-(400,5

25、00) Line - (400,500) Line (150,250) - Step (150,50) 等同于：等同于：Line (150,250) - (300,300) Line (20,40) - (150,200) , , B 40 真题练习真题练习 1、当使用、当使用Line方法画直线后，当前坐标为（）？方法画直线后，当前坐标为（）？ A、容器对象的原点、容器对象的原点 B、直线的起点、直线的起点 C、直线的终点、直线的终点 D、容器对象的中心、容器对象的中心 答案：答案：C 41 真题练习真题练习 2、假设窗体的当前坐标为（、假设窗体的当前坐标为（200，200），则执行语句），则

26、执行语句 Line Step（100，100）Step（200，200）时，绘制）时，绘制 的直线的起点坐标为（）？终点坐标为（）？的直线的起点坐标为（）？终点坐标为（）？ 答案：（答案：（300，300） （500，500） 42 3、语句、语句 Line（100，100）（）（500，500），），vbRed，BF 的功能是（）？的功能是（）？ 答案：在窗体上绘制一个红色的实心矩形答案：在窗体上绘制一个红色的实心矩形 真题练习真题练习 43 真题练习真题练习 4、Form1.FillColor = vbBlue Form1.FillStyle = 0 Line（100，100）（）（500

27、，500），），vbRed，B 以上程序段的功能是（）？以上程序段的功能是（）？ 答案：在窗体上绘制一个边框为红色、填充色为答案：在窗体上绘制一个边框为红色、填充色为 蓝色的矩形。蓝色的矩形。 44 格式：格式： 对象对象. Circle Step (x,y),半径半径,颜色颜色,起始角起始角,终止角终止角,纵横轴比率纵横轴比率 其中：其中： (x,y)为圆心坐标，可选关键字为圆心坐标，可选关键字Step表示采用相对坐标值；表示采用相对坐标值； 例如：例如：Circle (1000, 1000), 1000 圆弧和扇形通过参数起始角，终止角控制（单位：圆弧和扇形通过参数起始角，终止角控制（单位：弧度弧度）。角度前）。角度前 加加负号负号表示在圆心和圆弧间画出表示在圆心和圆弧间画出径向线；径向线；负号并不是表示负角度负号并不是表示负角度。 椭圆通过椭圆通过纵横轴比率纵横轴比率控制，默