计算机VB学习第11章

VisualBasic程序设计,山东外贸职业学院,E-mail：liushuhua08,信息管理系柳淑花,2020年5月8日,第11章图形操作,本章主要内容1、颜色2、坐标系统3、图形方法,作业本章小结,退出,2020年5月8日,11.1颜色,在VB中设置颜色共有下列5中方法：1、使用RGB函数RGB函数返回一个颜色值（长整型），它能够选择更多的颜色，此函数有三个参数。格式：RGB(R，G，B)其中：RGB的取值为0255如：RGB(0，0，0)黑色RGB(255，255，255)白色RGB(255，255，0)黄色,上一页,下一页,返回本章首页,2020年5月8日,2、使用长整数,使用长整数（四个字节）来指定一个颜色。如：&H00FFFFFF从高位起：第一字节：所有位都为0；第二字节：表示的是蓝色分量的大小；第三字节：表示的是绿色分量的大小；第四字节：表示的是红色分量的大小；,上一页,下一页,返回本章首页,2020年5月8日,3、使用系统颜色,系统颜色是由用户在Windows控制面板的“显示器”属性中设定的各元素界面的颜色。系统颜色共有25种，其值为：&H80000000-&H800000184、使用颜色常量共8种：vbBlackvbGreenvbBluevbCyanvbRedvbYellowvbMagentavbWhite,上一页,下一页,返回本章首页,2020年5月8日,5、使用QBColor函数,QBColor函数能够选择16种颜色：,上一页,下一页,返回本章首页,2020年5月8日,11.2坐标系统,1、默认坐标系统坐标原点（0，0），坐标的刻度单位是：缇；X轴的正向水平向右，Y轴的正向水平向下；用ScaleMode属性可更改坐标系统的刻度单位。当ScaleMode=0时使用自定义坐标系统,上一页,下一页,返回本章首页,2020年5月8日,2、自定义坐标系统,自定义坐标系统的坐标原点、坐标单位由caleWidth、ScaleHeight、ScaleLeft、ScaleTop决定。ScaleLeft、ScaleTop-指定绘图区左上角的坐标，可通过ScaleLeft、ScaleTop属性来重定义坐标圆点。ScaleWidth、ScaleHeight-决定绘图区的宽度和高度，当ScaleWidth0时，X轴的正向向左；当ScaleHeight0时，Y轴的正向向上；（ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight）即为对象右下角的坐标。度量单位为：1/ScaleWidth和1/ScaleHeight,上一页,下一页,返回本章首页,2020年5月8日,如：,Form1.ScaleLeft=-150Form1.ScaleTop=100Form1.ScaleWidth=300Form1.ScaleHeight=-200,上一页,下一页,返回本章首页,2020年5月8日,3、Scale方法,使用Scale方法可设置自定义坐标系统格式：对象名.Scale(X1,Y1)(X2,Y2)说明：(X1,Y1)即：(ScaleLeft,ScaleTop)左上角坐标(X2,Y2)对象的右下角坐标ScaleWidth=X2-X1ScaleHeight=Y2-Y1如：Form1.Scale(100,-150)(-100,150),上一页,下一页,返回本章首页,2020年5月8日,11.3图形方法,1、Pset方法画点,PSet方法：在指定位置用指定颜色画一个点。格式：对象名PsetStep(X,Y),Color其中：对象名窗体或图片框的名字；Step可选项：选择：(X,Y)是相对于当前点的相对坐标；（CurrentX,CurrentY）不选择：(X,Y)是绝对坐标(X,Y)画点的位置坐标；Co1or可选项：用于设置点的颜色。,上一页,下一页,返回本章首页,2020年5月8日,例11.1：picture1.Pset(1000,1000),vbRedpicture1.PsetStep(800,800),vbBlue界面如下图：Li11_1.vbp例11.2：电子贺年卡。要求：使用Pset方法在窗体上画300个大小不同的随机点，点的颜色也随机变化。界面如左上图：Li11_2.vbp,上一页,下一页,返回本章首页,2020年5月8日,程序代码：,PrivateSubCommand1_Click()DimM$,X0%,Y0%,I%FontSize=24：M=新年快乐!IfCommand1.Caption“退出”ThenCommand1.Caption=退出CurrentX=(Form1.Width-TextWidth(M)/2CurrentY=(Form1.Height2-TextHeight(M)/2PrintM在窗体的中间输出“新年快乐!”Fori=1To300DrawWidth=DrawWidthMod10+1X0=ScaleHeight*Rnd：Y0=ScaleWidth*RndPSet(X0,Y0),QBColor(Rnd*15)NextiElseIfCommand1.Caption=“退出”ThenEndEndIfEndSub,上一页,下一页,返回本章首页,2020年5月8日,2、Line方法画线或矩形,Line方法用来在窗体或图片框画线或矩形。此外，还常用Line方法绘制各种曲线，因为任何曲线都可看作是由无数小线段构成的。格式：对象名.LineStep(Xl,Yl)-Step(X2,Y2),Color,BF其中：(X1,Y1)和(X2,Y2)为一条线段的起止坐标，(X1,Y1)可以省略，若省略就表示从当前位置开始画到(X2,Y2)点，当前点坐标为(CurrentX,CurrenttY)；Step若(X1,Y1)前选择，则坐标为相对于当前点的坐标；若(X2,Y2)前选择，则表示是以起点坐标为基准的相对坐标。,上一页,下一页,返回本章首页,2020年5月8日,Color用于设置画线的颜色；,B表示以(X1，Y1)和(X2，Y2)为对角坐标画一方框；加入F表示用边框色填充矩形。直线的宽度：取决于DrawWidth属性；直线的样式：取决于DrawStyle属性。它的设置与线条控件的BorderStyle属性设置相同。如果线宽超过1个像素，则DrawStyle属性的有效设置是l或6，因为点划线的线宽不能大于1个像素。绘制线宽大于1个像素的直线时，VB将线宽分布到指定坐标的两边。如果DrawStyle属性设置为6(内实线)，则整个形体(线、框、圆)画在指定坐标内部。,上一页,下一页,返回本章首页,2020年5月8日,例11.3：Line方法的使用Li11_3.vbp,例11.4：利用Line方法在窗体上画坐标轴与坐标刻度DimxAsSingleLi11_4.vbpDimyAsSinglePrivateSubForm_Load()Me.ScaleMode=6用绘图方法时，设置对象坐标的度量单位1-缇，2-点，3-像素，4-字符，5-英寸，6-毫米，7-厘米EndSub,上一页,下一页,返回本章首页,2020年5月8日,PrivateSubForm_click()x=Me.ScaleWidth/2窗体净宽度的一半y=Me.ScaleHeight/2窗体净高度的一半DrawWidth=2线宽Line(x,0)-(x,Me.ScaleHeight),RGB(255,0,0)画Y轴Line(0,y)-(Me.ScaleWidth,y),RGB(255,0,0)画X轴CurentX=xCurentY=yDrawWidth=1PSet(CurentX,CurentY),vbRed画坐标圆点Print0,上一页,下一页,返回本章首页,2020年5月8日,.,Forxt=1ToInt(Me.ScaleWidth/2)/10)X轴右侧刻度（以厘米为单位）st=xt*10CurentX=x+stCurentY=y+0.5Line(x+st,y-1)-(x+st,y),RGB(255,0,0)PrintxtNextxtForxt=1ToInt(Me.ScaleWidth/2)/10)X轴的左侧刻度st=xt*10CurentX=x-stCurentY=y+0.5Line(x-st,y-1)-(x-st,y),RGB(255,0,0)Print-xtNextxt,上一页,下一页,返回本章首页,2020年5月8日,。,Foryt=1ToInt(Me.ScaleHeight/2)/10)Y轴的下侧刻度st=yt*10CurentX=x+0.5CurentY=y+stLine(x,y+st)-(x+1,y+st),RGB(255,0,0)PrintytNextytForyt=1ToInt(Me.ScaleHeight/20)Y轴的上侧刻度st=yt*10CurentX=x+0.5CurentY=y-stLine(x,y-st)-(x+1,y-st),RGB(255,0,0)PrintytNextytEndSub,上一页,下一页,返回本章首页,2020年5月8日,3、Circle方法画圆、椭圆、圆弧和扇形,Circle方法用来画圆、椭圆、弧等。格式：对象.CircleStep(x,y),radius,color,start,end,Aspect其中：Step(X,Y)指定圆心或椭圆中心的坐标；radius指定圆的半径或椭圆的长半轴；Color用于设置线条的颜色；Start与end指定圆弧的起、止角度，省略为完整的圆或椭圆；（负数画扇形）Aspect指定圆度（垂直半轴与水平半轴之比），为1或省略时画出的是圆，否则是椭圆。,上一页,下一页,返回本章首页,2020年5月8日,例11.5：用Circle方法在窗体上绘制由圆环构成,的艺术图案。Li11_5.vbp构造图案的算法为：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1绘制n个圆。设定圆的半径为窗体高度的1/4，圆心在窗体的中心，在圆周上等分50份。如图:,上一页,下一页,返回本章首页,2020年5月8日,程序代码：,PrivateSubForm_Click()Dimr,x,y,x0,y0,stAsSingleClsr=Form1.ScaleHeight/4圆半径为窗体高度的1/4x0=Form1.ScaleWidth/2圆的中心坐标（窗体中间）y0=Form1.ScaleHeight/2st=3.14159