VB画图语句.docVIP

VB画图语句 使用图形方法能使图形设计更方便，并减少程序代码。用图形方法创建图形是在程序代码中进行的，绘图效果需在运行应用程序时才能看到。对于界面设计中的简单绘图，图形方法不能代替图形控件的作用。利用以下方法可做出各种各样的图形，下面简单介绍这些图形方法的作用与使用方法。 7．2．1用Pset方法画点 画出单个像素即画点。画点是最简单的图形操作。 VB 6 ． 0 用 Pset 方法在指定位置处画点，并可以设置该点像素的色彩。 语句格式：［对象名．］ Pset（x,y）[, 颜色 ] 功能：在指定对象上的指定位置画指定颜色的点。 说明： （ 1 ）对 象名指窗体或图片框。缺省时为窗体。 （ 2 ）参数 x 和 y 指定点的位置坐标，是单精度参数，可以接受整数或分数的输人。该参数的输人可以是任何含有变量的数值表达式。 例如，执行下面语句： Picturel．Pset（1500，2000） 则在图片框 Picture1中（1500，2000）处画一个点 （ 3 ）如果缺省＜颜色＞参数，则将点设置为前景色。选择＜颜色＞参数可以将点设置为指定的颜色。该参数可以引用 QBColor 函数或 RGB 函数产生的颜色。例如，以下语句在当前窗体画亮蓝色的点。 Pset （ 1500 ， 2000 ） ,RGB （ 0 ， 0 ， 255 ） 若需要“擦除”一点，只要把该点的颜色设置为背景色即可。 Pset （ 1500 ， 2000 ） , BackColor ? 7．2．2用Line方法画线和矩形 1．用Line方法绘制直线 为了在两点之间绘制一条直线，除了使用直线控件外， VB还提供了Line方法。 语法格式：［对象．］ Line ［［ Step ］（ xl ， y1 ）］一［ Step ］（ x2 ， y2 ） [ ，颜色 ] 功能：在对象上的两个指定点之间画一条指定颜色的直线。 说明： ?? 对象是指窗体、图片框等，缺省指窗体。 ?? 第一个 Step表示它后面的一对坐标是相对于当前坐标的偏移量，第二个Step表示它后面的一对坐标是相对于第一对坐标的偏移量。 （ 3） 如果不指定颜色则使用所在控件的前景色作为直线的颜色。当然也可以为直线指定其他颜色 例如： Line（1000，1000）-（2000，2000） Line-（4000，4000） Picturel．Line（100，500）-Step（1000，350） Forml．Line 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”后面的一对坐标是相对于第一个坐标所偏移的大小，所以终点坐标应为起点坐标与偏移量之和，即（100＋1000，500＋350），也就是（100，850）。 第四行命令是在名为Forml 的窗体上画一条直线，给出两点的相对坐标为（200，200）和（800，1000）。两个坐标的前面都有Ste p 参数。第一个坐标前面的 Step参数，表示Step后面的一对坐标是相对于当前坐标的偏移量。 注意；第三行是在图片框中画线，而第四行要求在窗体中画线。因此；这个当前坐标是针对窗体Forml而言的，它应该是执行第二行命令后的终点坐标（4000，4000），所以起点坐标为（4000＋200，4000＋200）（4200,4200），而终点坐标则为（4200＋800，4200＋1000）。第五行命令是在（500，200）与（3000，3500）之间绘制一条红色的直线。 ? 2 ． 用 Line方法绘制矩形 语法格式：［对象．］ Line ［［ Step ］（ xl ， y1 ）］一［ Step ］（ x2 ， y2 ）， [ 颜色 ] ， B[F] 功能：在对象上以指定的 ( x1，y1)与（x2，y2）