图形操作与多文档窗体.ppt

窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。注意：只有当DrawWidth设置为1时，DrawStyle属性才会产生如上图所示的各种效果。绘图板0201034、相关知识点4、填充与色彩由Fillstyle、Fillcolor这两个属性决定封闭图形的填充方式。（1）Fillcolor指定填充图案的颜色，默认的颜色与Forecolor相同。（2）FillStyle属性取值0~7，用来指定填充的图案，共有8种内部图案。注意：如果FillStyle设置为1（透明），则忽略FillColor属性，但Form对象除外。4、相关知识点6.1绘图板三个重点内容（方法）点、线、圆绘图板0102034、相关知识点4、相关知识点1、画点（Pset方法）例：1.Pset(500,1000),RGB(255,0,0)2.Pset(500,1000),BackColor‘擦除该点格式：[对象.]Pset(x,y)[,Color]参数说明:（X,Y）:确定画点的位置单精度,可以是常量或变量和表达式Color:设置点的颜色缺省时,点的颜色为ForeColor6.1绘图板4、相关知识点2、项目实例实现（演示）Fori=-180To180Step0.01 Picture1.PSet(i/50,5*Sin(i*3.14/180))Nexti用点画正弦曲线6.1绘图板4、相关知识点直线格式：[对象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,Color]参数说明:（X1,Y1）:画线的起点,省略:当前坐标为起始坐标。（X2,Y2）:直线的终点Color:设置直线的颜色缺省时,为ForeColorStep:表示后面的坐标相对于当前坐标的偏移量2、画线（line方法）6.1绘图板4、相关知识点举例:PrivateSubCommand1_Click()Line(1000,1000)-(2000,2000)Line-(300,3000)Picture1.Line(100,500)-Step(2000,2000)Picture1.Line(1500,1500)-Step(200,200),vbBlueEndSub如何改变直线的粗细和线型?DrawWidth属性:指定线的宽度(以磅为单位）。DrawStyle属性:指定线型。6.1绘图板4、相关知识点矩形格式：[对象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,Color],B[F]参数说明:（X1,Y1）:矩形的左上角点,省略:当前坐标的为起始坐标,（X2,Y2）:矩形的右下角点B：表示画一个矩形;F：表示画一个实心的矩形,这时忽略Fillcolor和FillStyle属性注意：有B参数才能使用F例1：PrivateSubCommand1_Click()Line(500,500)-Step(1000,0)Line-Step(0,1000)Line-Step(-1000,0)Line-Step(0,-1000)Line(500,500)-Step(1000,1000),,BFEndSub6.1绘图板4、相关知识点效果如图怎样在窗体上绘制一幅颜色、大小各不相同的彩环？6.1绘图板4、相关知识点格式：[对象.]Circle[Step](x,y),半径[,[,Color][,[起始角][,[终止角][,纵横比]]]](1）1时，指向水平方向X的半径纵横比：（2）＝1时，默认值为圆（3）1时，指向垂直方向的Y半径参数说明:起始角和终止角：取值在0～时为圆弧。如果起始角的绝对值大于终止角的绝对值，则画一个角度大于180的圆弧；如果为负数，则画出扇形。3、画圆（circle方法）6.1绘图板4、相关知识点6.1绘图板4、相关知识点PrivateSubCommand1_Click()X=Form1.WidthY=Form1.HeightForI=1To10R=Rnd*Y*0.1