计算机VB学习第11章.ppt

《计算机VB学习第11章.ppt》由会员分享，可在线阅读，更多相关《计算机VB学习第11章.ppt（23页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 Visual Basic程 序 设 计山东外贸职业学院山东外贸职业学院E-mail：信息管理系信息管理系 柳淑花柳淑花第2页第第1111章章 图形操作图形操作 本章主要内容本章主要内容1、颜色颜色2、坐标系统3、图形方法作业作业 本章小结本章小结 退出退出第3页11.11.1 1 颜色颜色 在在VB中设置颜色共有下列中设置颜色共有下列5中方法：中方法：1、使用、使用RGB函数函数 RGB函数函数返回一个颜色值（长整型），它能够选择更多的颜色，此函数有三个参数。格式：格式：格式：格式：RGB(R，G，B)其中：其中：R G B 的取值为的取值为 0255 如：如：如：如：RGB(0，0，0)黑

2、色 RGB(255，255，255)白色 RGB(255，255，0)黄色上一页上一页下一页下一页返回本章首页返回本章首页第4页2 2、使用长整数、使用长整数 使用长整数（四个字节）来指定一个颜色。使用长整数（四个字节）来指定一个颜色。如：如：如：如：&H00FFFFFF 从高位起：从高位起：第一字节：所有位都为第一字节：所有位都为0 0；第二字节：表示的是蓝色分量的大小第二字节：表示的是蓝色分量的大小 ；第三字节：表示的是绿色分量的大小第三字节：表示的是绿色分量的大小 ；第四字节：表示的是红色分量的大小第四字节：表示的是红色分量的大小 ；上一页上一页下一页下一页返回本章首页返回本章首页第5页

3、3 3、使用系统颜色、使用系统颜色系统颜色系统颜色是由用户在是由用户在Windows Windows 控制面板的控制面板的“显示显示器器”属性中设定的各元素属性中设定的各元素界面的颜色界面的颜色。系统颜色共有系统颜色共有2525种，其值为：种，其值为：&H80000000-&H800000184、使用颜色常量 共共8 8种：种：vbBlack vbGreen vbBlue vbCyan vbRed vbYellow vbMagenta vbWhite上一页上一页下一页下一页返回本章首页返回本章首页第6页5 5、使用、使用 QBColor 函数函数QBColor函数能够选择函数能够选择16种颜色

4、种颜色：函数函数函数函数效果效果效果效果函数函数函数函数效果效果效果效果QBColorQBColor(0 0)黑色黑色黑色黑色QBColorQBColor(8 8)灰色灰色灰色灰色QBColorQBColor(1 1)蓝色蓝色蓝色蓝色QBColorQBColor(9 9)亮蓝色亮蓝色亮蓝色亮蓝色QBColorQBColor(2 2)绿色绿色绿色绿色QBColorQBColor(1010)亮绿色亮绿色亮绿色亮绿色QBColorQBColor(3 3)深青色深青色深青色深青色QBColorQBColor(1111)亮青色亮青色亮青色亮青色QBColorQBColor(4 4)红色红色红色红色QBC

5、olorQBColor(1212)亮红色亮红色亮红色亮红色QBColorQBColor(5 5)品红色品红色品红色品红色QBColorQBColor(1313)亮品红色亮品红色亮品红色亮品红色QBColorQBColor(6 6)深黄色深黄色深黄色深黄色QBColorQBColor(1414)亮黄色亮黄色亮黄色亮黄色QBColorQBColor(7 7)纸纸纸纸QBColorQBColor(1515)亮白色亮白色亮白色亮白色上一页上一页下一页下一页返回本章首页返回本章首页第7页11.2 11.2 坐标系统坐标系统1、默认坐标系统、默认坐标系统坐标原点（坐标原点（0，0），坐标的刻度单位是：缇；

6、），坐标的刻度单位是：缇；X 轴的正向水平向右，轴的正向水平向右，Y 轴的正向水平向下；轴的正向水平向下；用用ScaleMode 属性属性可更改坐标系统的刻度单位。可更改坐标系统的刻度单位。当当 ScaleMode=0 时时使用自定义坐标系统使用自定义坐标系统上一页上一页下一页下一页返回本章首页返回本章首页第8页2、自定义坐标系统、自定义坐标系统自定义坐标系统的自定义坐标系统的坐标原点、坐标原点、坐标单位坐标单位由由 caleWidthcaleWidth、ScaleHeight ScaleHeight、ScaleLeftScaleLeft、ScaleTopScaleTop决定。决定。Scale

7、Left、ScaleTop-指定绘图区左上角的坐标，指定绘图区左上角的坐标，可通过可通过ScaleLeft、ScaleTop 属性属性来重定义坐标圆点。来重定义坐标圆点。ScaleWidth、ScaleHeight-决定绘图区的宽度和决定绘图区的宽度和高度，当高度，当ScaleWidth0 时时，X 轴的正向向左；轴的正向向左；当当ScaleHeight 0 时时，Y 轴的正向向上轴的正向向上；（ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight）即为对象右下角的坐标。即为对象右下角的坐标。度量单位为：度量单位为：1/ScaleWidth 和和 1/ScaleH

8、eight上一页上一页下一页下一页返回本章首页返回本章首页第9页如：如：如：如：Form1.Form1.ScaleLeftScaleLeft=-150=-150 Form1.Form1.ScaleTopScaleTop=100=100 Form1.Form1.ScaleWidthScaleWidth=300=300 Form1.Form1.ScaleHeightScaleHeight=-200=-200上一页上一页下一页下一页返回本章首页返回本章首页第10页3、Scale 方法使用使用Scale 方法方法可设置自定义坐标系统可设置自定义坐标系统格式：格式：格式：格式：对象名对象名.Scale

9、(X1,Y1)(X2,Y2)Scale (X1,Y1)(X2,Y2)说明：说明：说明：说明：(X1,Y1)即：即：(ScaleLeft,ScaleTop)左左 上角坐标上角坐标 (X2,Y2)对象的右下角坐标对象的右下角坐标 ScaleWidth=X2-X1 ScaleHeight=Y2-Y1 如：如：Form1.Scale (100,-150)(-100,150)Form1.Scale (100,-150)(-100,150)上一页上一页下一页下一页返回本章首页返回本章首页第11页11.3 11.3 图形方法图形方法1、Pset 方法画点方法画点 PSetPSet方法：方法：方法：方法：在指

10、定位置用指定颜色画一个点在指定位置用指定颜色画一个点。格式：格式：格式：格式：对象名对象名 Pset Pset Step (X,Y),ColorStep (X,Y),Color其中：其中：其中：其中：对象名对象名窗体或图片框的名字；窗体或图片框的名字；窗体或图片框的名字；窗体或图片框的名字；Step可选项：可选项：可选项：可选项：选择：选择：(X,Y)X,Y)是相对于当前点当前点的的的的相对坐标相对坐标；（CurrentX,CurrentY）不选择：不选择：(X,Y)X,Y)是是是是绝对坐标绝对坐标 (X,Y)画点的位置坐标；画点的位置坐标；画点的位置坐标；画点的位置坐标；Co1or可选项：用

11、于设置点的颜色。可选项：用于设置点的颜色。可选项：用于设置点的颜色。可选项：用于设置点的颜色。上一页上一页下一页下一页返回本章首页返回本章首页第12页例例11.1：picture1.Pset (1000,1000),vbRed picture1.Pset Step(800,800),vbBlue 界面如下图：界面如下图：界面如下图：界面如下图：Li11_1.Li11_1.vbpvbp例例11.2：电电子子贺贺年卡。年卡。要求：要求：使用使用Pset 方法在窗体方法在窗体上画上画300个大小不同的随机点，点的个大小不同的随机点，点的颜颜色也随机色也随机变变化。化。界面如左上图：Li11_2.Li

12、11_2.vbpvbp上一页上一页下一页下一页返回本章首页返回本章首页第13页 程序代码：程序代码：Private Sub Command1_Click()Dim M$,X0%,Y0%,I%Dim M$,X0%,Y0%,I%FontSize FontSize=24 =24：M=M=新年快乐新年快乐!If Command1.Caption “If Command1.Caption “退出退出”ThenThen Command1.Caption=Command1.Caption=退出退出 CurrentXCurrentX=(Form1.Width-=(Form1.Width-TextWidth T

13、extWidth(M)/2(M)/2 CurrentY CurrentY=(Form1.Height 2-=(Form1.Height 2-TextHeight TextHeight(M)/2(M)/2 Print M Print M 在窗体的中间输出“新年快乐!”For i=1 To 300 DrawWidth=DrawWidth Mod 10+1 X0=ScaleHeight*Rnd：Y0=ScaleWidth*Rnd PSet(X0,Y0),QBColor(Rnd*15)Next i Else Else If Command1.Caption=“If Command1.Caption=“

14、退出退出”Then Then End End End If End IfEnd Sub 上一页上一页下一页下一页返回本章首页返回本章首页第14页2、Line 方法画线或矩形方法画线或矩形 Line Line方法用来方法用来在窗体或图片框画线或矩形在窗体或图片框画线或矩形。此外，还常用此外，还常用LineLine方法绘制各种曲线，因为任何方法绘制各种曲线，因为任何曲线都可看作是由无数小线段构成的。曲线都可看作是由无数小线段构成的。格式：格式：格式：格式：对象名对象名.Line Step(Line Step(XlXl,YlYl)-)-Step Step (X2,Y2),Color,B F (X2,

15、Y2),Color,B F 其中：其中：其中：其中：(X1,Y1)和和 (X2,Y2)为一条线段的起止坐标，为一条线段的起止坐标，(X1,Y1)可以省略，若省略就表示从当前位置开始画到(X2,Y2)点，当前点坐标为当前点坐标为(CurrentXCurrentX,CurrenttYCurrenttY)；Step 若(X1,Y1)前选择选择，则坐标为相对于当前点则坐标为相对于当前点的坐标；的坐标；若(X2,Y2)前选择，则表示是以起点坐标为基准选择，则表示是以起点坐标为基准的相对坐标。的相对坐标。上一页上一页下一页下一页返回本章首页返回本章首页第15页 Color用于设置画线的颜色用于设置画线的颜

16、色；B 表示以表示以(X1X1，Y1)Y1)和和(X2X2，Y2)Y2)为对角坐标为对角坐标 画一方框；画一方框；加入加入F表示用边框色填充矩形。表示用边框色填充矩形。直线的宽度：直线的宽度：取决于取决于 DrawWidth 属性属性；直线的样式：直线的样式：取决于取决于 DrawStyle 属性属性。它的设置与它的设置与线条控件的的Border StyleBorder Style属性设置相同。属性设置相同。如果线宽超过如果线宽超过1 1个像素，则个像素，则Draw StyleDraw Style属性的有效设置属性的有效设置是是 l l 或或 6 6，因为点划线的线宽不能大于，因为点划线的线宽

17、不能大于1 1个像素。个像素。绘制线宽大于1个像素的直线时，VB将线宽分布到指定坐标的两边。如果如果DrawStyle属性设置为属性设置为 6(内实线内实线)，则整个形体则整个形体(线、框、圆线、框、圆)画在指定坐标内部。画在指定坐标内部。上一页上一页下一页下一页返回本章首页返回本章首页第16页例例11.3：LineLine方法的使用方法的使用 Li11_3.Li11_3.vbpvbp例例11.4：利用利用Line方法在窗体上画坐标轴与坐标刻度方法在窗体上画坐标轴与坐标刻度Dim x As Single Dim x As Single Li11_4.Li11_4.vbpvbpDim y As

18、SingleDim y As SinglePrivate Sub Form_Load()Private Sub Form_Load()Me.Me.ScaleModeScaleMode=6=6 用绘图方法时，设置对象坐标的度量单位 1-缇，2-点，3-像素，4-字符，5-英寸，6-毫米，7-厘米End SubEnd Sub 上一页上一页下一页下一页返回本章首页返回本章首页第17页Private Sub Form_click()x=Me.ScaleWidth/2 窗体净宽度的一半窗体净宽度的一半 y=Me.ScaleHeight/2 窗体净高度的一半窗体净高度的一半 DrawWidth=2 线宽线

19、宽 Line(x,0)-(x,Me.ScaleHeight),RGB(255,0,0)画画Y 轴轴 Line(0,y)-(Me.ScaleWidth,y),RGB(255,0,0)画画X轴轴 CurentX=x CurentY=y DrawWidth=1 PSet(CurentX,CurentY),vbRed 画画坐标圆点坐标圆点 Print 0 上一页上一页下一页下一页返回本章首页返回本章首页第18页.For For xtxt=1 To=1 To Int Int(Me.(Me.ScaleWidthScaleWidth/2)/10)/2)/10)X轴右侧刻度（以厘米为单位）stst=xt xt

20、*10*10 CurentX CurentX=x+=x+st st CurentY CurentY=y+0.5=y+0.5 Line(x+Line(x+st st,y-1)-(x+,y-1)-(x+st st,y),RGB(255,0,0),y),RGB(255,0,0)Print Print xt xt NextNext xt xt ForFor xt xt=1 To=1 To Int Int(Me.(Me.ScaleWidthScaleWidth/2)/10)/2)/10)X轴的左侧刻度 stst=xt xt*10*10 CurentX CurentX=x-=x-st st CurentY

21、 CurentY=y+0.5=y+0.5 Line(x-Line(x-st st,y-1)-(x-,y-1)-(x-st st,y),RGB(255,0,0),y),RGB(255,0,0)Print-Print-xtxt Next Next xtxt上一页上一页下一页下一页返回本章首页返回本章首页第19页。ForFor yt yt=1 To=1 To Int Int(Me.(Me.ScaleHeightScaleHeight/2)/10)/2)/10)Y轴的下侧刻度 stst=yt yt*10*10 CurentX CurentX=x+0.5=x+0.5 CurentY CurentY=y+

22、=y+st st Line(x,y+Line(x,y+st st)-(x+1,y+)-(x+1,y+st st),RGB(255,0,0),RGB(255,0,0)Print Print yt yt NextNext yt yt ForFor yt yt=1 To=1 To Int Int(Me.(Me.ScaleHeightScaleHeight/20)/20)Y轴的上侧刻度 stst=yt yt*10*10 CurentX CurentX=x+0.5=x+0.5 CurentY CurentY=y-=y-st st Line(x,y-Line(x,y-st st)-(x+1,y-)-(x+

23、1,y-st st),RGB(255,0,0),RGB(255,0,0)Print Print yt yt NextNext yt ytEnd SubEnd Sub上一页上一页下一页下一页返回本章首页返回本章首页第20页3、Circle 方法画圆、椭圆、圆弧和扇形方法画圆、椭圆、圆弧和扇形 Circle方法用来画方法用来画圆、椭圆、弧圆、椭圆、弧圆、椭圆、弧圆、椭圆、弧等。等。格式：格式：格式：格式：对象对象.Circle Step(x,y),radius,color ,start ,end ,Aspect其中：其中：其中：其中：Step(X,Y)指定圆心或椭圆中心的坐标；指定圆心或椭圆中心的

24、坐标；radius指定圆的半径或椭圆的长半轴；指定圆的半径或椭圆的长半轴；Color用于设置线条的颜色；用于设置线条的颜色；Start与与end指定圆弧的起、止角度，省略为完指定圆弧的起、止角度，省略为完 整的圆或椭圆；整的圆或椭圆；（负数（负数 画扇形）画扇形）Aspect指定圆度（垂直半轴与水平半轴之比），指定圆度（垂直半轴与水平半轴之比），为为1或省略时画出的是圆，否则是椭圆。或省略时画出的是圆，否则是椭圆。上一页上一页下一页下一页返回本章首页返回本章首页第21页例例例例11.511.5：用用Circle方法在窗体上方法在窗体上绘绘制由制由圆环圆环构成构成 的的艺术图艺术图案。案。Li1

25、1_5.Li11_5.vbpvbp 构造构造图图案的算法案的算法为为：将一个将一个将一个将一个半径半径为为r的的的的圆圆圆圆周周周周等等分分为为n n份份，以，以，以，以这这这这n n个等分点个等分点个等分点个等分点为圆为圆为圆为圆心，以心，以心，以心，以半径半径r1绘绘绘绘制制制制n n个个个个圆圆圆圆。设设定定圆圆的半径的半径为为窗体高度的窗体高度的1/41/4，圆圆心在窗心在窗体的中心，在体的中心，在圆圆周上周上等分等分5050份份。如如如如图图图图:r=r1 r r1上一页上一页下一页下一页返回本章首页返回本章首页第22页程序代码：Private Sub Form_Click()Pri

26、vate Sub Form_Click()Dim r,x,y,x0,y0,Dim r,x,y,x0,y0,st st As Single As Single Cls Cls r=Form1.r=Form1.ScaleHeightScaleHeight/4 /4 圆半径为窗体高度的1/4 x0=Form1.x0=Form1.ScaleWidthScaleWidth/2 /2 圆的中心坐标（窗体中间）y0=Form1.y0=Form1.ScaleHeightScaleHeight/2 /2 st st=3.1415926/25 =3.1415926/25 将圆等分为 50 份 For i=0 To

27、 6.283185 Step For i=0 To 6.283185 Step st st 以每一个等分点为圆心画圆 x=x0+r*x=x0+r*Cos Cos(i)(i)y=y0-r*Sin(i)y=y0-r*Sin(i)Circle (x,y),r*0.9 Circle (x,y),r*0.9 Next I Next IEnd SubEnd Sub上一页上一页下一页下一页返回本章首页返回本章首页第23页第11章 小 结1、掌握各种设置颜色的方法掌握各种设置颜色的方法；2、了解、了解VB中的坐标系统；中的坐标系统；3、掌握各种绘制图形的方法：掌握各种绘制图形的方法：Pset、Line、Circle 的使用；的使用；作 业 P 183 3，4，5 上机作业 实训十四上一页上一页返回本章首页返回本章首页退出退出