第八章图形操作.doc

饶平县贡天职业技术学校 张良环

课题：图形框与图像框
一、教学目的：
1、掌握图形框与图像框的常用属性、方法及事件
2、理解图形框与图像框的异同点
二、教学重难点：
重点：图形框与图像框的常用属性、方法及事件
难点：1、图形框与图像框的常用属性、方法及事件
2、比较图形框与图像框的异同点
三、教学方法
任务驱动法、透思教学法等方法
四、教学工具
多媒体教室（计算机与投影）、多媒体课件
五、教学过程
（一）新课引入
Visual Basic 为编程人员提供了强大的绘图功能支持，在本章，我们将学会基本的绘图方法。
在 VB 中，主要通过两种办法进行图像绘制：一种是利用 ActiveX 控件，如用图形框显示图片；另外一种是通过使用 VB 语言本身的函数和方法，通过在屏幕上绘制点、线和图形来制作。
（一） 新课讲授
1、图形框控件的主要属性：
图形框控件（PictureBox）可以用来显示位图、JPGE、GIF、图标等格式的图片，在工具箱面板中，图形框控件的图标如图所示：
1、Name 属性：
命名规则为：PicX ，如 PicMove 、PicShow ，等等。
2、Picture（图片）属性：
本属性用来返回或设置控件中要显示的图片，可以通过属性窗口进行设置。如果要在程序运行过程中载入图片，常常使用 LoadPicture 函数，其语法规则为：
对象.Picture = LoadPicture("图形文件的路径与名字")
如：PicMove.Picture = Loadpicture("c:\Picts\pen.bmp")
3、AutoSize（自动显示）属性：
本属性决定了图形框控件是否自动改变大小以显示图片的全部内容。当值为 True ，图象可以自动改变大小以显示全部内容；当值为 False ，则不具备图象的自我调节功能。
2、图形框控件的主要事件：
它可以接收 Click（单击）事件与 DblClick（双击）事件，还可以在图片框中使用 Cls（清屏）、Print 方法。在实际使用过程中，它多是作为一种图形容器出现，所以常常是跟其他控件搭配使用的，如点击一个按钮，图形框自动装入图片，等等。
3、图像框控件（Image）的主要属性：
跟图形框一样，图像框控件也具有诸如 Name、Picture 等属性，以及 Loadpicture 的方法，但在图像自适应问题上有所不同。
PictureBox 用 AutoSize 属性控制图形的尺寸自动适应，而 Image 控件则用 Stretch 属性对图片进行大小调整。
4、图像框与图形框控件的区别：
（1）、图形框是“容器”控件，可以作为父控件，而图像框不能作为父控件，其他控件不能作为图像框的子控件。
图形框作为一个“容器”，可以把其他控件放在其内作为它的“子控件”，当图形发生位移，其内的子控件也会跟着一起移动。

图三
（2）、图形框可以通过 Print 方法显示与接收文本，而图像框不能。
（3）、图像框比图形框占用内存少，显示速度更快一些，因此，在图形框与图像框都能满足设计需要时，应该优先考虑使用图像框。
5、【举例】
（1）、创建应用程序，利用图片框浏览大幅面图形。在窗体放置两个图片框，一个垂直滚动条和一个水平滚动条，如图所示。在第二个图片框中装入一个大图形，利用两个滚动条改变第二个图片框在第一个图片框中的位置，实现对整幅图形的浏览。

（2）创建一个测试图像控件特性的应用程序，界面如图所示：单击窗体上的“放大”、“缩小”按钮，能使图像框中的图形放大或缩小。

（二） 小结与作业
1、 图形框与图像框的异同点。
2、 图片框内可使PictureBox根据图片调整大小的属性为 ；若使Image控件可根据图片调整大小，该属性值为 ，用 函数可在图片框或图像框中加载图形。
3、 使用Move方法把图片框Picture1的左上角移动到距窗体顶部100twip，距窗体左边框200twip，同时图片框高度和宽度都缩小50%，具体语句形式为 。

课题：直线与形状控件
一、教学目的：
1、掌握直线与形状控件的基本属性、事件及方法
2、利用直线或形状控件制作简单的动画
二、教学重难点：
重点：直线与形状控件的基本属性、事件及方法
难点：1、直线与形状控件的基本属性、事件及方法
2、利用直线或形状控件制作简单的动画
三、教学方法
任务驱动法、透思教学法等方法
四、教学工具
多媒体教室（计算机与投影）、多媒体课件
五、教学过程
（一） 新课引入
利用直线与形状控件，可以使窗体上显示的内容更为丰富，如在窗体上增加简单的线条和实心图形，等等。
（二）新课讲授
利用直线与形状控件，可以使窗体上显示的内容更为丰富，如在窗体上增加简单的线条和实心图形，等等。
利用直线控件，可以建立简单的直线，通过修改其属性，还可以改变直线的粗细、色彩，以及线型。
通过设置形状的属性，用户可以画出圆、椭圆，以及圆角矩形，同时还能设置形状的色彩与填充图案。
主要属性：
除了其他通用属性外，直线与形状控件还具有一些比较独特的属性。
1、BorderStyle（边框类型），实用于直线与形状。
TransParent：透明，边框不可见。
Solid：实心边框，最常见。
Dash：虚线边框。
Dot：点线边框。
Dash-Dot：点划线边框。
Dash-Dot-Dot：双点划线边框。
Inside Solid：内实线边框。
2、FillStyle（填充类型），实用于形状。
Solid：实心填充。
TransParent：透明填充。
Horizontal Line：以水平线进行填充。
Vertical Line：以垂直线进行填充。
Upward Diagonal：向上对角线填充。
Downward Diagonal：向下对角线填充。
Cross：交叉线填充。
Diagonal Cross：对角交叉线填充。
3、Shape（形状），实用于形状。
Rectangle：矩形。
Square：正方形。
Oval：椭圆形。
Circle：圆形。
Rounded Rectangle：圆角矩形。
Rounded Square：圆角正方形。
4、【举例】
利用循环语句编写程序：在屏幕上同时显示不同的形状和填充图案，如图所示。
（1）新建工程，设计界面。
在窗体中添加一个形状控件Shape1，然后把其Index值设置为0，目的是使系统知道这是一个控件数组，而它只是其中一个元素。
（2）添加代码
双击窗体任一空白处进入代码编辑窗口，
在窗体的Private Sub Form_Activate()事件中添加以下代码：
Dim i As Integer
Print
Print "0 1 2 3 4 5"
Shape1(0).Shape = 0 '设置下标为0的形状控件数组元素的形状样式
Shape1 (0).FillStyle = 2 '设置下标为0的形状控件数组元素的填充样式（图案）
For i = 1 To 5
Load Shape1 (i) '加载形状控件数组元素
Shape1 (i).Left = Shape1 (i - 1).Left + 500 '设置控件数组元素的Left值
Shape1 (i).Shape = i '设置控件数组元素的形状样式
Shape1 (i).FillStyle = i + 2 '设置控件数组元素的填充样式（图案）
Shape1 (i).Visible = True '设置控件数组元素可见
Next i
(3)运行程序，无误后保存程序。
【举例】
在窗体上使用直线控件画7条线(其中第1条线BorderStyle=0中透明，显示不出来),编写一个命令按钮的单击事件过程，改变它们的颜色及类型。
（三）小结与作业
1、用Shape属性显示形状控件的6种形状。
2、将形状控件显示不同的形状、设置不同的颜色，填充不同的图案。
3、制作小动画：小球在窗体上来回左右移动，当碰到窗体边框时会弹回。
需要的控件有：形状控件及时钟控件
参考代码：
Dim s, n As Integer
Private Sub Form_Load()
s = 50
n = 100
End Sub

Private Sub Timer1_Timer()
If Shape1.Left >= Form1.Width - Shape1.Width Or Shape1.Left <= 0 Then
s = -s
End If
Shape1.Left = Shape1.Left + s
If Shape1.Top >= Form1.Height - Shape1.Height Or Shape1.Top <= 0 Then
n = -n
End If
Shape1.Top = Shape1.Top + n
End Sub

课题：作图方法
一、教学目的：
1、掌握VB中的作图方法Pset、Line、Circle
2、利用作图方法进行动画设计
二、教学重难点：
重点：VB中的作图方法Pset、Line、Circle
难点：利用作图方法进行动画设计
三、教学方法
任务驱动法、透思教学法等方法
四、教学工具
多媒体教室（计算机与投影）、多媒体课件
五、教学过程
（一）新课引入
除了前面谈到的用控件显示与绘制图形的方法外，VB 还提供了一组庞大的方法用来绘制点、线、面，以及设置前景、背景色等各种方法。
（二）新课讲授
1、设置当前绘图点：
在 VB 中，可以通过设置窗体或图形框的 CurrentX 与 CurrentY 属性来设置当前绘图点。CurrentX 与 CurrentY 决定了绘制或显示的起始坐标，在设计时，这两个属性不可用。
2、绘制点、线、面的方法：
（1）、点的绘制法：
在指定对象（如窗体、图形框）上的指定位置处绘制点，还可以为点指定颜色，语法如下：
对象名.Pset (X,Y)，[Color]
X ，Y 分别为点的水平与垂直坐标，Color 为点的颜色，是可选项。
（2）、直线的绘制法：
在对象上绘制直线，语法如下：
对象名.Line (X1,y1) - (X2,Y2), [Color]
(X1,Y1) 是直线的起点，(X2,Y2)是直线的终点，Color 为可选项。
如图一：

图一
图形框的代码是：
Private Sub Picture1_Click()
Picture1.Line (350, 1020)-(2050, 1020)
End Sub
（3）、绘制矩形：
用 Line 方法还可以绘制矩形，语法如下：
对象名.Line (X1,Y1) - (X2,Y2), [Color], B ,[F]
其中，(X1,Y1) 是矩形的左上角座标，(X2,Y2)是矩形右下角座标，Color 为矩形边框的颜色，使用参数 B 而不用 F ，那么矩形用当前的填充色（FillColor）与填充方式（FillStyle）对矩形进行填充；如果使用了参数 F ，那么矩形以边框的颜色进行填充。如图二：

图二
特别注意，用 Line 画矩形框，如果不用其他参数，那么 B 与坐标(X2,Y2)之间应该有两个逗点，一个是紧跟坐标2，一个表示 Color 省略了，如：Picture1.Line (500,500) - (1000,1000),,B
（4）、绘制圆、椭圆、弧：
用 Circle 方法可以绘制圆、椭圆与弧，语法如下：
对象名.Circle (X,Y), Radius, [Color,start,end,aspect]
其中，(X,Y)是圆、椭圆或弧的圆心坐标，Radius 是半径，这两个参数是必须项；Color 是圆的轮廓色，Start 与 End 是弧的起点与终点位置。其范围是 -2 —— 2Pi ；Aspect 是圆的纵横尺寸比，默认值是 1 即圆，如图三：

图三
3、颜色、前景与背景色的设置：
（1）、颜色函数 RGB()
在前面关于卷动条控件（综合示例五）的讲解中，我们讲述了色彩的设置问题，而这正是 RGB 颜色函数的原理所在。色彩设置的方法如下：
RGB(Red,Green,Blue)
不要忘了，Red、Green、Blue 每种色彩各有 0——255 种成份，三种色彩不同参数的搭配，就产生了丰富多采的现实世界。
（2）、前景色的设置：
通过对 ForeColor（前景色属性）的设置，可以返回或设置对象的前景色。
（3）、背景色的设置：
对 BackColor 属性进行设置，就可以返回或设置对象的背景色。
（4）、图形的清除：
用 Cls 方法可以清除窗体或图形框在程序运行中绘制的图形，语法如下：
对象名.Cls
【举例】
v用PSet方法画阿基米德螺线。
v用Circle方法画由圆环构成的艺术图案。
›构造图案的算法为：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1画n个圆。圆的半径r为窗体高度的四分之一，圆心在窗体的中心，在圆周上等份40份。第二个圆半径r1为第一个圆的半径r的80%。
（三）小结与作业

- 10 -
Visual Basic 6.0程序设计
教案