VB画图语句.doc

VB画图语句使用图形方法能使图形设计更方便，并减少程序代码。用图形方法创建图形是在程序代码中进行的，绘图效果需在运行应用程序时才能看到。对于界面设计中的简单绘图，图形方法不能代替图形控件的作用。利用以下方法可做出各种各样的图形，下面简单介绍这些图形方法的作用与使用方法。721用Pset方法画点画出单个像素即画点。画点是最简单的图形操作。 VB 6 0 用 Pset 方法在指定位置处画点，并可以设置该点像素的色彩。语句格式：对象名 Pset（x,y）, 功能：在指定对象上的指定位置画指定颜色的点。说明：（ 1 ）对 象名指窗体或图片框。缺省时为窗体。（ 2 ）参数 x 和 y 指定点的位置坐标，是单精度参数，可以接受整数或分数的输人。该参数的输人可以是任何含有变量的数值表达式。 例如，执行下面语句：PicturelPset（1500，2000）则在图片框 Picture1中（1500，2000）处画一个点（ 3 ）如果缺省颜色参数，则将点设置为前景色。选择颜色参数可以将点设置为指定的颜色。该参数可以引用 QBColor 函数或 RGB 函数产生的颜色。例如，以下语句在当前窗体画亮蓝色的点。Pset （ 1500 ， 2000 ） ,RGB （ 0 ， 0 ， 255 ）若需要“擦除”一点，只要把该点的颜色设置为背景色即可。Pset （ 1500 ， 2000 ） , BackColor722用Line方法画线和矩形1用Line方法绘制直线为了在两点之间绘制一条直线，除了使用直线控件外， VB还提供了Line方法。语法格式：对象 Line Step （ xl ， y1 ）一 Step （ x2 ， y2 ） ，颜色 功能：在对象上的两个指定点之间画一条指定颜色的直线。说明：? 对象是指窗体、图片框等，缺省指窗体。? 第一个 Step表示它后面的一对坐标是相对于当前坐标的偏移量，第二个Step表示它后面的一对坐标是相对于第一对坐标的偏移量。（ 3） 如果不指定颜色则使用所在控件的前景色作为直线的颜色。当然也可以为直线指定其他颜色例如：Line（1000，1000）-（2000，2000）Line-（4000，4000）PicturelLine（100，500）-Step（1000，350）FormlLine Step（200,200）- Step（800，1000）Line（500，200）-（3000，3500），QBColor（12）上述五行命令使用 Line方法的不同形式画直线。第一行命令是在起点（1000，1000）与终点（2000，2000）之间绘制一条直线。第二行命令Line（3000，3000）中只有直线的终点坐标，没有起点坐标。VB规定,如果没有指定起始坐标，则以“当前点”作为直线的起始坐标。如果前面未执行过Line或Pset，则以（0，0）为“当前点”。现在已执行过一次Line方法；在执行完第一行后，“当前点”为（2000，2000），故执行“ Line 一（4000，4000）”方法时，将从（2000,2000）到（4000，4000）画一直线。第三行命令（Picture1.Line（100，500）Step（1000，350）是在指定对象图片框Picturel上的（100，500）与（1100，850）之间画一条直线。我们注意到它的第二个坐标之前有一个“Step”，表示“Step”后面的一对坐标是相对于第一个坐标所偏移的大小，所以终点坐标应为起点坐标与偏移量之和，即（1001000，500350），也就是（100，850）。第四行命令是在名为Forml 的窗体上画一条直线，给出两点的相对坐标为（200，200）和（800，1000）。两个坐标的前面都有Ste p 参数。第一个坐标前面的 Step参数，表示Step后面的一对坐标是相对于当前坐标的偏移量。注意；第三行是在图片框中画线，而第四行要求在窗体中画线。因此；这个当前坐标是针对窗体Forml而言的，它应该是执行第二行命令后的终点坐标（4000，4000），所以起点坐标为（4000200，4000200）（4200,4200），而终点坐标则为（4200800，42001000）。第五行命令是在（500，200）与（3000，3500）之间绘制一条红色的直线。2 用 Line方法绘制矩形语法格式：对象 Line Step （ xl ， y1 ）一 Step （ x2 ， y2 ）， 颜色 ， BF功能：在对象上以指定的 ( x1，y1)与（x2，y2） 作为 矩形的左上角和右下角的坐标，参数 B表示要画一个矩形,参数F是指画一个实心的矩形。注意F与B两个参数之间没有逗号。例如，以下语句可在对象中画出一个矩形。Line （ 500 ， 500 ） Step （ 1000 ， 1000 ） ,BF 在该语句中，选项 B 之前有两个逗点，表示颜色参数被省略了。用 Line 方法画矩形时，还要注意对象 FillStyle 和 FillColor 属性的设置。 FillStyle 属性的默认值是 1 ，即为透明，画出的方框内部是空的。将 Fillstyle 属性值设置为 0 ，可以通过 FillColor 属性的颜色设置将矩形填充为实心。若在 B 参数后使用 F 参数（注意：没有 B 参数就不能用 F 参数）时， Line 方法将忽略 FillColor 和 FillStyle 属性。使用 F 参数时，矩形总是被填充为实心。723用Circle方法画圆、椭圆和圆弧使用 Circle方法可以绘制出圆、椭圆、圆弧及扇形。? 用 Circle方法绘制圆语法格式： 对象.Circle Step(x,y), ，颜色功能：以 (x,y)为圆心，以为半径画圆。例如：Circle（2000,1000）,500Circle Step（200，300），800Picturel.Circle（500，400）,200，QBColor（12）第一行以（2000，1000）为圆心 以500为半径在窗体上画一个圆。第二行使用了Step，说明圆心坐标要在当前坐标值基础上加上 Step后面的增量；假如，当前坐标为（100，100），则圆心坐标为（ 100200，100300），即（300，400）。以此为圆心，以800为半径画一圆。第三行是以（ 500，400）为圆心，以200为半径，在名为Picturel的图片框上画一个亮红色的圆。2 用Circle方法绘制椭圆只要加上一个参数就可以用 Circle方法绘制出椭圆。语法格式： 对象.CircleStep（x，y）,颜色，纵横比功能：椭圆两个轴长之比，即纵横比，它决定了椭圆的形状。如果纵横比的值大于 1，绘制出的椭圆为细而高的形状，如果纵横比的值小于1，绘制出的椭圆是扁平状，如果纵横比等于1，就绘制出一个圆例如：Circle（1000，1200），800，QBColor（12），2Circle（800，500），800，05第一个语句中的2和第二个语句中05是纵横比3. 用Circle方法绘制圆弧及扇形圆周的一部分就是圆弧,如果从圆心连接两条直线到圆弧的两端，就是一个扇形。用画圆的方法Circle来画圆弧及扇形非常容易，只要加上起始角和终止角即可。语法格式： 对象CircleStep（x，y），半径，颜色起始角，终止角，纵横比功能：从起始角按逆时针方向画圆弧直到终止角处。当纵横比为 1时 画出来的是一段圆弧，当纵横比不等于1时，画出一段椭圆弧。例如：Circle（2000，2000），1000，314162，0Circle Step（200，300），1000，-l，-4Circle（800，900），800，QBColor（12），0.5,-3第一行以（ 2000，20O0）为圆心，100O为半径画圆弧，按逆时针方向从 314 562到 0画一圆弧。若起始角和终止角均为负值时，画一个扇形。第二行，圆心是从“当前位置”向右移200，向下移300，半径为1000，从1弧度到4弧度画一个扇形。如果起始角和终上角一个为正，一个为负，则从圆心到负号的那个角处连一条线，第三行是以（800，900）为圆心，800为半径，从05弧度到3弧度处作一圆弧，从圆心到3弧度处画一直线，颜色为亮红色。? 用画圆的方法在图像框上画一个太极图。如图 7.9所示。图 7.9程序代码如下：Private Sub Picture1_Click()pi = 3.1415926pw= Picture1.Widthph= Picture1.HeightPicture1.FillStyle = 0Picture1.FillColor = QBColor(7)Picture1.Circle (pw / 2, ph / 2), ph / 2Picture1.Circle (Pw / 2, Picture1.Height / 4), Ph / 4, , pi / 2, 3 * pi / 2Picture1.Circle (Pw / 2, 3 * Ph / 4), Ph / 4, , 3 * pi / 2, pi / 2Pic