文档介绍：第11章图形和图像

绘图方法
显示图片
滚动条
图形

直线(Line)控件和形状(Shape)控件用于绘制一般几何图形。
直线控件可以建立简单的直线,用形状控件可以画矩形,通过Shape属性设置,可以画出圆、椭圆和圆角矩形。
直线和形状的位置属性X1,Y1;X2,Y2分别表示直线的两个端点坐标。形状还具有Height,Left,Top,Width等标准属性。此外,直线和形状还具有以下属性:

用于设置直线和形状边界线的颜色。

确定直线和形状边界线的线型,可以取0-6中的7种值

制定直线和形状边界的线条宽度。1 ~5 线条宽度从中心向外加宽,6 线条的宽度从外向内加宽。

返回或设置一个值,它指定Shape控件的背景是否透明。

定义形状内部的颜色,设置方法与BackColor属性相同。

返回或设置用来填充Shape控件、以及由Circle和Line图形方法生成的圆和矩形的图案模式。

确定形状控件所画的几何特征。它可以被设置为6种值,画出不同的几何图形。
例在窗体上显示6种可以使用的形状,并用不同的线型和填充图案。
首先在窗体上画一个形状控件,然后建立该控件的数组,画出6个形状。
编写如下事件过程:
Private Sub Form_Click()
Dim i As Integer
FontSize = 12
CurrentX = 350
Shape1(0).BorderStyle = 0
Shape1(0).FillStyle = 0
Print "0";
For i = 1 To 5
Shape1(i).Left = Shape1(i - 1).Left + 800
Shape1(i).Shape = i
Shape1(i).Visible = True
Shape1(i).BorderStyle = i
Shape1(i).FillStyle = i
CurrentX = CurrentX + 550
Print i;
Next i
End Sub
VB坐标系统
VB的坐标系统分为三类:默认规格;标准规格和自定义规格。
默认规格坐标系
在默认规格坐标系中,对象的左上角坐标为(0,0),当沿着水平轴向右移动和沿着垂直轴向下移动时,坐标值增加。对象的Top和Left属性指定了该对象左上角距原点在垂直和水平方向的偏移量。默认状态下,Top,Left,Width和Height属性用Twip(缇)作单位。
标准规格坐标系
除了用Twip作坐标系的度量单位外,用户还可以使用标准规格选择其它的度量单位。标准规格通过对象的“ScaleMode”属性定义。在程序设计阶段,从属性窗口找到ScaleMode属性并单击向下箭头,将显示一个下拉列表,从中选择所需要的度量规格。
自定义规格坐标系
自定义规格坐标系统通过以下4个属性设定:
[〈对象名〉.] ScaleLeft=X
[〈对象名〉.]ScaleTop=Y
[〈对象名〉.]ScaleWidth=〈宽度〉
[〈对象名〉.]ScaleHeight=〈高度〉

点与直线

格式:
[对象.] .Cls
功能:
该方法可以清除由Print方法产生的屏幕信息,也可以清除窗体或图片框上的图形。

格式:
[对象.]PSet[Step](x,y)[,颜色]
功能:
该方法在指定的位置用指定的颜色画一个点。