一、直线和形状的属性

Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。

直线和形状具有Name和Visible属性，形状还具有Height，Left，Top，Width等标准属性，直线具有X1，Y1和X2，Y2。分别表示直线两个端点的坐标。即（X1，Y1）和（X2，Y2）此外，直线和形状还具有以下属性：

1．BorderColor属性

该属性用来设置形状和直线的颜色。

2．Border Style属性（默认值为：1）

该属性用来确定直线或形状的边界线的线型，可以取以下7种值：0——透明；1——实线；2——虚线；3——点线；4——点划线；5——双点划线；6——内实线。当该属性值为0时，控件实际上是不可见的。

3．BorderWidth

该属性用来指定直线的宽度或形状，边界线的宽度，该属性不能设置为0，默认以像素为单位。

4．BackStyle

该属性用于形状控件，其设置为0或1，用来决定形状是否指定的颜色填充（设置图形是否透明）。0——边界透明；1——边界用指定颜色填充。

5．FillColor

该属性用来定义形状的内部颜色，使用时必须保证FillStyle属性值不为1。

6．FillStyle

该属性的设置决定形状控件内部的填充图案，可以取以下8种值：0——实心；1——透明（不填充）；2——水平线；3——垂直线；4——向上对角线（斜线填充）；5——向下对角线（反斜线填充）；6——交叉线（网格填充）；7——对角交叉线（倾斜网格填充）。

7．Shape：该属性用来确定所画形状的几何特性，它可以被设置为6种值：0——矩形（默认）；1——正方形；2——椭圆形；3——圆形；4——四角圆化的矩形；5——四角圆化的正方形。

二、图形方法

使用Pset（画点）、Line（画线）、Circle（画圆）等图形方法，可以在窗体和图片框上绘制简单的图形。

1．Pset（画点）方法

格式：［对象名．］Pset［Step］（x，y）［，颜色］

功能：在对象的指定位置（x，y）上按选定的颜色画点

示例：下列语句能在坐标位置（500，900）处画一个红点：

Pset（500，900），RGB（255，0，0）

2．Line（画线）方法

格式1：［对象名．］Line［（x1，y1）］—（x2，y2）［，颜色］

功能：在两个坐标点之间画一条线段。

例如，下列语句可在窗体上画一条斜线

Line（600，600）－（2000，3000）

格式2：［容器名．］Line［（x1，y1）］—Step（x2，y2）［，Color］

所绘制直线的两个端点位置为（x1，y1）和（x1＋x2，y1＋y2）。

格式3：多点折线

连续使用缺省起点、画两点连线的语句，可以绘制多点折线。每句的终点位置为下一句的起点位置，首句或是采用格式1，或是以当前输出位置作为起点。

例如：下列语句在窗体上所绘折线如图5－13所示。

Line（50，100）—（100，100），RGB（120，120，200）

Line—（150，150），RGB（120，120，200）(www.daowen.com)

Line—Step（－50，50），RGB（120，120，200）

Line—（50，200），RGB（120，120，200）

Line—（0，150），RGB（120，120，200）

Line—（50，100），RGB（120，120，200）

图5－12　绘折线

矩形与填充矩形：

（1）格式1：［容器名．］Line［（x1，y1）］—［Step］（x2，y2）［，［Color］［，B］］

指定位置为矩形对角点，以容器的FillStyle填充格式、FillColor颜色在矩形内部填充；图形边框的颜色由Color表达式指定，缺省Color表达式则为容器的Fore Color属性。

图形的填充特性只有对封闭图形才起作用。

（2）格式2：［容器名．］Line［（x1，y1）］—［Step］（x2，y2），［Color］，BF

用画矩形边框的颜色再填充矩形为实心，该语句的输出效果与容器的FillStyle、Fill⁃Color属性无关。

例如：执行下列语句后，在窗体上的输出结果如图5－16所示。

Form1．FillStyle＝2

Form1．FillColor＝vbBlue

Form1．Fore Color＝vbGreen

Line（100，100）—（1500，1000），vbRed，B　′红色外框，蓝色水平填充线

Line（1600，100）—（2500，1000），B　′绿色外框，蓝色水平填充线

Line（2800，100）—（3800，1000），vbRed，BF　′红色实心矩形

3．Circle（画圆）方法

格式：［对象名．］Circle［Step］（x，y），半径［，颜色，起点，终点，纵横比］

功能：在对象上画圆、椭圆或圆弧。

DrawWidth用来设置绘图线的宽度，值以像素为单位，取值范围是1～32767，缺省值为1即一个像素宽。设置该属性后，将影响Pset、Line和Circle等方法的输出效果。

（1）画圆弧。

格式：［容器名．］Circle［Step］（x，y），radius，［Color］，start，end

start、end为Single类型表达式，该方法以start弧度为起点按逆时针方向到end弧度为止画一段圆弧（平行于x轴的正向为0弧度）。

若start为负值，该方法还画出1条从圆心到圆弧相应端点的连线，参数end也同样。

（2）画椭圆（弧）。

格式：［容器名．］Circle［Step］（x，y），radius，［Color］，start，end［，aspect］

aspect是取正值的Single类型表达式，为椭圆纵轴与横轴之比。若aspect值小于1，则radius为横轴的长度，否则为纵轴的长度。在缺省某参数前的参数时，不可以缺省“，”号。

【例5．6】在图片框上写字和画图。

图5－13　例5．6运行效果