《EXCEL VB方法绘图总结.docVIP

VB方法绘图 绘制点、线、面，以及设置前景、背景色 一、设置当前绘图点 在VB中，可以通过设置窗体或图形框的CurrentX与CurrentY属性来设置当前绘图点。CurrentX与CurrentY决定了绘制或显示的起始坐标，在设计时，这两个属性不可用。 图片框等对象的绘图模式等参数设置。 对象.Scalemode＝3 为像素模式，ScaleWidth和ScaleWeight就是图片框的水平和垂直像素大小； Windows系统默认使用Twip (缇，一种逻辑单位，一般15个像素，具体用Screen.TwipsPerPixelX和Screen.TwipsPerPixelY系数转换一个像素多少缇) ScaleMode的属性值 值 单位 意义 说明 0 User 用户自定义 自定义坐标系统，即ScaleLeft，ScaleTo，ScaleWidth，ScaleHeight属性由用户自行设定 1 Twip 可缺省 Twip，1英寸约等于1440 twip 2 Point 点 1英寸约72个点 3 Pixel 像素 水平1像素＝Screen.TwipsPerPixelX 垂直1像素＝Screen.TwipsPerPixelY 4 Character 字符 1个字符宽120Twip，高240Twip 5 Inch 6 Millimeter 7 Centimeter 厘米 对象.AutoRedraw＝True/False 设置对象自动重绘图，这种模式下，所绘制的图保持在图片框上，否则被其它窗体挡住后，再显示出来就没有绘制的图； 对象.DrawMode＝7 设置对象绘图模式为异或模式，重复绘制两次即可复原图片原先内容，还有其它一些模式； DrawMode的属性值 值 意义 值 意义 1 Blankness 9 Mask Pen 2 Not Merge Pen 10 Not Xor Pen 3 Mask Not Pen 11 Nop 4 Not Copy Pen 12 Merge Not Pen 5 Mask Pen Not 13 Copy Pen 6 Invert 14 Merge Pen Not 7 Xor Pen 15 Merge Pen 8 Not Mask Pen 16 Whiteness 对象.DrawStyle＝0 设置对象绘制的线条是实线，也有其它的风格； DrawStyle的属性值 值 意义 说明 0 Solid 1 Dash 2 Dot 3 Dash-Dot 4 Dash-Dot-Dot 5 Transparent 6 Inside solid 对象.DrawWidth＝1 设置对象绘制的线条粗细，也可以设置为其它数据，默认为1。 二、绘制点、线、面的方法 1、点的绘制法 在指定对象（如窗体、图形框）上的指定位置处绘制点，还可以为点指定颜色，语法如下： 对象名.Pset(X,Y)，[Color] X，Y分别为点的水平与垂直坐标，Color为点的颜色，是可选项。 2、直线的绘制法 在对象上绘制直线，语法如下： 对象名.Line(X1,y1)-(X2,Y2),[Color] (X1,Y1)是直线的起点，(X2,Y2)是直线的终点，Color为可选项。 3、绘制矩形 用Line方法还可以绘制矩形，语法如下： 对象名.Line(X1,Y1)-(X2,Y2),[Color],B,[F] 其中，(X1,Y1)是矩形的左上角座标，(X2,Y2)是矩形右下角座标，Color为矩形边框的颜色，使用参数B而不用F，那么矩形用当前的填充色（FillColor）与填充方式（FillStyle）对矩形进行填充；如果使用了参数F，那么矩形以边框的颜色进行填充。 特别注意，用Line画矩形框，如果不用其他参数，那么B与坐标(X2,Y2)之间应该有两个逗点，一个是紧跟坐标2，一个表示Color省略了，如：Picture1.Line(500,500)-(1000,1000),,B 4、绘制圆、椭圆、弧 用Circle方法可以绘制圆、椭圆与弧，语法如下： 对象名.Circle(X,Y),Radius,[Color,start,end,aspect] 其中 (X,Y)是圆、椭圆或弧的圆心坐标，Radius是半径，这两个参数是必须项；Color是圆的轮廓色，Start与End是弧的起点与终点位置。其范围是-2-2Pi；Aspect是圆的纵横尺寸比，默认值是1即圆. 5、文字的输出 Print方法可在指定位置显示字符串,如下: Object.Print Outputtext 字体的格式受 Object.Font的属性等控制,需要不同格式的字体时候,需要改动 Object.F