《图形操作》PPT课件

《《图形操作》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章图形操作9.1图形操作基础9.2绘图属性9.3图形方法9.4综合应用9.1图形操作基础在VB中绘制图形，其过程一般分为4个步骤：①先定义图形载体窗体对象或图形框对象的坐标系②设置线宽，线型、色彩等属性③指定画笔的起终点位置④调用绘图方法绘制图形例9.1在窗体上绘制2到2之间的正弦曲线PrivateSubForm_Click()Form1.Scale(-8,2)-(8,-2)Line(-7.5,0)-(7.5,0):Line(0,1.9)-(0,-1.9)DrawWidth=2Curren

2、tX=7.5:CurrentY=0.2:Print"X“CurrentX=0.5:CurrentY=2:Print"Y“Fori=-7To7Line(i,0)-(i,0.1)CurrentX=i-0.2:CurrentY=-0.1:PrintiNextiForx=-6.283To6.283Step0.01Pset(x,Sin(x))NextxEndSub9.1.2坐标系统构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位:由容器对象的ScaleMode属性决定。缺

3、省时为Twip=1/567cm默认坐标原点为对象的左上角，横向向右为X轴正向纵向向下为Y轴正向(ScaleHeight实际可用高度)使用Scale方法，语法如下：对象.Scale(xLeft，yTop)-(xRight，yBotton)注意：对象为窗体、图形框、打印机(xLeft，yTop)：对象左上角的坐标值(xRight，yBotton)：对象右下角坐标值利用CurrentX、CurrentY属性设置当前坐标自定义坐标系例9.2在Form_Paint事件中定义窗体的坐标系PrivateSubFo

4、rm_Paint()ClsForm1.Scale(-300,200)-(300,-200)Line(-300,0)-(300,0)Line(0,200)-(0,-200)CurrentX=0:CurrentY=0:Print0CurrentX=260:CurrentY=50:Print"X"CurrentX=10:CurrentY=180:Print"Y"EndSub9.2绘图属性9.2.1当前坐标CurrentX，CurrentY属性：给出窗体或图形框或打印机在绘图时的当前坐标使用格式：objec

5、t.CurrentX=xobject.CurrentY=y当坐标值前加Step,则坐标值（x,y）表示对象上的相对坐标位置。其绝对坐标值为（CurrentX+x,CurrentY+y）使用CLS方法后，CurrentX、CurrentY属性值为0例9.3用Print方法在窗体上随机显示50个“★”和50个“☆”PrivateSubForm_Click()DimiAsIntegerRandomizeFori=1To100CurrentX=Form1.ScaleWidth*RndCurrentY=For

6、m1.ScaleHeight*RndIf(iMod2)=0ThenPrint"★"ElsePrint"☆"EndIfNextiEndSub9.2.2线宽与线型1．设置线宽——DrawWidth属性窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。使用格式：Object.DrawWidth=SizeSize:为数值表达式，其范围从1到32767。该值以像素为单位表示线宽。缺省值为12.设置线型——DrawStyle属性0-Solid-实线（缺省）1-Dash-长划线2-

7、Dot-点线3-Dash-Dot点划线4-Dash-DotDot点点划线5-Invisible透明线6-InsideSolid内实线例9.4改变DrawStyle属性值在窗体上画出不同的线形PrivateSubCommand1_Click()ClsDimjAsIntegerPrint"DrawStyle0123456"Print"线型实线长划线点线点划线点点划线透明线内实线"PrintPrint"图示"CurrentX=600CurrentY=ScaleHeight/5DrawWidth=1Forj

8、=0To6DrawStyle=jCurrentX=CurrentX+150Line(CurrentX,CurrentY)-Step(600,0)NextjEndSub9.2.3填充与色彩FillColor:指定封闭图形的填充颜色(缺省为0黑色）FillStyle:指定填充的图案(有8种内部图案)（1）FillStyle为0是实填充，1为透明方式。填充图案的颜色由FillColor属性来决定。（2）窗体和图片框，FillStyle属性设置后，不能看到其填充效果，而只能在