第 5章 图形控件和循环程序设计
2009-11-10
认识图片框和循环程序设计
,例 5.1正弦曲线。 设计一个窗体，在窗体
上添加一个图片框和四个命令按钮。运行程序
时，单击绘制曲线、绘制坐标、输出标记，可
分别在图片框中绘制正弦曲线、坐标系和标记。
第 5章 图形控件和循环程序设计
2009-11-10
绘图方法
坐标系
在 VB中, 窗体和图片框都有确省的坐标系 。 确省的
坐标系规定坐标的原点在窗体和图片框可用空间的
左上角, 向下为 Y方向, 向右为 X方向, 单位是
Twip。 1440个 Twip为 1英寸 。 使用这样的坐标系绘
图非常困难, 用户可用 Scale方法设置自己的坐标
系 。
Scale方法的一般格式：
[对象名,] Scale(x1,y1)-(x2,y2)
第 5章 图形控件和循环程序设计
2009-11-10
PSet方法画点
用 PSet方法可以在窗体或图片框上绘制一个点 。
PSet方法的一般格式：
[对象名,] PSet(x,y)[,颜色 ]
第 5章 图形控件和循环程序设计
2009-11-10
Line方法
用 Line方法可以在窗体或图片框上绘制一条直线或绘制一个
矩形 。
Line方法的一般格式：
[对象名,] Line [ (x1,y1)]- (x2,y2) [,颜色 ][,B[F]]
其中, (x1,y1)为始点坐标； (x2,y2)为终点坐标；颜色可以使
用 RGB函数, 规定画线或画矩形的颜色 。
关键字 B表示画矩形或填充矩形。当 FillStyle属性为 1时，表
示画空心矩形。 FillStyle属性可取值 0到 7，除 FillStyle属性为 1
外，都为画填充矩形，此时由 FillStyle属性决定填充图案，
由 FillColor属性决定填充颜色。
第 5章 图形控件和循环程序设计
2009-11-10
Circle方法
用 Line方法可以在窗体或图片框上绘制一条直线或绘制一个
矩形 。
用 Circle方法可以在窗体或图片框上绘制圆, 圆弧, 扇形或椭
圆 。
Circle方法的一般格式是：
[对象名, ]Circle (x,y),半径 [,颜色 ][,起始角 ] [,终止角 ] [,长
短轴比率 ]
其中,(x,y)为圆心坐标；颜色可以使用 RGB函数；起始角和
终止角应使用弧度，值在 0~2π 时绘制圆弧，取负值时绘制扇
形；使用长短轴比率可用绘制椭圆。
第 5章 图形控件和循环程序设计
2009-11-10
循环结构
循环结构用来描述有规律地重复执行某一程序段。 VB 6.0支持
循环结构的语句有 for,和 do等语句，使用循环控制结构编
程可以简化程序，提高效率。
For…Next结构
For… Next结构在程序中可以实现固定次数的循环 。
For… Next结构的格式如下：
For 循环变量 = 初值 To 终值 [Step 步长 ]
循环体
[Exit For]
Next 循环变量
第 5章 图形控件和循环程序设计
2009-11-10
例 5.2连乘之积。 设计一个窗体，在窗体上添加两个命令按
钮。运行程序时，单击, 计算,,程序将弹出输入对话框，
要求输入数据，输入 5个数之后，将在窗体输出 5个数之积。
第 5章 图形控件和循环程序设计
2009-11-10
Do…Loop 结构
Do While… Loop形式
Do While 逻辑表达式
循环体
[Exit Do]
Loop
Do Until… Loop形式
Do Until 逻辑表达式
循环体
[Exit Do]
Loop
第 5章 图形控件和循环程序设计
2009-11-10
Do … Loop While形式
Do
循环体
[Exit Do]
Loop While 逻辑表达式
Do … Loop Until形式
Do
循环体
[Exit Do]
Loop Until 逻辑表达式
第 5章 图形控件和循环程序设计
2009-11-10
循环的嵌套
在一个循环结构的循环体内含有另一个循环结构, 这就
形成了嵌套循环, 又叫做多重循环 。 判断正误
Do While b1
For j=k1 To k2
……
Loop
Next j
Do
For j=k1 To k2
……
Next j
Loop While b1
Do
For j=k1 To k2
……
Next j
Loop While b1
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框
图片框和图像框都能加载图像文件 。 图片框功能更强,
它不仅可以显示图像, 还可以用绘图方法绘制图形,
用 Print方法显示文本, 图片框也能作为其他控件的
容器 。
可 加 载 到 这 两 个 控 件 上 的 图 像 文 件 扩 展 名
是,.Bmp,,Dib,Ico,.Cur,,Emf,.Wmf或, Gif。
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框的属性
（ 1） Picture属性
设置图片框和图像框要显示的图形 。 可在设计阶段加载图
像文件, 也可以在程序运行时加载图像文件 。
（ 2） AutoSize属性
设置图片框是否能自动改变大小以适应图形，该属性是逻
辑型。当取值 True时，图片框随着图形实际大小自动调整
尺寸以适应图形的尺寸；若取值 False时,图片框不能改变大
小，此时若图片框小于图形尺寸，图形被裁剪。图片框的
AutoSize属性缺省为 False。
第 5章 图形控件和循环程序设计
2009-11-10
（ 3） Stretch属性
设置能否自动改变图形的大小以适应图像框, 该属性是逻
辑型 。 若取值 True时,图像框不能改变大小, 此时图形被压
缩或拉伸以适应图像框；当取值 False时, 图像框随着图形
实际大小自动调整尺寸以适应图形的尺寸 。 图像框的 Stretch
属性缺省为 False。
（ 4） 名称和其他属性
第 5章 图形控件和循环程序设计
2009-11-10
在代码中加载图形要使用 LoadPicture函数 。 把 LoadPicture
函数值赋给图片框或图像框的 Picture属性, 便可实现在图
片框或图像框中显示图形 。
一般使用的格式为：
[对象名,]Picture=LoadPicture（ "图形文件名 "）
第 5章 图形控件和循环程序设计
2009-11-10
例 随手画 。
'本程序演示 MouseMove事件过程的用法，在 Picture1中随手画
'在 Picture1中压下鼠标左键并拖动鼠标可绘制图形
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框事件和方法
图片框和图像框都支持 Click和 DblClick事件, 但很少对它
们编程 。 另 外 图 片 框 和窗 体 一 样 支 持 MouseMove、
MouseDown,MouseUp等事件 。
图片框常用方法在本章第 2节介绍了 PSet方法, Line方法,
Circle方法 。 这里主要介绍 Cls方法和 Print方法
Cls方法用于清除图片框中显示的文字信息或用绘图方法绘
制的图形 。 Print方法用于在图片框中显示的文字信息 。 和
在窗体使用这两个方法完全相同 。
Cls方法的一般格式是：
[对象名, ]Cls
第 5章 图形控件和循环程序设计
2009-11-10
其他图形控件
在 VB除图像框和图片框控件是专门处理图形的控件外, 还有画
线控件和形状控件, 使用这两个控件可以非常方便地构造几何
图形, 一般不需要编程 。
1,Line画线控件
Line控件可以用来画线 。 画线操作的步骤如下：
2,Shape形状控件
Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形和圆
角正方形。通过 Shape属性可确定所需要的几何形状。 Shape控
件的 Shape属性取值 0到 5，其形状分别对应矩形、正方形、椭圆、
圆、圆角矩形和圆角正方形 。
第 5章 图形控件和循环程序设计
2009-11-10
综合运用
例 5.5 绘制方程线。 设计一个窗体，在窗体上添加一个图
片框、两个框架、五个标签框、五个文本框和四个按钮。
运行程序时，单击, 绘制曲线, 和, 绘制直线, 根据函数
中给定的数值在图片框内绘制函数的图形。单击, 输出坐
标, 和, 结束程序, 也能完成相应的功能。
例 5.6 水仙花数。 寻找 [100,999]之间的所有水仙花数，所
谓水仙花数指一个三位数，其中各位数字的立方和等于该
数本身。在窗体上添加一个标签框、一个列表框和两个命
令按钮。用户界面请参见图 5.21。
第 5章 图形控件和循环程序设计
2009-11-10
例 5.7整钱化成毛票。 把一圆以上的钞票换成一角，两角，五
角的毛票（每种至少一张），求每种换法各种毛票的张数。
在窗体上添加一个列表框和两个命令按钮。
例 5.8 最大公约数和最小公倍数。 设计一个窗体，在窗体上添
加一个图片框和两个命令按钮。运行程序时，单击, 开始,
按钮,弹出输入对话框，要求输入两个数，程序将计算两个自
然数 M和 N的最大公约数和最小公倍数。
2009-11-10
认识图片框和循环程序设计
,例 5.1正弦曲线。 设计一个窗体，在窗体
上添加一个图片框和四个命令按钮。运行程序
时，单击绘制曲线、绘制坐标、输出标记，可
分别在图片框中绘制正弦曲线、坐标系和标记。
第 5章 图形控件和循环程序设计
2009-11-10
绘图方法
坐标系
在 VB中, 窗体和图片框都有确省的坐标系 。 确省的
坐标系规定坐标的原点在窗体和图片框可用空间的
左上角, 向下为 Y方向, 向右为 X方向, 单位是
Twip。 1440个 Twip为 1英寸 。 使用这样的坐标系绘
图非常困难, 用户可用 Scale方法设置自己的坐标
系 。
Scale方法的一般格式：
[对象名,] Scale(x1,y1)-(x2,y2)
第 5章 图形控件和循环程序设计
2009-11-10
PSet方法画点
用 PSet方法可以在窗体或图片框上绘制一个点 。
PSet方法的一般格式：
[对象名,] PSet(x,y)[,颜色 ]
第 5章 图形控件和循环程序设计
2009-11-10
Line方法
用 Line方法可以在窗体或图片框上绘制一条直线或绘制一个
矩形 。
Line方法的一般格式：
[对象名,] Line [ (x1,y1)]- (x2,y2) [,颜色 ][,B[F]]
其中, (x1,y1)为始点坐标； (x2,y2)为终点坐标；颜色可以使
用 RGB函数, 规定画线或画矩形的颜色 。
关键字 B表示画矩形或填充矩形。当 FillStyle属性为 1时，表
示画空心矩形。 FillStyle属性可取值 0到 7，除 FillStyle属性为 1
外，都为画填充矩形，此时由 FillStyle属性决定填充图案，
由 FillColor属性决定填充颜色。
第 5章 图形控件和循环程序设计
2009-11-10
Circle方法
用 Line方法可以在窗体或图片框上绘制一条直线或绘制一个
矩形 。
用 Circle方法可以在窗体或图片框上绘制圆, 圆弧, 扇形或椭
圆 。
Circle方法的一般格式是：
[对象名, ]Circle (x,y),半径 [,颜色 ][,起始角 ] [,终止角 ] [,长
短轴比率 ]
其中,(x,y)为圆心坐标；颜色可以使用 RGB函数；起始角和
终止角应使用弧度，值在 0~2π 时绘制圆弧，取负值时绘制扇
形；使用长短轴比率可用绘制椭圆。
第 5章 图形控件和循环程序设计
2009-11-10
循环结构
循环结构用来描述有规律地重复执行某一程序段。 VB 6.0支持
循环结构的语句有 for,和 do等语句，使用循环控制结构编
程可以简化程序，提高效率。
For…Next结构
For… Next结构在程序中可以实现固定次数的循环 。
For… Next结构的格式如下：
For 循环变量 = 初值 To 终值 [Step 步长 ]
循环体
[Exit For]
Next 循环变量
第 5章 图形控件和循环程序设计
2009-11-10
例 5.2连乘之积。 设计一个窗体，在窗体上添加两个命令按
钮。运行程序时，单击, 计算,,程序将弹出输入对话框，
要求输入数据，输入 5个数之后，将在窗体输出 5个数之积。
第 5章 图形控件和循环程序设计
2009-11-10
Do…Loop 结构
Do While… Loop形式
Do While 逻辑表达式
循环体
[Exit Do]
Loop
Do Until… Loop形式
Do Until 逻辑表达式
循环体
[Exit Do]
Loop
第 5章 图形控件和循环程序设计
2009-11-10
Do … Loop While形式
Do
循环体
[Exit Do]
Loop While 逻辑表达式
Do … Loop Until形式
Do
循环体
[Exit Do]
Loop Until 逻辑表达式
第 5章 图形控件和循环程序设计
2009-11-10
循环的嵌套
在一个循环结构的循环体内含有另一个循环结构, 这就
形成了嵌套循环, 又叫做多重循环 。 判断正误
Do While b1
For j=k1 To k2
……
Loop
Next j
Do
For j=k1 To k2
……
Next j
Loop While b1
Do
For j=k1 To k2
……
Next j
Loop While b1
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框
图片框和图像框都能加载图像文件 。 图片框功能更强,
它不仅可以显示图像, 还可以用绘图方法绘制图形,
用 Print方法显示文本, 图片框也能作为其他控件的
容器 。
可 加 载 到 这 两 个 控 件 上 的 图 像 文 件 扩 展 名
是,.Bmp,,Dib,Ico,.Cur,,Emf,.Wmf或, Gif。
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框的属性
（ 1） Picture属性
设置图片框和图像框要显示的图形 。 可在设计阶段加载图
像文件, 也可以在程序运行时加载图像文件 。
（ 2） AutoSize属性
设置图片框是否能自动改变大小以适应图形，该属性是逻
辑型。当取值 True时，图片框随着图形实际大小自动调整
尺寸以适应图形的尺寸；若取值 False时,图片框不能改变大
小，此时若图片框小于图形尺寸，图形被裁剪。图片框的
AutoSize属性缺省为 False。
第 5章 图形控件和循环程序设计
2009-11-10
（ 3） Stretch属性
设置能否自动改变图形的大小以适应图像框, 该属性是逻
辑型 。 若取值 True时,图像框不能改变大小, 此时图形被压
缩或拉伸以适应图像框；当取值 False时, 图像框随着图形
实际大小自动调整尺寸以适应图形的尺寸 。 图像框的 Stretch
属性缺省为 False。
（ 4） 名称和其他属性
第 5章 图形控件和循环程序设计
2009-11-10
在代码中加载图形要使用 LoadPicture函数 。 把 LoadPicture
函数值赋给图片框或图像框的 Picture属性, 便可实现在图
片框或图像框中显示图形 。
一般使用的格式为：
[对象名,]Picture=LoadPicture（ "图形文件名 "）
第 5章 图形控件和循环程序设计
2009-11-10
例 随手画 。
'本程序演示 MouseMove事件过程的用法，在 Picture1中随手画
'在 Picture1中压下鼠标左键并拖动鼠标可绘制图形
第 5章 图形控件和循环程序设计
2009-11-10
图片框和图像框事件和方法
图片框和图像框都支持 Click和 DblClick事件, 但很少对它
们编程 。 另 外 图 片 框 和窗 体 一 样 支 持 MouseMove、
MouseDown,MouseUp等事件 。
图片框常用方法在本章第 2节介绍了 PSet方法, Line方法,
Circle方法 。 这里主要介绍 Cls方法和 Print方法
Cls方法用于清除图片框中显示的文字信息或用绘图方法绘
制的图形 。 Print方法用于在图片框中显示的文字信息 。 和
在窗体使用这两个方法完全相同 。
Cls方法的一般格式是：
[对象名, ]Cls
第 5章 图形控件和循环程序设计
2009-11-10
其他图形控件
在 VB除图像框和图片框控件是专门处理图形的控件外, 还有画
线控件和形状控件, 使用这两个控件可以非常方便地构造几何
图形, 一般不需要编程 。
1,Line画线控件
Line控件可以用来画线 。 画线操作的步骤如下：
2,Shape形状控件
Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形和圆
角正方形。通过 Shape属性可确定所需要的几何形状。 Shape控
件的 Shape属性取值 0到 5，其形状分别对应矩形、正方形、椭圆、
圆、圆角矩形和圆角正方形 。
第 5章 图形控件和循环程序设计
2009-11-10
综合运用
例 5.5 绘制方程线。 设计一个窗体，在窗体上添加一个图
片框、两个框架、五个标签框、五个文本框和四个按钮。
运行程序时，单击, 绘制曲线, 和, 绘制直线, 根据函数
中给定的数值在图片框内绘制函数的图形。单击, 输出坐
标, 和, 结束程序, 也能完成相应的功能。
例 5.6 水仙花数。 寻找 [100,999]之间的所有水仙花数，所
谓水仙花数指一个三位数，其中各位数字的立方和等于该
数本身。在窗体上添加一个标签框、一个列表框和两个命
令按钮。用户界面请参见图 5.21。
第 5章 图形控件和循环程序设计
2009-11-10
例 5.7整钱化成毛票。 把一圆以上的钞票换成一角，两角，五
角的毛票（每种至少一张），求每种换法各种毛票的张数。
在窗体上添加一个列表框和两个命令按钮。
例 5.8 最大公约数和最小公倍数。 设计一个窗体，在窗体上添
加一个图片框和两个命令按钮。运行程序时，单击, 开始,
按钮,弹出输入对话框，要求输入两个数，程序将计算两个自
然数 M和 N的最大公约数和最小公倍数。
