Visual Basic大学基础教程(第2版) 第11章 图形和图像

11.4 滚动条控件
滚动条控件有两个： 水平滚动条（HscrollBars） 垂直滚动条（VscrollBars） 除了方向外，水平滚动条和垂直滚动条 的动作是相同的。
11.4.1 滚动条常用属性
Min、Max属性 返回或设置滚动条所能代表的最小、最大 值，其取值范围为：-32768到32767。Min属 性的默认值为0，Max属性的默认值为 32767。 Value树型 返回或设置滚动条的当前位置，其返回值始 终介于Max 和Min属性值之间，包括这两个 值。
标准规格坐标系 除了用Twip作坐标系的度量单位外，用 户还可以使用标准规格选择其它的度量 单位。标准规格通过对象的“ScaleMode” 属性定义。在程序设计阶段，从属性窗 口找到ScaleMode属性并单击向下箭头， 将显示一个下拉列表，从中选择所需要 的度量规格。
自定义规格坐标系 自定义规格坐标系统通过以下4个属性设 定： [<对象名>.]ScaleLeft=X [<对象名>.]ScaleTop=Y [<对象名>.]ScaleWidth=<宽度> [<对象名>.]ScaleHeight=<高度>
11.1.2 VB坐标系统
VB的坐标系统分为三类：默认规格；标准 规格和自定义规格。 默认规格坐标系
在默认规格坐标系中，对象的左上角坐标为 （0，0），当沿着水平轴向右移动和沿着垂 直轴向下移动时，坐标值增加。对象的Top和 Left属性指定了该对象左上角距原点在垂直和 水平方向的偏移量。默认状态下，Top， Left，Width和Height属性用Twip（缇）作单 位。
11.2.2 矩形
1. 画矩形 格式： [对象.]Line[[Step(x1,y1)]-[Step](x2,y2)[,颜 色],B[F] 说明： 为了画矩形，参数B不能省略，否则所画的是 直线。省略“颜色”参数后，与该参数相关的逗 号不能省略。Step含义同画直线。例如： Line（200，200）-（1500，1500），，B 将画出左上角为（200，200），右下角为 （1500，1500）的空心矩形。
例 :在窗体上画一个饼图，并用蓝色填充。
Private Sub Form_Click() ScaleMode = 3 pie = 4 * Atn(1) X1 = ScaleWidth / 4 y = ScaleHeight / 2 FillColor = RGB(0, 0, 255) FillStyle = 0 If X1 > y Then i = y Else i = X1 Circle (X1, y), i, , -pie / 4, -3 * pie / 4 End Sub
尽管拖动滚动框会引起Value属性发生变 化，从而触发Change事件，但在滚动条内 拖动滚动框的过程中，并不发生Change事 件。此时将触发滚动条的Scroll（滚动）事 件。 在实际编程中，常用Scroll事件过程来跟踪 滚动条在拖动时数值的动态变化。由于在 单击滚动条或滚动箭头时，将产生Change 事件，因此常利用Change事件来获得滚动 条变化后的最终值。
11.3.3 使用图片框控件
图片的显示 PictureBox控件的主要作用是为用户显示图片。实际 显示的图片由Picture属性决定，要在运行时显示或替 换图片，利用函数LoadPicture来设置Picture属性。 PictureBox控件具有AutoSize属性，当该属性设置为 True时，PictureBox能自动调整大小与显示的图片匹 配。如果要用AutoSize属性设置为True的 PictureBox，设计窗体时就需要特别小心。图片将不 考虑窗体上的其它控件而调整大小，这可能导覆盖 其他控件。设计时应通过加载每一幅图片来检查是 否有这种现象发生。
起始角可以取正值，也可以取负值，但必 须同时为正值或同为负值。当为正值时， 从起始角到终止角画一条弧。当为负值 时，画出一个扇形。在这种情况下，弧的 两端由起始角和终止角的绝对值确定。例 如： Circle（600，600），200，，-2.1，-0.7 将以2.1弧度为起始角，以0.7弧度为终止角 画一个扇形。
画弧
弧是圆或椭圆的一部分，仍使用Circle方法来 画，格式如下： [对象.]Circle[Step]（x，y），半径[，颜色][， 起始角，终止角][，纵横比] 与画圆和椭圆相比，画弧的格式中多了“起始 角”和“终止角”，，即从“起始角”到“终止角” 画一段弧。如果省略“纵横比”或“纵横比”等 于1，则画的是圆弧，否则画的是椭圆的一部 分。
11.3 显示图片
11.3.1 直接加载图片到窗体
使用窗体的Picture属性，可以很方便的加载图 片到窗体上。要在运行时显示或替换图片，可 利用函数LoadPicture来设置Picture属性， LoadPicture函数的语法格式为： LoadPicture（[<文件名>]） 其中文件名是一个字符串表达式，包括驱动 器、文件夹和文件的名称。如果省略文件名， LoadPicture将清除图像。
2. 图案填充 用参数“F”可以画出实心矩形，即用指定的一种 颜色对矩形进行填充。除颜色填充外，VB还允 许对封闭图形进行图案填充。图案填充通过 FillStyle属性来实现，其格式为： [对象.]FillStyle=图案
3. 颜色 用Line方法画直线或矩形时，都有一个“颜色”参数，利 用这个参数可画出不同颜色的直线和矩形。 4. 颜色参数 如果想在运行阶段设置对象的颜色，则必须使用颜色参 数。在VB中可以用4种方法指定颜色参数。 RGB函数 RGB是R（红）、R（绿）、B（蓝）的缩写，RGB 函数通过三原色的值设置一种混合颜色，格式为： 混合颜色值=RGB（红色值，绿色值，蓝色值）
3.画直线Line 格式： [对象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,颜 色][,B][,F] 功能：最后两个参数（B和F）用于画矩 形，将在后面介绍。在上面的格式中，如 果省略最后两个参数B和F，则可用Line方 法从坐标（x1，y1）到（x2，y2）用指定 的颜色画一条直线。
第11章 图形和图像
11.1 11.2 11.3 11.4 图形 绘图方法 显示图片 滚动条
11.1 图形
11.1.1 图形控件和属性
直线（Line）控件和形状（Shape）控件用于 绘制一般几何图形。 直线控件可以建立简单的直线，用形状控件 可以画矩形，通过Shape属性设置，可以画出 圆、椭圆和圆角矩形。 直线和形状的位置属性X1，Y1；X2，Y2分 别表示直线的两个端点坐标。形状还具有 Height，Left，Top，Width等标准属性。此 外，直线和形状还具有以下属性：
1.BorderColor属性
用于设置直线和形状边界线的颜色。
2．BorderStyle属性
确定直线和形状边界线的线型，可取0-6中的7种值。
3．BorderWidth属性
制定直线和形状边界的线条宽度。1 ~5 线条宽度从 中心向外加宽，6 线条的宽度从外向内加宽。
4．BackStyle属性
返回或设置一个值，它指定Shape控件的背景是否透 明。
11.2 创建图形方法
11.2.1 点与直线
1.清屏Cls 格式： [对象.] .Cls 功能：该方法可以清除由Print方法产生的屏 幕信息，也可以清除窗体或图片框上的图形。 2.画点PSet 格式： [对象.]PSet[Step](x,y)[,颜色] 功能：该方法在指定的位置用指定的颜色画 一个点。
画椭圆
格式： [对象.]Circle[Step](x,y),半径[,颜色],,,纵横比 与画圆相比，格式中增加了几个逗号和一个参数，即 “纵横比”，它是一个单精度数。所谓纵横比，指的是 纵轴（Y）与横轴（X）的点数之比。纵横比用来决定 所画椭圆的形状。圆的纵横比是1.0，当纵横比大于1 .0 时，所画的圆高而窄；当纵横比小于1 .0时，所画的椭 圆呈扁平状。例如： Circle(800,700),400,,,3 将画一个窄而长的椭圆 Circle(800,700),400,,,1/3 将画一个扁平椭圆。
பைடு நூலகம்
5.FillColor属性
定义形状内部的颜色，设置方法与BackColor属性相 同。
6.FillStyle属性 返回或设置用来填充Shape控件、以及由Circle 和Line图形方法生成的圆和矩形的图案模式。 7.Shape属性 确定形状控件所画的几何特征。它可以被设置 为6种值，画出不同的几何图形。 例 在窗体上显示6种可以使用的形状，并用不同 的线型和填充图案。
11.2.3 圆、椭圆和弧
在VB中，圆、椭圆和弧都用Circle方法绘制，一般格 式如下： [对象.]Circle[Step]（x，y），半径[，颜色][，起始角， 终止角][，纵横比]
画圆
格式： [对象.]Circle[Step]（x，y），半径[，颜色] Circle方法以（x，y）为圆心，用指定的“半径”和“颜 色”画一个圆。如果有Step，则（x，y）是对CurrentX 和CurrentY的偏移量。
首先在窗体上画一个形状控件，然后建立该控件 的数组，画出6个形状。
编写如下事件过程： Private Sub Form_Click() Shape1(i).Left=Shape1(i-1) Dim i As Integer .Left + 800 FontSize = 12 Shape1(i).Shape=i CurrentX = 350 Shape1(i).Visible=True Shape1(0).BorderStyle Shape1(i).BorderStyle=i =0 Shape1(i).FillStyle = i Shape1(0).FillStyle = 0 CurrentX=CurrentX+550 Print "0"; Print i; For i = 1 To 5 Next i End Sub