VB第十章 图形操作

对象.Zorder [position] Position：指出一个对象相对于另一个对象的位置的数值。 0：表示该对象被定位于Z序列的前面；
1：表示该对象被定位于Z序列的后面。
例：作出下列效果的界面
10.2 绘图属性（窗体、pictureBox和打印机对象所具有的属性） 一、当前坐标属性(当前坐标会随着输出内容而改变)：
Form1.left
0
Form1.top
x
(scaleleft,scaletop) Form1.height Form1.scaleheight
y
3）属性ScaleMode决定对象坐标的度量单位，共有11种 （常用8种，默认的Twip），见下表：
常数 设置 描述 值
vbUser
vbTwips vbPoints vbPixels
Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 Shape1(0).FillStyle = 2 For i = 1 To 5 Load Shape1(i) Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i
For i = 1 To 2
For j = 1 To 2 k = (i - 1) * 2 + j Load Shape1(k) Shape1(k).Visible = True Shape1(k).Top = mtop: Shape1(k).Left = mleft
mleft = mleft + Shape1(0).Width
Private Sub Form_Click()
Dim j As Integer form1.CurrentX = 0 form1.CurrentY = ScaleHeight / 2 form1.DrawWidth = 1 For j = 0 To 6 form1.DrawStyle = j form1.Line -Step(ScaleWidth / 15, 0) Next j For j = 1 To 6
0
1 2 3
ScaleHeight等属性值中一个的或多个设置为自定义
缇（缺省） 磅 像素
vbChracters vbInches
vbMillimeters vbCentimeters
4 5
6 7
字符：水平每个单位=120缇，垂直每个单位=240缇 英寸
毫米 厘米
改变容器的ScaleMode属性值，不会改变容器的大小或 它在屏幕上的位置，只是改变了容器的度量单位，VB会重新 定义对象坐标度量属性ScaleHeight和ScaleWidth。 无论采用哪一种坐标单位，默认的坐标原点都为对象的左 上角，横向向右为X轴的正方向，纵向向下为Y轴的正向。
Private Sub Form_Click() Dim j As Integer, x As Single, y As Single y = Form1.ScaleHeight： x = Form1.ScaleWidth sp = 255 / y For j = 0 To y form1.Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp) For i = 1 To 10000 Next i Next j End Sub
Drawstyle属性给出了在这些对象上所画线条的线型，意义见下表：
常数 vbSolid vbDash 设置值 0 1 描述 实线（默认） 虚线
vbDot
vbDashDot vbDashDotDot
2
3 4
点线
点划线 双点划线
vbInsisible
vbInsideSolid
5
6
无线
内实线
例：通过改变DrawStyle属性在窗体上画出不同的线型。通过改变DrawWidth属性 画一系列宽度递增的直线。代码如下：
[对象名.] Scale [ ( xLeft , yTop )-(xRight, yBottom) ] 其中： （1）Scale：方法名
（2） ( xLeft , yTop )表示对象的左上角的坐标值， (xRight, yBottom)为对 象的右下角的坐标值。
只要给定了这两个值，VB系统会自动计算出ScaleTop、ScaleLeft、 ScaseHeight、和ScaleWidth的值：
form1.DrawWidth = j * 3
form1.Line -Step(ScaleWidth / 15, 0) Next j
End Sub
三、填充与色彩属性：
容器中用方法画出的封闭图形的填充方式和填充颜色由FillStyle和 FillColor这两个属性决定。FillColor指定填充图案的颜色，默认与Forecolor 相同。FillStyle指定填充的图案，共有8种，见P232图1.10.6 区别： FillColor 和ForeColor
1）VB默认采用对象的ForeColor绘图，即绘制出的线条颜色； 2） FillColor则是封闭图形的填充颜色。
两种颜色的设置可以使用属性窗口实现，也可以通过以下颜色函数指定色 彩。
1、RGB函数 格式：RGB（红，绿，蓝） 从理论上讲，用三基色混合可产生256*256*256种颜色，但实际使用时受 到硬件的限制。 2、QBColor函数
格式：QBColor(颜色码)
其中：颜色码的取值见下表：
颜色码 0 1 2
颜色 黑 蓝 绿
颜色码 6 7 8
颜色 黄 白 灰
颜色码 12 13 14
颜色 亮红 亮晶红 亮黄
3
4 5
青
红 晶红
9
10 11
亮蓝
亮绿 青亮
15
亮白
例：演示颜色的渐变填充过程
分析：要产生渐变效果，可多次使用RGB函数，每次对RGB（ ）函数的参 数稍做变化。现以线段填充矩形区，通过改变直线的起终点坐标和RGB函 数中的三基色的成分产生渐变效果。代码如下：
例：在Form_click事件中通过Scale方法定义Form1新的坐标系。
Private Sub Form_click() Form1.Cls Form1.Scale (-200, 250)-(300, -150) Form1.Line (-200, 0)-(300, 0) Form1.Line (0, 250)-(0, -150) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 280: CurrentY = 20: Print "X" CurrentX = CurrentY = 240: Print "Y" Form1.Line (0, 0)-(200, 180), QBColor(12) Form1.Line (0, 0)-(-200, 180), QBColor(14)
窗体、pictureBox或打印机(Printer)的CurrentX和CurrentY属性给出了这 些对象在绘图时的当前坐标。当坐标系确定后，常用这两个属性来指定一个坐 标点，再在这个点上输出内容。 例：用Print方法在窗体上随机输出1000个五角星。代码如下：
Private Sub Form_Click( ) For i = 1 To 1000
form1.CurrentX = Form1.ScaleWidth * Rnd
form1.CurrentY = Form1.ScaleHeight * Rnd form1.Print "★"
For j = 1 To 1000000
Next j Next i End Sub
二、线宽和线型属性：
窗体、图片框或打印机的DrawWidth属性给出这些对象上所画出（用 方法画出）线条的宽度或点的大小(以像素为单位，最小及默认值为1)。
Shape可以用来画矩形、正方形、圆、椭圆、圆角矩形和 圆角正方形。当Shape控件放到窗体时显示为一矩形，通过 Shape属性可确定所需要的几何形状。FillStyle属性为形状填 充图案。FillColor属性为形状着色。
例：用Shape控件的Shape属性显示Shape控件的6种形状，并 填充不同的图案。如图所示。
如：当新建一个窗体时，坐标原点在窗体的左上角， Height=3600,Width=4800,ScaleLeft=0,ScaleTop=0,
而：ScaleHeight=3195,ScaleWidth=4680
二、自定义坐标系统（对容器对象而言）：
容器对象的默认坐标系统对绘制控件不会有影响，但对作图就有较大 的影响。因为习惯上绘图坐标原点是在窗体的中心。所以常需要对坐标原 点进行重新设置。设置方法为：
Private Sub Form_Load() Dim mtop As Integer, mleft As Integer Dim i As Integer, j As Integer, k As Integer mtop = Shape1(0).Top mleft = Shape1(0).Left + Shape1(0).Width
•B：表示画矩形；
•F：表示用画矩形的颜色来填充矩形，F必须和B一起使用，如果只有 B没有F，则矩形的填充由FillColor和FillStyle决定。
注意：用Line方法在窗体上绘制图形时，如果将绘制过程放在Form_load事 件内，必须将窗体的AutoRedraw属性设置为True，否则所绘制的图形将无 法在窗体上显示。
Next j
mtop = mtop + Shape1(0).Width / 2 mleft = Shape1(0).Left + Shape1(0).Width / 2 Next i End Sub