向Y轴正向走50的点。
Line(150,250) - Step(150,50) 等同于：Line(150,250) - (300,300)
例4：画一个左上角在(20,40)，右下角在(150,200)
的矩形，注意在color 参数省略时，逗号并不省 略。 Line (20,40) - (150,200) , , B
线条控件的主要属性：
BorderStyle属性:设置线条的类型。
BorderWidth属性:设置线条的宽度，
即线条的粗细。
BorderColor属性设置线条的颜色。
BorderStyle属性的设置值 0 1 2 3 4 5 6 — — — — — — — 透明线 实心线 虚线 点线 点划线 点点相间的长划线 内部实线
例5：用红色从(20,40)到(70,110)画一个实心的矩
形。 Line(20,40)- Step(50,70), RGB(255,0,0), BF
例:使用Line方法，画出一个三角形和一个矩形。 Private Sub Form_Click() Form1.Scale(0,0)-(9,9) ' 定义新的坐标系 Form1.ForeColor=QBColor(1) '窗体的前景色为蓝色 Line(0, 6)-Step(4, 0) '画直线 Line -Step(-2, -4) '以第一条直线的终点为起点再画一直线 Line -Step(-2,4) '以第二条直线的终点为起点再画一直线 Line(5,2)-(8,6), , BF ‘画矩形并填充 end sub
Circle方法的使用:
Form1.Circle (-0.2, 0), 0.5, vbRed Circle (-0.2, 0), 0.5, vbBlue, , , 0.5
Circle (-0.2, 0), 0.5, , 0.5, 2.6
Circle (-0.2, 0), 0.5, vbGreen, -0.5, 2.6 Circle (-0.2, 0), 0.5, vbMagenta, -2.5, 0.6
RGB(red, green, blue)
说明： red, green, blue3种颜色，从0～255之间 的一个亮度值(0表示亮度最低，而255表示 亮度最高)。 例：Form1.BackColor = RGB(255, 0, 0)
'设定背景红色
二、使用QBColor函数
QBColor函数可返回一个Long值，用来表 示所对应颜色值的RGB颜色码。其使用格式 如下：
2. 使用Scale属性建立自己的坐标系 第一：重新定义坐标原点
属性ScaleTop，ScaleLeft的值用于控制对象左上角 坐标，所有对象的ScaleTop，ScaleLeft属性的缺省值为 0，坐标原点在对象的左上角。
= N，表示将X轴向Y轴的负方向平移N个单位
ScaleTop
= －N，表示X轴向Y轴的正方向平移N个单位
QBColor(color)
说明： color参数是一个界于0～15的整型数， 分别代表16种颜色。0-黑，1-蓝，2-绿， 3-青，4-红，等等。
三、使用系统定义的颜色常数
在VB系统中已经预先定义了常用颜色的 颜 色 常 数 ， 如 常 数 vbRed 就 代 表 红 色 ， vbGreen代表绿色等等。可在“对象浏览 器”中查询常数列表。 例如，要将窗体的背景色设为红色。则可使用 如下语句： Form1.BackColor = vbRed
返回
使用绘图方法绘图
当前坐标：CurrentX，CurrentY属性给出窗
体或图片框在绘图时的当前坐标。 在调用与绘图有关的方法时,currentx与 currenty的值会自动改变。 变化情况如下： Pset方法:当前坐标用来指向画出的点。 Line方法:当前坐标指向画出线的终点。 Circle方法:当前坐标指向画出圆形的中心。 Cls:当前坐标指向坐标原点。
Line直线控件
使用线条控件的操作步骤： （1）单击工具箱中的Line图标； （2）移动鼠标到要画线的起始位置： （3）按下鼠标左键并拖曳鼠标到要画线的结 束处，放开鼠标左键。 （4）打开属性窗口，设置线条属性，如线条 风格、线条颜色等。 （5）需要对设置好的线条进行调整时，可再 单击该线条，通过鼠标的拖动来改变线条的 大小或位置，或通过属性窗口来改变属性值。
(x2,y2)
可在程序中使用Scale方法改变坐标系统。当Scale方法不 带参数时，取消用户定义的坐标系，采用缺省坐标系。
使用控件绘图 ( Shape和Line控件 )
Shape控件可以用来画矩形、正方形、
椭圆、圆、圆角矩形及圆角正方形。
Line控件用于在窗体、图片框和框架
中画各种直线段
Shape形状控件
Circle方法
Circle方法用于画圆、椭圆、圆弧和扇形。
格式如下： [对象].Circle [Step] (x,y) ,<半径>[,[颜色][， [起始角][,[终止角][,[<纵横比>]]]]] 半径:要绘制的圆形,圆弧或扇形的圆心半径,若绘制的 为椭圆,则为长半轴的长度 颜色:所绘制图形的边框颜色,缺省时为当前容器的前 景色 起始角:所绘制圆弧或扇形的起始角度,弧度为单位 终止角:要绘制圆弧或扇形的终止角度,弧度为单位 纵横比:要绘制的椭圆形长半轴和短半轴的比值,>1时 为椭圆,<1,为椭圆,=1 为圆
在Visual Basic系统中，所有的颜色属性都 由一个Long整数表示。 在代码中可使用4种方式给颜色赋值： 使用RGB函数。
使用QBColor函数。
使用系统提供的颜色常量。 直接使用Long型颜色值。
一、使用RGB函数
RGB函数可返回一个Long整数，用来表示一 个RGB颜色值。其使用格式如下：
4
5
圆角矩形
圆角正方形
Vbshaperoundrectangle
vbshaperoundedsquare
形状控件的FillStyle属性
FillStyle 属性值 0 1 2 3 4 5 6 7 描述 实心 透明 水平线 垂直线 左上对角线 右下对角线 交叉线 对角交叉线 对应的符号常量 Vbfssolid Vbfstransparent Vbhorizontalline Vbverticalline Vbupwarddiagonal Vbdownwarddiagonal Vbcross vbdiagonalcross
X ( 0, 0 )
Y
用户自定义坐标系统
1.用户可用ScaleMode属性设置坐标系统的刻度 单位。ScaleMode属性的取值及含义见表。
说明：
1.当设置容器对象的ScaleMode属性值>0， 将使容器对象的ScaleLeft 和 ScaleTop 自 动 设 置 为 0 ， ScaleHeight 和 ScaleWidth 的度量单位也将发生改变。 2.用ScaleMode属性只能改变刻度单位，不 能改变坐标原点及坐标轴的方向。
FillStyle属性：设置图形填充样式，
可以构成不同的填充效果。
Fillcolor:设置图形填充色
Bordercolor:设置图形边框色 Borderwidth:设置图形边框宽度
形状控件的Shape属性
Shape属性值 0 1 2 3 描述 矩形 正方形 椭圆 圆 对应的符号常量 vbshaperectangle Vbshapesquare vbshapeoval vbshapecircle
例：颜色的渐变过程。
Private Sub Form_Click() Dim j As Integer Dim x As Single Dim y As Single y = Form1.ScaleHeight x = Form1.ScaleWidth sp = 255 / y For j = 0 To y Line(0,j)-(x,j),RGB(j*sp,j*sp,j*sp) Next j End Sub
例：随机产生多条彩色射线。
Private Sub Form_Click() Dim i%, x%, y% Form1.Scale (-100, 100)-(100, -100) For i = 1 To 100 x = 100 * Rnd If Rnd < 0.5 Then x = -x y = 100 * Rnd If Rnd < 0.5 Then y = -y Line (0, 0)-(x, y), QBColor(15 * Rnd) Next i 思考：如果没有两条 if语句， End Sub 产生的射线在什么范围？
注意：各参数可根据实际要求进行取舍，但如 果舍去的是 中间参数，参数的位置分隔符不 能舍去。
例1：画一条从(250,300)到(400,500)点的直线。
Line (250,300)-(400,500) 例2：从当前位置画到(400,500)点的直线。 Line - (400,500) 例3：出发点是(150,250)，终点是向X轴正向走150，
第五章
坐标系统
图形设计
使用控件绘图(Line控件和Shape控件) 使 用 绘 图 方 法 绘 图 （ Pset 、 Line 、 Circle方法） AutoRedraw属性和Paint事件
坐标系统
默认的坐标系统
每个容器都有一个坐标系，构成一个坐标系， 需要三个要素：坐标原点、坐标度量单位、X轴和 Y轴的方向。坐标度量单位由容器对象的 ScaleMode属性决定。缺省时为Twip。
Pset方法：
[对象]．Pset 其中： [Step] (X,Y) [<颜色>]
在指定位置用指定颜色画点。其语法格式如下：
Step：可选参数，使用此参数表明所画的点位于 相对当前坐标点的(X，Y)处；缺省时,(X，Y) 为点相对于当前坐标系的的位置坐标； Co1or：参数可选，用于设置点的颜色。