VB教程 (10).ppt

1、第10章 处理图形,Visual Basic 程序设计教程,Visual Basic程序设计教程,2,本章主要介绍 绘图属性 绘图方法 图片框 影像框,Visual Basic程序设计教程,3,10.1 概述,图形一般指图绘形象，描画出物体的轮廓、形状等。 由图元组成，图元可以是点、线、圆、字符、填充区等。 每个图元有它的数据定义和外貌特征。如线段端点、粗细等。 VB提供了一些控件和方法，绘制图元，最终构成图形 容器是绘制图形或控件的场所 容器中的对象只能在容器内变动。 窗体、框架、图片框是容器 移动容器时，内部对象与容器的相对位置保持不变。,Visual Basic程序设计教程,4,VB容器

2、的图层从前到后为： 前层非绘图控件所在层，如命令按钮、复选框等； 中间层绘图控件和标签所在层； 底层绘图方法显示结果的地方。 图层显示特性依靠：AutoRedraw和ClipControls属性的设置及绘图方法是否在Paint事件过程内。 图像一般是指绘制、摄制或印制的形象。 可将它们装载到图片框、影像框可窗体上,Visual Basic程序设计教程,5,10.2 模拟单摆,【例10-1】设计一个模拟单摆 控件： 图片框控件Picture1：作单摆容器 直线控件Line1：作绳索 形状控件Shape1：作球（设计界面中为矩形） 定时器控件Timer1：控制摆动。,Visual Basic程序设

3、计教程,6,2个模块级变量A和D，表示摆动角度和方向。 2个事件过程： Form_Load，初始化界面和控件属性 Timer1_Timer，控制单摆的运动。,Visual Basic程序设计教程,7,Option ExplicitDim A As Integer, D As Integer 模块级变量，A表示角度，D表示方向Const PI = 3.1415926Private Sub Form_Load() Form1.Width = 1.3 * Form1.Height 设置窗体的宽度和高度比例 Picture1.Width = 1.5 * Picture1.Height 设置图片框的宽度

4、和高度比例 Picture1.Scale (-150, -5)-(150, 195) 更改坐标系统 Shape1.FillStyle = 0 使形状控件的填充模式为实心 Shape1.FillColor = vbRed 使形状控件填充红色 Shape1.BorderColor = vbRed 使形状控件的边界颜色为红色 Shape1.Width = 15 按坐标系，更改形状控件大小 Shape1.Shape = 3 使形状控件的形状为圆形 Line1.BorderColor = vbRed 使绳索颜色为红色 Line1.X1 = 0: Line1.Y1 = 0 使绳索上端在原点(0,0)上 P

5、icture1.AutoRedraw = True 使图片框的重绘属性为True Picture1.Line (-10, 0)-(10, 0) 顶端画一条固定绳索的横线 Timer1.Interval = 100 A = -20: D = -1 设置初始角度和方向End Sub,Visual Basic程序设计教程,8,Private Sub Timer1_Timer() Dim X As Single, Y As Single If D = -1 Then A = A + 2 Else A = A - 2 X = 170 * Sin(A * PI / 180) 确定圆心和直线下端的位置 Y

6、= 170 * Cos(A * PI / 180) Line1.X2 = X: Line1.Y2 = Y 更改直线下端位置 Shape1.Left = X - Shape1.Width / 2 使圆心位置在直线的下端 Shape1.Top = Y - Shape1.Height / 2 If D = -1 And A = 20 Or D = 1 And A = -20 Then D = -D 20改方向End Sub Scale方法使图片框左上角和右下角坐标分别为(-150,-5)和(150,195)。 而170表示着绳索的长度，可以取其它值，但应使整个单摆可见。,Visual Basic程序

7、设计教程,9,10.3 什么是VB坐标系,坐标系是用于确定数与基本几何对象之间对应关系的参考系，是形和数结合的基础。 VB坐标系是确定对象和图形位置的参考系。 VB中每一个容器采用(x,y)的二维坐标系统 每个对象、图形操作，都要使用坐标系。 VB坐标系统使用有以下规则： 移动或调整控件大小时，使用容器的坐标系统。 绘图方法和Print方法，使用容器的坐标系统。,Visual Basic程序设计教程,10,10.3.1 VB默认坐标系 VB坐标系每个点用(x,y)表示 x是水平方向沿x轴的位置，默认最左端是0 y是垂直方向沿y轴的位置，默认最上端是0 坐标单位又称为坐标刻度，默认缇（twips

8、)。 还可以使用磅、像素和毫米等。 屏幕的左上角的坐标总是(0,0),Visual Basic程序设计教程,11,其它容器在缺省状态下，左上角是(0,0)。 窗体(0,0)点指窗体标题栏下边沿的左上角。 使用对象的刻度属性和Scale方法，可重新设置容器的坐标系统。,Visual Basic程序设计教程,12,10.3.2 Scale方法 使用Scale方法可以创建自定义刻度。 Scale方法的使用格式为： 容器名.Scale (x1,y1)-(x2,y2) 1容器名指窗体名或图片框控件名。 缺省指当前窗体 2(x1, y1)和(x2, y2) 为新坐标系统左上角和右下角坐标 3省略(x1,y

9、1)-(x2,y2)，恢复缺省刻度。,Visual Basic程序设计教程,13, 例10-1中Picture1.Scale (-150, -5)-(150, 195)更改图片框坐标系如上图。 这样求运动点(x,y)的位置比较方便 设绳索长为170，则当绳索与y轴的夹角为a时，则x=170sina，y=170cosa。,Visual Basic程序设计教程,14,10.3.3 坐标属性 使用坐标属性可以更改容器的坐标刻度，也可以自定义坐标系。 ScaleMode：设置坐标刻度，缺省值为1（缇） ScaleLeft：表示或设置对象左边界水平坐标 ScaleTop：表示或设置对象上边界垂直坐标 S

10、caleWidth：表示或设置对象内水平度量单位数 ScaleHeight：表示或设置对象内垂直度量单位数 CurrentX：当前输出的水平坐标。程序中使用。 CurrentY：当前输出的垂直坐标。程序中使用。,Visual Basic程序设计教程,15,属性说明： ScaleWidth、ScaleHeight不同于Width、Height ScaleMode属性可以取值07，表示刻度分别为自定义、缇、磅、像素、字符、英寸、毫米和厘米。 更改ScaleWidth、ScaleHeight、ScaleLeft、ScaleTop之 一时，VB自动将ScaleMode的值设为0。 如Scale (-1

11、50, -5)-(150, 195)，也可以表示成： ScaleWidth=300:ScalHeight=200: ScaleLeft=-150:ScaleTop=-5 若要改坐标轴方向，可将ScaleWidth或ScaleHeight设置成负值,Visual Basic程序设计教程,16,ScaleMode属性取值为17时的刻度，称为标准刻度 在设置了ScaleMode属性的值后，VB会重定义ScaleWidth和ScaleHeight，使它们与新刻度保持一致。 左上角坐标总是：(ScaleLeft,ScaleTop) 右下角坐标总是： (ScaleLeft+ScaleWidth,Scale

12、Top +ScaleHeight)。,Visual Basic程序设计教程,17,10.4 使用绘图方法,10.4.1 画点PSet方法 绘图方法可画点、画线、画矩形、画椭圆等。 格式：对象名.PSet (x,y) ,颜色 1(x,y)为所画点的坐标位置 2颜色指点的颜色。缺省时由容器的ForeColor属性决定。 例如：PSet (1000, 1000), RGB(255, 0, 0) 在(1000,1000)处画红点，大小由容器的DrawWidth属性决定。 3擦除一个点，可采用以背景色重画点。 4 Cls方法可擦除绘图方法及Print方法的输出内容。,Visual Basic程序设计教程

13、,18,【例10-2】绘制一条y=x2的抛物线。Private Sub Form_Click() Dim x As Single Scale (-10, 105)-(10, -2) For x = -9 To 9 Step 0.01 PSet (x, x * x) Next xEnd Sub,Visual Basic程序设计教程,19,10.4.2 画直线和矩形Line的方法 使用Line方法可以画出直线或矩形。 1画线格式：对象名.Line (x1,y1)-(x2,y2) ,颜色 (x1,y1)和(x2,y2)分别为起点和终点坐标 如：Line (100, 150)-(1400, 1300)

14、, vbRed 缺省起点 (x1,y1)，表示将当前输出位置作为 起点。,Visual Basic程序设计教程,20,坐标点的另一种表示形式为：Step(x,y) 是相对位置的表示法，表示当前输出位置水平方向加上x，垂直方向加上y后得到的坐标点。 对象的当前位置由CurrentX和CurrentY决定 Line (100, 200)-(150, 250)等价：Line (100, 200)-Step(50, 50) VB画直线时，包括了起点，未包括终点。画终点可用： PSet Step(0, 0), color 连续使用缺省起点的Line方法，可以绘制多点折线。,Visual Basic程序设

15、计教程,21,【例10-3】在窗体上中间画出一个等腰三角形。 可根据窗体ScaleWidth和ScaleHeight属性确定三点位置 由于一条线的终点等价于另一条线的起点，因此除了第一条线以外，其它两条线均可用缺省起点的Line方法。,Visual Basic程序设计教程,22,Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As Integer Dim y1 As Integer, y2 As Integer, y3 As Integer x1 = ScaleWidth / 2: y1 = ScaleHeig

16、ht / 5 x2 = ScaleWidth / 5: y2 = ScaleHeight / 5 * 4 x3 = ScaleWidth / 5 * 4: y3 = ScaleHeight / 5 * 4 Line (x1, y1)-(x2, y2) Line -(x3, y3) Line -(x1, y1)End Sub,Visual Basic程序设计教程,23,2画矩形采用格式： 对象名.Line (x1,y1)-(x2,y2) ,颜色,BF (x1,y1)和(x2,y2) 为矩形的两个对角顶点坐标 缺省(x1,y1)，表示当前输出位置作(x2,y2)的对角顶点 参数B表示绘制矩形 参数

17、F表示矩形填充，即为实心的矩形 如：Line (500, 200)-Step(200, 200), vbRed, B 如： Line (500, 200)-Step(200, 200), vbRed, BF 若颜色缺省，逗号也不能省,Visual Basic程序设计教程,24,【例10-4】编制简易黑板。功能是：用鼠标左键在窗体上拖动时，画出线条；用鼠标右键在窗体上拖动时，擦去线条。击“清除” 擦去所有痕迹。 事件： 窗体MouseDown：画出按下鼠标的第一点 窗体MouseMove：画出线条或删除线条 用背景色，画小矩形擦 “清除”的Click：擦去所有痕迹,Visual Basic程序设

18、计教程,25,Private Sub Command1_Click() 擦“黑板”Cls End Sub Private Sub Form_Load() 初始化 Form1.Caption = 简易黑板 Form1.BackColor = RGB(0, 0, 0) Form1.ForeColor = RGB(255, 255, 255) Command1.Caption = 擦除 End Sub,Visual Basic程序设计教程,26,Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y

19、 As Single) If Button = 1 Then Button = 1表示按下左键， 画第一点 Form1.PSet (X, Y) End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 左键拖动画线 Form1.Line -(X, Y) ElseIf Button = 2 Then 右键拖动以黑色画实心方块，起擦除作用 Form1.Line (X - 200, Y - 200)-(X + 2

20、00, Y + 200), RGB(0, 0, 0), BF End If End Sub,Visual Basic程序设计教程,27,10.4.3 画圆、弧和椭圆Circle方法 Circle方法可画出圆、圆弧、扇形或椭圆。 1画圆格式：对象名.Circle Step(x,y), 半径 ,颜色 Step(x,y)表示圆心的坐标。 半径的度量单位与容器坐标系的单位相同，不能为负。 画圆时，半径通常由水平单位指定。,Visual Basic程序设计教程,28,如下列代码绘制如图。Scale (-50, 20)-(50, -20)Line (-15, 15)-(15, -15), , BCircl

21、e (0, 0), 15 又如以窗体中心为圆心，以窗体ScaleWidth的1/4为半径画圆： Circle (ScaleWidth / 2 + ScaleLeft, ScaleHeight / 2 + ScaleTop), _ ScaleWidth / 4,Visual Basic程序设计教程,29,【例10-5】编程，在窗体中间画1000个同心多彩圆。 编写通用过程PaintCircle：绘制彩色圆 Sub PaintCircle() Dim R As Integer, X As Integer, Y As Integer X = ScaleWidth / 2 将x坐标设置在窗体内横向中间

22、 Y = ScaleHeight / 2 将y坐标设置在窗体内纵向中间 If X Y Then R = X * 0.9 Else R = Y * 0.9 Circle (X, Y), R * Rnd, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 画圆End Sub,Visual Basic程序设计教程,30,Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 1000 PaintCircleNextEnd Sub 其中乘0.9是为了最大圆不会紧贴窗体边缘。,Visual Basic程序设计教程,31,2

23、画弧格式为：对象名.Circle Step(x,y),半径,颜色, Start, End, Aspect 圆弧以弧度为单位，按逆时针方向画弧。 Start和End表示弧线起始角和终止角的弧度数据 平行于X轴的正向为0弧度 如果Start参数或End参数是负数，则VB将画一条连接圆心到负端点的直线。 使用不为1的 Aspect参数，表示为椭圆弧线的一段。 如：Circle (800, 800), 500, , -3.14 / 2, -3.14 / 3Circle (1800, 800), 500, , 0, 3 * 3.14 / 4,Visual Basic程序设计教程,32,3画椭圆格式： 对

24、象名.Circle Step(x,y),半径,颜色, Start, End, Aspect 画圆还是画椭圆由圆的方位比Aspect决定。它指定了垂直长度和水平长度的比例 VB在Circle方法中的半径参数对应椭圆的长轴。 ,颜色, Start, End, Aspect四项中任一项都是可选的，当前面的项缺省时，逗号仍不能省去。 省略Start, End中的任一项，表示该项为0，画弧。两项都省去，表示画圆或椭圆。 如以下代码，使用半径均为500，但使用不同的方位比，其效果如图。Circle (800, 800), 500, , , , 3Circle (800, 800), 500Circle (

25、2000, 800), 500, , , , 1 / 3,Visual Basic程序设计教程,33,10.5 使用绘图属性,10.5.1 更改线条形式 1DrawWidth属性 DrawWidth属性可以设置线条的粗细、点的大小 DrawWidth属性值以像素为单位，取值范围为132767 当数据取得很大时，可能一个点就能占满整个容器。,Visual Basic程序设计教程,34,下面代码根据DrawWidth取值，效果如图。Private Sub Form_Click()Dim i As Integer, t As Integert = ScaleWidth / 20For i = 1 T

26、o 20 Step 2 Form1.DrawWidth = i PSet (t * i, ScaleHeight / 4) Line (t * i, ScaleHeight / 2)-(t * i, ScaleHeight)Next iEnd Sub,Visual Basic程序设计教程,35,2DrawStyle属性 DrawStyle属性用于指定绘制的图形线条形式。 DrawStyle属性取值为06，形式如表。 6：内收实线，框线较粗时，才可见效果，如图,Visual Basic程序设计教程,36,10.5.2 填充图案 1FillStyle属性 设置封闭图形的填充图案样式，取值0至7 缺

27、省值为1 ，无论何种色彩，均表现为空心。 如希望窗体上显示各填充效果，可用代码：t = ScaleWidth / 9For I = 0 To 7 FillStyle = I Line (I * t + 100, 500)-(I + 0.8) * t + 100, 500 + 1000), , B Next I,Visual Basic程序设计教程,37,2FillColor属性 FillColor属性表示填充颜色 只要FillStyle属性不为1，就可FillColor填色 VB填充矩形、圆、扇形等封闭图形 FillColor属性的设置方式和ForeColor相同,Visual Basic程序

28、设计教程,38,注意FillColor和ForeColor的差别： 前者用于填充颜色 后者为默认的边线颜色，或输出文字颜色。 若Line语句中使用了参数F，则所有的填充形式和填充颜色都无效。,Visual Basic程序设计教程,39,【例10-6】根据绘图属性，画扇形、画椭圆、画环。,对于圆环，没有单独语句，可用图形组合。Private Sub Command1_Click() 画扇形。 FillStyle = 7 FillColor = RGB(255, 0, 0) Circle (800, 1000), 800, , -0.0001, -3.14 * 2 / 3End Sub,Visua

29、l Basic程序设计教程,40,Private Sub Command2_Click() 画两个椭圆 FillStyle = 1 画一个红色点线的空心椭圆 DrawStyle = 2 : Circle (2300, 500), 400, vbRed, , , 2 DrawStyle = 0 恢复默认的线条样式 FillStyle = 0 画线宽3个像素，线条红色的 一个实心黄椭圆 DrawWidth = 3 : FillColor = vbYellow Circle (2300, 1200), 400, vbRed, , , 0.5 DrawWidth = 1 恢复默认线宽End SubPr

30、ivate Sub Command3_Click() 绘制圆环 FillStyle = 4 画一个有填充的大圆 FillColor = vbBlue : Circle (3500, 1000), 600, vbRed FillStyle = 0 画一个实心的以背景色填充的同心小圆 FillColor = BackColor : Circle (3500, 1000), 300, vbRedEnd Sub,为了在0弧度上能画上横线,使用了-0.0001,Visual Basic程序设计教程,41,10.6 使用绘图控件,10.6.1 直线控件（Line） 直线控件可以在容器对象中绘制直线 该直线

31、不能被Cls方法清除， 程序中修改端点可以移动直线。 1创建直线控件：工具箱内选取直线工具,Visual Basic程序设计教程,42,2直线控件的主要属性 （名称）Name。直线控件名称。缺省值为Line1 BorderColor：设置线条颜色 BorderStyle：线条样式，取值为06，分别表示透明、实线、破折线、点线、点划线、双点划线和内收实线。 BorderWidth：设置线条粗细 X1和Y1：分别为起点的x坐标和y坐标 X2和Y2：分别为终点的x坐标和y坐标 直线控件没有事件,Visual Basic程序设计教程,43,10.6.2 形状控件（Shape） 形状控件可以直接在容器对

32、象中绘制图形 这些图形可是圆、椭圆、也可以是矩形等 1创建形状控件：在工具箱内选取工具 2形状控件的属性 同直线控件的BorderColor、BorderStyle、BorderWidth 常规属性Height、Width、Left、Top、Visible等 Name（名称），形状控件名称。缺省值为Shape1,Visual Basic程序设计教程,44,FillColor：设置填充颜色 FillStyle：填充样式，取值07，默认为1，即透明。 Shape：设置图形的形状，取值05，分别表示矩形、正方形、椭圆、圆、圆角矩形、圆角正方形。默认为0。 控件为圆时，半径为Height/2和Widt

33、h/2的最小值； 控件为正方形时，边长为Height和Width的最小值。 Shape控件没有事件。,Visual Basic程序设计教程,45,【例10-7】用直线控件和形状控件制作钟。,控件： 7条直线控件 Line1Line4作为3、6、9、12点的位置 Line5Line7分别作为时、分、秒的指针。 1个形状控件：作为钟的圆盘 用Time、Hour、Minute、Second函数获得时、分、秒 为了计算方便，原点(0,0)改在窗体中心，并且轴方向与数学上的一致，但没有更改刻度。 时和分采用实数型 本题所有的属性设置在Form_Load中完成。,Visual Basic程序设计教程,46

34、,Dim H1 As Integer, M1 As Integer, S1 As Integer 指针长度Const PI = 3.1415926Private Sub Form_Load() 初始化Dim R As Integer 钟的半径Scale (-ScaleWidth / 2, ScaleHeight / 2)-(ScaleWidth / 2, -ScaleHeight / 2) Shape1.FillStyle = 0: Shape1.Shape = 3: Shape1.FillColor = vbYellow Shape1.Left = -Shape1.Width / 2: Sh

35、ape1.Top = Shape1.Height / 2 If Shape1.WidthShape1.Height Then R=Shape1.Width/2 Else R=Shape1.Height/2 确定半径Line5.X1 = 0: Line6.X1 = 0: Line7.X1 = 0 时分秒针一端置于原点Line5.Y1 = 0: Line6.Y1 = 0: Line7.Y1 = 0H1 = R * 0.6: M1 = R * 0.7: S1 = R * 0.8 确定时分秒指针长度Line1.X1=0: Line1.X2=0: Line1.Y1 = R * 0.85: Line1.Y

36、2 = R * 0.9 4点位置Line2.X1 = R * 0.85: Line2.X2 = R * 0.9: Line2.Y1 = 0: Line2.Y2 = 0Line3.X1 = 0: Line3.X2 = 0: Line3.Y1 = -R * 0.85: Line3.Y2 = -R * 0.9Line4.X1 = -R * 0.85: Line4.X2 = -R * 0.9: Line4.Y1 = 0: Line4.Y2 = 0Line7.BorderColor = vbRed 将秒指针设为红色Timer1.Interval = 1000Timer1_Timer 调用Timer1_T

37、imer事件过程End Sub,Visual Basic程序设计教程,47,Private Sub Timer1_Timer()Dim H As Single, M As Single, S As Single 计算出时分秒S =Second(Time): M=Minute(Time)+S/60: H= Hour(Time) Mod 12 +M/60 确定时分秒指针的另一端Line5.X2 = H1*Cos(PI/2-H*2*PI/12): Line5.Y2 = H1*Sin(PI/2-H*2*PI/12)Line6.X2 = M1*Cos(PI/2-M*2*PI/60): Line6.Y2=

38、M1*Sin(PI/2-M*2*PI/60)Line7.X2 = S1*Cos(PI/2-S*2*PI/60): Line7.Y2 = S1*Sin(PI/2-S*2*PI/60)End Sub 通过S * 2 * PI / 60等计算出指针与x轴的夹角弧度 指针是在90度开始逆向运动，所以用：PI / 2 - S * 2 * PI / 60。 对于时针，转一圈为12小时，故除以12。,Visual Basic程序设计教程,48,10.7 VB图像和色彩,10.7.1 图片框（PictureBox） 图片框控件属于容器控件 可以放置其它控件 可以显示图形、显示Print方法输出的文本 可以载入

39、图片或图像。 1创建图片框 在工具箱内选取图片框工具,Visual Basic程序设计教程,49,2图片框的主要属性 坐标系：ScaleHeight、ScaleLeft、ScaleMode、ScaleWidth、ScaleTop 绘图：AutoRedraw、DrawStyle、DrawWidth、FillColor、FillStyle （名称）Name。图片框控件名称。缺省Picture1 AutoSize：控件是否会自动改变大小适合加载的图片。值为True时，自动调整大小与显示的图片相匹配。 Picture：设置控件内显示的图片文件,Visual Basic程序设计教程,50,3图片框的事件

40、 Click、DblClick、MouseDown、MouseMove、MouseUp、Paint、Resize等 4图片框的方法 Move方法：移动或调整图片框大小 Circle、Line和Pset方法：画图 Print方法：输出文本或数据 Cls方法：清除输出的内容，但不能清除控件及图片。 还有PaintPicture和Point等方法（后面介绍）,Visual Basic程序设计教程,51,5加载图片 VB支持 .bmp、.ico、.wmf、.jpg和.gif等文件。加载方法： 属性窗口中设置Picture属性 程序中利用函数LoadPicture设置Picture属性，格式为：对象名.

41、Picture = LoadPicture(文件说明)清除图片，格式为：对象名.Picture = LoadPicture(),Visual Basic程序设计教程,52,【例10-8】编程：模拟显示某系统正在读取数据。 控件： 图片框：内部显示一系列矩形 标签：提示“系统正在读取数 据，请稍等” 命令按钮：使定时器工作 定时器控件：在图片框内定时 画矩形。,Visual Basic程序设计教程,53,Private Sub Command1_Click() “开始”按钮 Timer1.Enabled = True : Command1.Enabled = False : Picture1.C

42、ls Label1.Caption = 系统正在读取数据，请稍等.End SubPrivate Sub Form_Load() Form1.Caption = 图片框示例: Picture1.AutoRedraw = True Label1.Caption = : Label1.AutoSize = True Timer1.Enabled = False: Timer1.Interval = 1000End Sub,Visual Basic程序设计教程,54,Private Sub Timer1_Timer()Static n As IntegerPicture1.Line (160 * n,

43、 0)-(160 * n + 100, Picture1.ScaleHeight), , BFIf 160 * n + 100 = Picture1.ScaleWidth Then Label1.Caption = 数据读取完成！共用了 & (n + 1) & 秒 MsgBox 数据读取完成!, , 消息 Command1.Enabled = True : Command1.SetFocus n = 0 : Timer1.Enabled = FalseElse n = n + 1End IfEnd Sub,Visual Basic程序设计教程,55,10.7.2 影像框（Image） 影像框控

44、件与图片框控件相似 影像框控件只用于显示图片，不能作为容器。 1创建影像框：在工具箱内选取影像框工具 2影像框的属性 影像框控件使用布局属性和可见、可用属性。 没有字体属性、颜色属性、坐标属性和绘图属性。,Visual Basic程序设计教程,56,其它主要属性： （名称）Name。影像框控件名称，缺省值为Image1。 Stretch：设置加载的图片是否能自动扩展或缩小以适应控件的尺寸，还是影像框去适合图片的大小。缺省值为False。 Stretch为True时，影像框大小不会自动改变，可由影像框的大小来调整图片的大小 Stretch为为False 时，影像框的大小根据图片大小来自动调整。

45、Picture：设置控件内显示的图片文件。,Visual Basic程序设计教程,57,3影像框的事件 Click、DblClick、MouseDown、MouseMove、MouseUp 但没有Paint和Resize事件。 可用Image控件创建按钮(因识别Click)。 4影像框的方法 可用Move方法移动或调整它的大小 没有绘图方法。,Visual Basic程序设计教程,58,5加载图片 使用Picture属性 可以在属性窗口中设置 可以利用函数LoadPicture来设置Picture属性。 Image使用较少系统资源，且加载比PictureBox快。 当只要求显示图片时，可以选用

46、Image控件。,Visual Basic程序设计教程,59,【例10-9】利用定时器控件编程，使得4幅图片在影像框Image1中轮流显示，当单击Image1时，将放大的图片显示在Image2中。 控件： 个影像框控件： Stretch属性设置为True 个定时器控件 使用静态变量控制图片显示。,Visual Basic程序设计教程,60,10.7.2影像框-图片轮流显示 Private Sub Form_Load() 初始化属性 Timer1.Interval = 1000 Image1.Stretch = True: Image2.Stretch = True Image1.ToolTip

47、Text = 请单击 当鼠标移动到Image1上,显示文字End SubPrivate Sub Image1_Click() 复制 Image2.Picture = Image1.PictureEnd SubPrivate Sub Timer1_Timer() Static N As Integer Image1.Picture = LoadPicture(D:Wen & N & .jpg) N = (N + 1) Mod 4End Sub 文件名使用了0.jpg3.jpg，故可使用字符串表达式： D:Wen & N & .jpg,Visual Basic程序设计教程,61,10.7.3 图形

48、复制 PaintPicture方法，可以实现移动图片、复制图片。 格式：Object.PaintPicture picture,x1,y1,width1,height1,x2, y2, width2,height2 对picture图片中以(x2,y2)为左上角，width2, height2为宽度和高度的图形区域，复制到Object 以(x1,y1)为左上角，宽度和高度为width1,heigh t1的区域中 picture为必需项，表示图形对象源 由Form或PictureBox的Picture属性所决定。,Visual Basic程序设计教程,62,缺省x2,y2, width2,hei

49、ght2则表示将整个picture参数指定的图片，复制到Object中。 例如： （ Pic1 和Pic12为两个图片框）Pic1.PaintPicture Pic2.Picture, 0, 0, w1, h1, x2, y2, w2, h2其中(0,0)和(x2, y2)分别使用Pic1和Pic2的坐标系统。,Visual Basic程序设计教程,63,【例10-10】图形复制。有两张图片放入影像框中，单击任何一个，复制到图片框中央。 控件： 建立有2个元素的Image控件数组Img1 (0)和Img1(1) 建立1个图片框控件PicShow 设置各对象（名称）属性。设置2个Image控件数

50、组元素的Stretch属性为True。,Visual Basic程序设计教程,64,Private Sub Form_Load() Img1(0).Picture = LoadPicture(e:fengtempAPPWIZ.ICO) Img1(1).Picture = LoadPicture(e:fengtempface.ico) PicShow.FontSize = 15End SubPrivate Sub Img1_Click(Index As Integer) Dim t As String t = 左右 PicShow.Cls PicShow.Print 你点中 & Mid(t, I

51、ndex + 1, 1) & 边的图片： PicShow.PaintPicture Img1(Index).Picture, _ PicShow.Width/2 - Img1(Index).Width/2, _ PicShow.Height/2 - Img1(Index).Height/2, _ Img1(Index).Width, Img1(Index).Height 复制到中央End Sub,Visual Basic程序设计教程,65,10.7.4 色彩 使用BackColor、ForeColor、BorderColor、FillColor属性可设置颜色 颜色的设置可以使用颜色常量，也以使

52、用QBColor函数或RGB函数。,Visual Basic程序设计教程,66,与颜色有关的其它方法： Point方法可以获得某点颜色值，基本格式为： 对象名. Point(x, y) 该方法将返回一个长整型的RGB颜色值。 例如：PointColor = Point (500, 500) 如果要对某个长整型颜色值A，区分其红、绿和蓝3种颜色成分，可以使用以下表达式： Red = A Mod 256 : Green = A 256 Mod 256 Blue = A 256 256,Visual Basic程序设计教程,67,10.8 程序举例,10.8.1 房子和太阳 【例10-11】使用绘线

53、、绘圆、绘点的方法，画出如图所示的图形（不含数字）。 因为太阳周围要画出多条直 线作为光，可将坐标系原点 移到太阳的中心点上，循环 完成光芒绘制。 其它直线在确定坐标点后，一条一条地画,Visual Basic程序设计教程,68,Private Sub Command1_Click()Const PI = 3.1415926Dim i As SingleCls : Scale (-110, 30)-(30, -80) 更改坐标系FillStyle = 0: FillColor = vbRed 画太阳Circle (0, 0), 10, vbRedFor i = 0 To 2 * PI Step

54、 PI / 10 画光芒 Line (15 * Cos(i), 15 * Sin(i)-(25 * Cos(i), 25 * Sin(i)Next iFillStyle = 1 开始画房子（连续画8条直线）Line (-80, -20)-(-30, -20) 先画房顶最上面一水平线Line -(-20, -30): Line -(-70, -30): Line -(-80, -20) 前次终点作本次起点Line -(-90, -30): Line -(-88, -30) 至此，房顶画完Line -(-88, -65): Line -(-70, -70) 画侧面的墙Line (-70, -30)

55、-(-22, -70), , B 用矩形画正面的墙Line (-60, -45)-(-50, -60), , B: Line (-55, -45)-(-55, -60) 画窗Line (-40, -45)-(-30, -70), , B 画门DrawWidth = 3 : PSet (-38, -55) 画门把手DrawWidth = 1 恢复缺省值End SubPrivate Sub Form_Load()AutoRedraw = TrueEnd Sub,Visual Basic程序设计教程,69,10.8.2 制作拼图 【例10-12】某单位职工，2029、3039、4049、5059各年

56、龄段人数分别为5人、7人、10人、8人，退休职工15人。制作表示各年龄段人员分布情况的饼图。 因各段加起来为100%，即为1 个圆，角度即为2,Visual Basic程序设计教程,70,各段人数所占比例*2就是扇形的弧度 根据弧度即可制作各实心扇形构成饼图。 同时把相应的颜色用画矩形的方法显示在图片框中，并在边上标出人数。,Visual Basic程序设计教程,71,Private Sub Command1_Click()Const PI = 3.1415926Dim Man, Alpha() As Single, Sum As Integer, i As IntegerDim A As S

57、ingle, B As Single, N As Integer a起始角，b扇形终止角Man = Array(5, 7, 10, 8, 15) 包含各段人数的数组元素初始化Sum = 0: N = UBound(Man) + 1 n为元素个数For i = 0 To N 1: Sum = Sum + Man(i) : Next i 求总人数ReDim Alpha(N - 1) 存放各人数段对应扇形的弧度A = 0.00001 因负0不能被表示，所以用0的近似值FillStyle = 0: Picture1.FillStyle = 0 窗体和图片框都绘制实心图形For i = 0 To N -

58、 1 绘制扇形、图片框中图例及输出人数 Alpha(i) = 2 * PI * Man(i) / Sum 计算扇形对应的弧度 FillColor = QBColor(2 * i): Picture1.FillColor = QBColor(2 * i) B = A + Alpha(i) 计算终止角的弧度 If B 2 * PI Then B = B - 2 * PI 弧度不能大于2 Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleWidth / 4, , -A, -B 绘扇形 Picture1.Line (0, i * Picture1.ScaleHeight / N)- _(Picture1.ScaleWidth / 2, (i + 1) * Picture1.ScaleHeight / N), ,