（四）画线、矩形方法Line
• • • • • • 2. 画 矩形Line方法 格式：[容器名.]Line [(x1,y1)]-[Step](x2,y2), [Color] ,B[,F] B：表示将两个坐标点作为一对对角顶点画出矩形。 F：可选，只有B出现后才能出现。 有B没有F：矩形用当前的fillcolor和fillstyle填充。 有B也有F：矩形用边框的颜色填充。 注意：各参数可根据实际要求进行取舍，但如果舍去的是中间 参数，参数的位置分隔符不能舍去。
(x1,y1)
(x2,y2)
利用 Scale 方法可以改变原点的坐标并随之 改变最大坐标值，容器的左上角坐标为 (x1 ， y1)，右下角坐标为(x2，y2) 将容器在X轴方向分为x2-x1等份、Y轴方向 分为y2-y1等份
• 综合例题：单击“坐标系”按纽 (commnand1) ，把图 片框的坐标系统设置在中央，并画出该坐标系统的示 意图。 界面设计如下：
思考：图片框控件和影像框控件有何区别？
1、图片框是容器，而影像框不是。 2、加载速度影像框比较快。 3、调整图片大小的属性不同。 图片框：AutoSize 影像框：Stretch
直线控件（ Line1）
工具箱中直线控件的图标为 。 直线控件缺省的控件名称为：Line1、Line2、…… 属性： 1、起点和终点的位置属性 x1 y1 和 x2 y2 2、BoderStyle属性
Private Sub Picture1_MouseDown(Button As Integer, Shift _ As Integer, X As Single, Y As Single)
Picture1.Cls
Picture1.CurrentX＝X Picture1.CurrentY=Y
Picture1.Print “你好！”
图片框控件（ picture1 ）
（一）图片框的常用属性
⒈ Picture 属性（字符串类型）
图片框控件的Picture属性返回或设置图片框中的图片。 在图片框中加载图像有下列两种方式：
⑴ 在属性窗口中设置
界面设计时，在该图片框控件属性窗口中点击“Picture”属性，选择 所 需要加载的图片。
⑵ 在代码窗口中设置
(0,0)
代码设计
Private Sub Command1_Click()
Picture1.Scale (-Picture1.ScaleWidth / 2, -Picture1.ScaleHeight / 2) _ (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2) Picture1.Line (-Picture1.ScaleWidth / 2, 0) - (Picture1.ScaleWidth / 2, 0) Picture1.Line (0, -Picture1.ScaleHeight / 2) - (0, Picture1.ScaleHeight / 2) End Sub
第10章
图形控件与图形方法
主讲教师:夏其表
第10章 图形操作与 图形控件
10.1 10.2 10.3 10.4 坐标系统 图形控件 绘制图形的方法 综合举例
本章重点和难点
重点：绘制图形的方法、图形控件 难点：坐标系统
10.1 坐标系统
•坐标系统的三要素
原点
刻度
方向和大小
在Visual Basic中，通常以left、top和Width、Height四 个参数来衡量控件在容器中的位置和大小。
思考： 1、在图片框上绘制直线时，能否省略对象名？ 不能省略图片框的对象名。因为系统默认的对象名为窗体。
2、在画直线时，若省略起始点坐标，则直线将如何画出？ 将从上一条直线的终点处开始画。 若画第一条直线时就省略起始点，则直线从左上角顶点处 开始画。
画线方法Line
多点折线情况： 例如：下列语句在窗体上所绘折线如下图所示。
五彩碎纸效果图
（三）颜色取样函数Point
• • • 格式：Point(x,y) 该函数的返回值为点(x,y)的颜色值。 举例：图片复制
效果图
（四）画线、矩形方法Line
1．画线方法Line
• • • • 格式：[容器名.]Line [(x1,y1)]-[step] (x2,y2)[,Color] Color ： 表示线段的颜色，可以省略，省略时线段的颜色为容 器的前景色，即Forecolor颜色。 x1,y1 ： 表示线段的起点坐标，可省略，省略时表示直线从当 前打印坐标开始。 x2,y2：表示线段的终点坐标 。 Step参数：加上 Step 参数，表示所绘制直线的两个端点位置为 (x1,y1)和(x1+x2,y1+y2)。
形状控件 （Shape1）
（二）综合举例（效果图）
10.3
图形方法
颜色设置 画点方法Pset 颜色取样函数Point 画直线、矩形方法Line 画圆、圆弧、扇形、椭圆方法CirCle
（一）颜色设置
（1）
RGB函数 格式：RGB(Red,Green,Blue) 其中Red、Green、Blue取值范围都是0到255。 （2） QBColor函数 格式： QBColor(color) 其中color参数的取值为0-15范围内的整数。 （3） 使用预定义常量 例：Form1.ForeColor=vbRed （4） 直接赋值 例： Form1.ForeColor ＝&HFF& ‘设置为红色
(一）默认坐标系统
默认情况下，窗体的坐标原点在左上角顶点处，窗体的坐标方向为向右 和向下，坐标刻度为缇(twip)。
width
height
(left，top）
(二）容器自定义坐标系统
• 在Visual Basic中，每个容器都有一个自身的坐标系统， 坐标系中的X轴向右、Y轴向下延伸，如上图所示为缺 省的窗体坐标系统、图片控件的坐标系统。
（50，100） （100，100）
（0，150）
（150，150）
（50，200）
（100，200）
• Line (50,100)-(100,100) •Line -(150,150) •Line - (100,200) •Line -(50,200),RGB •Line -(0,150),RGB •Line -(50,100)
(0,0)
(10,-10)
（四） 坐标刻度
• 默认刻度: 缇 通过设置容器的 ScaleMode属性可以选择改变坐标系统 的单位。 • 设置容器的ScaleMode属性． ScaleMode属性为 1: 缇 ScaleMode属性值为2: 磅 ScaleMode属性值为3: 像素 ScaleMode属性值为4: 字符 ScaleMode属性值为5: 英寸 ScaleMode属性值为6: 毫米 ScaleMode属性值为7: 厘米
形状控件 （Shape1）
工具箱中形状控件的图标为 。 形 状 控 件 缺 省 的 控 件 名 称 为 ： Shape1 、 Shape2、……
形状控件 （Shape1）
（一）形状控件的常用属性：
⑴ Shape属性（整数0~5） ⑵ BoderStyle属性（整数0～6） (3)BorderColor：设置边框颜色。 (4) BorderWidth：设置边框宽度。 (5)backcolor (6)backstyle (7)fillcolor (8)FillStyle属性（整数0～7） 例如：Shape1.fillstyle=0 ‘设置填充色 Shape1.fillcolor=rgb(255,0,0)
Form1.ScaleLeft = -100 Form1.ScaleTop = 150
Form1.ScaleWidth = 200
Form1.ScaleHeight = -300
（三）改变容器坐标系的Scale方法
格式： [对象.]Scale[(x1, y1)-(x2 , y2)] 对象的左上角坐标值 对象的右下角坐标值
（二）画点方法PSet
格式：[容器.]Pset [step](x,y)[,color] ◆ 该方法在容器上(x,y)处以值为color的颜色画点；缺省容器 则指当前窗体，缺省 color 则为容器前景色（ ForeColor ）。 ◆ 该方法所画点的大小，取决于容器的DrawWidth属性值。 DrawWidth用来设置绘图线的宽度。 ◆ 举例：用Pset方法在窗体上画五彩碎纸
思考：有否有更简单的方法进行设置？
给图片框自定义大小和方向
Private Sub Command1_Click() Picture1.Scale (-10, 10)-(10, -10)
(-10,10)
Picture1.Line (-10, 0)-(10, 0)
Picture1.Line (0, 10)-(0, -10) End Sub
10.2
图形控件
图片框控件（Picture1） 影像框控件（Image1） 直线控件（Line1） 形状控件（Shape1）
图片框控件（ picture1 ）

工具箱中图片框控件的图标为 。 图 片 框 控 件 名 称 的 缺 省 值 为 ： Picture1 、 Picture2、…… 图片框控件用以显示图片，也可以作为其他对象的容 器、显示图形方法的输出结果和 Print 方法输出的文本。
格式：图片框控件名.Picture = LoadPicture(filename$)
图片框控件（ picture1 ）
（一）图片框的常用属性
2. AutoSize属性（逻辑型） AutoSize属性值为True时，图片框的边界会随着所装入 图片的大小变化而变化。 AutoSize属性值为False时，图片框显示不下的图片将被 截去。