ScaleLeftScaleTopHeightScaleHeightScaleWidth111图形设计基础课件.ppt

《ScaleLeftScaleTopHeightScaleHeightScaleWidth111图形设计基础课件.ppt》由会员分享，可在线阅读，更多相关《ScaleLeftScaleTopHeightScaleHeightScaleWidth111图形设计基础课件.ppt（43页珍藏版）》请在三一办公上搜索。

1、第11章 图形设计,本章要点:图形设计基础 图形控件 绘图方法 与绘图有关的常用属性、事件和方法,2,11.1 图形设计基础,11.1.1 坐标系统 缺省坐标系统:,3,1.刻度单位 缺省刻度单位:缇(Twip)改变刻度单位:对象名.ScaleMode=属性值,11.1 图形设计基础,4,2.改变坐标系(1)ScaleLeft、ScaleTop属性 改变坐标系的原点位置。【例11-1】,Private Sub Command1_Click()Label1.Left=0 Label1.Top=0 End Sub,11.1 图形设计基础,5,Private Sub Command1_Click()

2、Form1.ScaleLeft=200 Form1.ScaleTop=300 Label1.Left=0 Label1.Top=0End Sub,11.1 图形设计基础,6,(2)ScaleWidth和ScaleHeight属性 表示容器对象的内部宽度与高度。用于自定义一个刻度单位。例:使用ScaleWidth和ScaleHeight改变窗体刻度单位 设窗体高度是2000Twips，宽度是3000Twips。此时水平和垂直刻度单位均为1Twips。如果设置:ScaleHeight=500 则将窗体的高度划分为500个单位,每个单位为2000/500，即4Twips 如果设置:ScaleWidt

3、h=1000 则将窗体的宽度划分为1000个单位，每个单位为3000/1000，即3Twips,将 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop 属性设置为任何值都自动将 ScaleMode 设置为 0。,11.1 图形设计基础,7,【例11-2】将一个图形(Shape1)的左上角移动到窗体的中央位置。,Private Sub Command1_Click()Form1.ScaleHeight=2 Form1.ScaleWidth=2 Shape1.Left=1 Shape1.Top=1End Sub,11.1 图形设计基础,8,【例11-3】定义窗体

4、的左下角为原点(0，0)，y坐标轴正方向向上。,Private Sub Form_Load()ScaleHeight=-4ScaleWidth=4ScaleTop=4End Sub Private Sub Command1_Click()Shape1.Left=1Shape1.Top=1End Sub,11.1 图形设计基础,9,【例11-4】定义窗体的中央位置为原点(0，0)，y坐标轴正方向向上。,Private Sub Form_Load()ScaleHeight=-4 ScaleWidth=4 ScaleTop=2 ScaleLeft=-2End SubPrivate Sub Comma

5、nd1_Click()Shape1.Left=1 Shape1.Top=1End Sub,11.1 图形设计基础,10,(3)Scale方法 格式:.Scale(x1,y1)-(x2,y2)【例11-5】在图片框Picture1中打印5行5列的单位矩阵。Private Sub Picture1_Click()Dim a(5,5)As Integer Picture1.Scale(0,0)-(6,6)For i=1 To 5 Picture1.CurrentY=i For j=1 To 5 If i=j Then a(i,j)=1 Else a(i,j)=0 Picture1.CurrentX=

6、j Picture1.Print a(i,j);Next j,i End Sub,11.1 图形设计基础,11,3.当前坐标CurrentX属性:设置或返回的当前坐标的水平坐标CurrentY属性:设置或返回的当前坐标的垂直坐标例如:在点(200,200)处显示“当前坐标为(200,200)”Form1.CurrentX=200 Form1.CurrentY=200 Form1.Print 当前坐标为(200,200),11.1 图形设计基础,12,4.与位置和大小有关的属性,11.1 图形设计基础,13,11.1.2 颜色 颜色值:四字节、长整型。最低的三个字节:红色、绿色、蓝色。每个字节取

7、值:00FF(或0255)1.在设计阶段设置颜色:在属性窗口设置2.在运行阶段设置颜色:(1)RGB函数:RGB(red，green，blue)获取一个长整型(Long)的RGB颜色值。例:Form1.BackColor=RGB(255,0,0)设置窗体的背景色为红色(2)QBColor函数:QBColor(value)value:07、815(为07颜色加亮)0黑色 1蓝色 2绿色 3青色4红色 5紫红色 6黄色 7浅灰色 例:Form1.BackColor=QBColor(4),11.1 图形设计基础,14,(3)使用颜色常量vbBlack黑色vbRed红色vbGreen绿色vbYello

8、w黄色vbBlue蓝色vbMagenta洋红色vbCyan青色vbWhite白色(4)使用颜色的十六进制值&H00BBGGRR&(5)使用系统颜色 例:vbScrollBars&H80000000 滚动条颜色 vbDesktop&H80000001 桌面颜色,11.1 图形设计基础,15,11.2.1 Shape控件 1.属性:Shape BorderStyle、BorderColor、BorderWidth BackStyle、BackColor FillStyle、FillColor 例如:,11.2 图形控件,16,2.方法 Move object.Move left,top,width

9、,height【例11-6】在窗体上移动一正方形，每次移动时使正方形的长和宽增加100缇。Private Sub Command1_Click()Shape1.Move Shape1.Left+100,Shape1.Top+100,_ Shape1.Width+100,Shape1.Height+100End Sub,11.2 图形控件,17,11.2.2 Line控件1.作用:设计时在窗体上绘制直线。2.属性:BorderStyle、BorderWidth X1、X2、Y1、Y2注意:运行时可以通过改变 X1、X2、Y1 和 Y2 属性来移动它或者调整它的大小。而不能 使用Move方法,11

10、.2 图形控件,18,11.3 绘图方法,11.3.1 画点方法(Pset)格式:.PSet Step(x,y),功能:在对象的指定位置，用一定的颜色画点说明:窗体、图片框、缺省为当前窗体。Step 可选的，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。(x,y)点的水平和垂直坐标。绘制该点的 RGB 颜色。省略时使用 的 ForeColor 属性值。,19,【例11-7】用PSet方法在窗体上绘制一条00,3600的正弦曲线。,Private Sub Form_Click()DrawWidth=2 Scale(0,1)-(360,-1)For x=0 T

11、o 360 y=Sin(x*3.1415926/180)PSet(x,y),vbRed Next xEnd Sub,11.3 绘图方法,20,【例11-8】用PSet方法在窗体上绘制一条如下图所示的星形曲线,曲线由以下参数方程决定:x=sin2t*cost y=sin2t*sint 其中t的取值范围为0t2,11.3 绘图方法,21,Private Sub Form_Click()Scale(-1,1)-(1,-1)DrawWidth=2 ForeColor=vbRed For t=0 To 2*3.1415926 Step 0.001 x=Sin(2*t)*Cos(t)y=Sin(2*t)*

12、Sin(t)PSet(x,y)Next tEnd Sub,11.3 绘图方法,22,11.3.2 画线、矩形方法(Line)格式:.Line Step(x1,y1)Step(x2,y2),BF功能:在指定两点之间用指定的颜色画线或矩形说明:窗体、图片框，缺省为当前窗体。Step可选的，指定相对于由 CurrentX 和 CurrentY属性提供的当前位置的坐标。(x1,y1)直线或矩形的起点坐标。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。Step可选的，指定相对于起点的终点坐标。(x2,y2)直线或矩形的终点坐标。画线时用的 RGB 颜色。B利用对角坐标画出矩形

13、。F规定矩形以矩形边框的颜色填充。,11.3 绘图方法,23,【例11-9】单击窗体在窗体上绘制直线、矩形。,Private Sub Form_Click()ScaleWidth=100 ScaleHeight=100 DrawWidth=5 画三角形 Line(10,30)-(10,80),vbRed Line-(30,80),vbGreen Line-(10,30),vbBlue 画矩形 CurrentX=40:CurrentY=30 Line-(60,80),vbRed,B 画实心矩形 CurrentX=70:CurrentY=30 Line-Step(20,50),vbMagenta,

14、BFEnd Sub,11.3 绘图方法,24,【例11-10】给星形曲线绘制坐标线。Private Sub Form_Click()Scale(-1,1)-(1,-1)DrawWidth=3Line(-1,0)-(1,0),vbBlueLine(0,1)-(0,-1),vbBlueDrawWidth=1For i=-1 To 1 Step 0.1 Line(i,0.05)-(i,0)画垂直刻度Next iDrawWidth=2ForeColor=vbRedFor t=0 To 2*3.1415926 Step 0.001 x=Sin(2*t)*Cos(t)y=Sin(2*t)*Sin(t)PS

15、et(x,y)Next t:End Sub,11.3 绘图方法,25,【例11-11】在窗体上以随机的颜色从外向里画矩形，每隔一秒画一个。Dim X1,Y1,X2,Y2,DX,DY Private Sub Form_Load()X1=0 Y1=0 X2=ScaleWidth Y2=ScaleHeight DX=ScaleWidth/20 DY=ScaleHeight/20 DrawWidth=8 Randomize End Sub,11.3 绘图方法,26,Private Sub Timer1_Timer()If X1 X2 And Y1 Y2 Then Line(X1,Y1)-(X2,Y2)

16、,QBColor(Int(Rnd*15),B X1=X1+DX Y1=Y1+DY X2=X2-DX Y2=Y2-DY Else Timer1.Enabled=False MsgBox 绘制完毕 End If End Sub,11.3 绘图方法,27,11.3.3 画圆方法(Circle)格式:.Circle Step(x,y),功能:在对象上画圆、椭圆或弧。窗体、图片框。缺省为当前窗体。Step指定圆、椭圆或弧的中心相对坐标。(x,y)圆、椭圆或弧的中心坐标。圆、椭圆或弧的半径。为最长轴的尺寸。圆的轮廓颜色。省略则使用 ForeColor 值。,以弧度为单位，范围-2,2。指定弧或扇形的起点和

17、终点位置。起点的缺省值是0;终点的缺省值是2。若为负数，在画弧的同时画圆心到弧端点的连线。圆的纵横尺寸比。缺省值为 1.0(标准圆),11.3 绘图方法,28,注意:Circle 方法总是沿逆时针方向绘图。【例11-12】在窗体上绘制以下图形:,Const pi=3.14159265 ScaleWidth=100 ScaleHeight=100 Circle(30,30),10 Circle(70,30),10,vbGreen,0.5 Circle(70,30),10,vbRed,2 Circle(30,75),10,-0.75*pi,-0.25*pi Circle(70,75),10,-0.

18、25*pi,-0.75*pi Circle(70,75),10,1.25*pi,1.75*pi,11.3 绘图方法,29,【例11-13】在窗体上绘制以下图形:,11.3 绘图方法,30,Private Sub Form_Click()FillStyle=0 定义填充风格Solid Scale(0,100)-(100,0)cx=50 圆心X坐标 cy=0 圆心Y坐标 r=60 半径 For i=45 To 130 Step 5 If i Mod 10 0 Then FillColor=vbRed Else FillColor=vbYellow End If Circle(cx,cy),r,-i

19、*3.1416/180,-(i+5)*3.1416/180 Next iEnd Sub,11.3 绘图方法,31,11.4 与绘图有关的常用属性、事件和方法,11.4.1 清除图形方法(Cls).Cls功能:清除运行时 Form 或 PictureBox 所生成的图形和文本窗体、图片框。注意:(1)Cls 的功能受AutoRedraw 的影响。(2)调用 Cls 之后，对象的 CurrentX 和 CurrentY 属性复位为 0。,32,11.4.2 线宽(DrawWidth)属性和线型(DrawStyle)属性1.DrawWidth属性 设置图形方法输出的线宽。线宽的取值范围从1到3276

20、7。该值以像素为单位表示线宽。缺省值为1，即一个像素宽。如果DrawWidth属性值大于1，画出的图形是实线；如果DrawWidth属性值等于1，可以通过DrawStyle属性画出各种线型。2.DrawStyle属性 设置图形方法输出的线型。,11.4 与绘图有关的常用属性、事件和方法,33,11.4 与绘图有关的常用属性、事件和方法,34,11.4.3 填充颜色(FillColor)属性和填充样式(FillStyle)属性1.FillColor属性 改变填充图形的颜色。2.FillStyle属性 设置封闭图形的填充样式。,11.4 与绘图有关的常用属性、事件和方法,35,11.4.4 自动重

21、画(AutoRedraw)属性 使用如Print、PSet、Line 和Circle 方法，在改变对象大小或隐藏在另一个对象后又重新显示的情况下，设置 AutoRedraw 为 True，将在 Form 或 PictureBox 控件中自动重绘输出。运行时 在程序中设置 AutoRedraw，可以在画持久图形(如背景色或网格)和临时图形之间切换。如果设置 AutoRedraw 为 True，以前的输出成为背景屏幕的一部分。将AutoRedraw 设置为 False后，用 Cls 方法清除绘图区时不会删除背景图形。把 AutoRedraw 改回 True 后，再用 Cls 将清除背景图形。,11

22、.4 与绘图有关的常用属性、事件和方法,36,【例11-14】单击Command1在图片框中绘制一系列背景线,单击Command2在图片框中随机绘制一系列圆,单击Command3清除图片框中绘制的圆,单击Command4清除图片框中的所有图形。,11.4 与绘图有关的常用属性、事件和方法,37,Private Sub Command1_Click()P1.AutoRedraw=True dx=P1.ScaleWidth/20 P1.ForeColor=vbYellow For i=1 To 19 P1.Line(i*dx,0)-(i*dx,P1.ScaleHeight)Next iEnd Su

23、bPrivate Sub Command2_Click()P1.AutoRedraw=False P1.ForeColor=vbRed Randomize,11.4 与绘图有关的常用属性、事件和方法,38,For i=1 To 20 cx=Int(Rnd*P1.ScaleWidth)cy=Int(Rnd*P1.ScaleHeight)P1.Circle(cx,cy),200 Next IEnd SubPrivate Sub Command3_Click()P1.AutoRedraw=False P1.ClsEnd SubPrivate Sub Command4_Click()P1.AutoRe

24、draw=True P1.ClsEnd Sub,11.4 与绘图有关的常用属性、事件和方法,39,11.4.5 Paint事件 在应用程序运行时，当一个对象被移动或改变大小之后；或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性(重现原来的图形)，可以选择触发Paint事件来完成图形的重画工作。如果 AutoRedraw 属性被设置为 True，重新绘图将会自动进行，此时Paint 事件无效。使用 Refresh 方法时，Paint 事件即被自动调用。在Resize事件过程中调用Refresh方法，强制使用Paint 事件重画图形。,11.4 与绘图有关的常用属性、事件和方

25、法,40,Private Sub Form_Paint()Dim HalfX,HalfY 设置到宽度的一半。HalfX=ScaleLeft+ScaleWidth/2 设置到高度的一半。HalfY=ScaleTop+ScaleHeight/2,【例11-15】在窗体中画一个米字形。当窗体的大小改变时，米字形也随着自动调整。,11.4 与绘图有关的常用属性、事件和方法,41,画一个米字形。先画对角线 Line(ScaleLeft,ScaleTop)-(ScaleWidth,ScaleHeight)Line(ScaleLeft,ScaleHeight)-(ScaleWidth,ScaleLeft)再

26、画十字 Line(HalfX,ScaleTop)-(HalfX,ScaleHeight)Line(ScaleLeft,HalfY)-(ScaleWidth,HalfY)End SubPrivate Sub Form_Resize()RefreshEnd Sub,11.4 与绘图有关的常用属性、事件和方法,42,本 章 小 结:,1.坐标系统 改变坐标系统的方法:ScaleLeft和ScaleTop属性 ScaleWidth和ScaleHeight属性 Scale方法 2.Left、Top、Width、Height属性和ScaleLeft、ScaleTop、ScaleHeight、ScaleWidth属性的区别。3.颜色 RGB函数 QBColor函数,43,4.图形控件 Shape控件 Line控件5.绘图方法 画点方法PSet 画直线、矩形方法Line 画圆方法Circle6.与绘图有关的常用属性、事件和方法 清除图形方法(Cls)线宽(DrawWidth)属性和线型(DrawStyle)属性 填充颜色(FillColor)属性和填充样式(FillStyle)属性 自动重画(AutoRedraw)属性 Paint事件,本 章 小 结:,