VB神童教程第三章第四节--常用的绘图方法

一、设置当前绘图点：

在 VB 中，可以通过设置窗体或图形框的 CurrentX 与 CurrentY 属性来设置当前绘图点。CurrentX 与 CurrentY 决定了绘制或显示的起始坐标，在设计时，这两个属性不可用。

二、绘制点、线、面的方法：

1、点的绘制法：

在指定对象（如窗体、图形框）上的指定位置处绘制点，还可以为点指定颜色，语法如下：

对象名.Pset (X,Y)，[Color]

X ，Y 分别为点的水平与垂直坐标，Color 为点的颜色，是可选项。 2、直线的绘制法：

在对象上绘制直线，语法如下:

对象名.Line (X1,y1) - (X2,Y2), [Color]

(X1,Y1) 是直线的起点，(X2,Y2)是直线的终点，Color 为可选项。

2、图形框的代码是：

Private Sub Picture1_Click()

Picture1.Line (350, 1020)-(2050, 1020)

End Sub

3、绘制矩形：

用 Line 方法还可以绘制矩形，语法如下：

对象名.Line (X1,Y1) - (X2,Y2), [Color], B ,[F]

其中，(X1,Y1) 是矩形的左上角座标，(X2,Y2)是矩形右下角座标，Color 为矩形边框的颜色，使用参数 B 而不用 F ，那么矩形用当前的填充色（FillColor）与填充方式（FillStyle）对矩形进行填充；如果使用了参数 F ，那么矩形以边框的颜色进行填充。

特别注意，用 Line 画矩形框，如果不用其他参数，那么 B 与坐标(X2,Y2)之间应该有两个逗点，一个是紧跟坐标2，一个表示 Color 省略了，如：Picture1.Line (500,500) - (1000,1000),,B