《VB程序设计基础》第6章 图形控件和图形方
合集下载
VB程序设计 第六章
6.1 图形控件
6.1.3 图形方法
使用绘图方法，首先确定所画图形的位置，这就需要先确定坐标系。 当新建一个窗体时，新窗体采用缺省坐标系，坐标原点在窗体左上角， Height＝3600，Width＝4800， Scale Height＝3195，Scale Width＝4680。 其中：Scale Height 和Scale Width为窗体的实际可用的高度和宽度。 自定义坐标系的方法： 对象名].Scale[(xLeft yTop)－(xRight， ].Scale[(xLeft， [对象名].Scale[(xLeft，yTop)－(xRight，yBottom)] 其中：(xLeft，yTop)、(xRight，yBottom)为对象左上角和右下角坐标
6.1 图形控件
6.1.1 图片框和图像框
2、图像框 (Image) 与图片框的区别： 与图片框的区别： ⑴图片框是容器控件，而图像框不能作为容器； ⑵图片框可以利用Print方法显示文本，图像框则不能； ⑶图像框比图片框占用内存少，显示速度快，故当两者都满足设计者 的要求时，优先考虑图像框； ⑷图片框用AutoSize AutoSize属性控制图片框的尺寸自动适应图片的大小，图 AutoSize 像框用Stretch Stretch属性对图片进行大小调整； Stretch
BorderStyle属性值 0 1 2 3 4 5 6 形状 透明线 实线(默认值orderWidth＝1时有效) ＝ 点划线(BorderWidth＝1时有效) ＝ 双点划线(BorderWidth＝1时有效) ＝ 内收实线，边框的外边界就是形状的外边缘
6.1 图形控件
形状(Shape)和直线(Line) (Shape)和直线 6.1.2 形状(Shape)和直线(Line)
VB程序设计基础全集
1.1.2 Visual Basic的特点
4．提供了易学易用的应用程序集成开发环境 在Visual Basic的集成开发环境中，用户可设计界面、编写代 码、调试程序，直至将应用程序编译成可执行文件在 Windows上 运行，使用户在友好的开发环境中工作。
5．支持多种数据库系统的访问
利用 Visual Basic 的数据控件，可访问 Microsoft Access、 Dbase、Microsoft FoxPro、Paradox 等 ， 也 可 以 访 问 Microsoft Excel、Lotusl 1-2-3等多种电子表格。
录
Visual Basic 6.0程序设计概述 程序设计基础 结构化程序设计与数组 函数与过程 常用控件 图形控件和图形方法 对话框和菜单程序设计 文 件
第9章 数据库与数据访问技术
第1章 Visual Basic 6.0程序设 计概述
1.1 1.2 1.3 1.4 1.5 1.6 1.7
主
编 ：陈庆章
前 言
Visual Basic是目前进行Windows应用程序设计的最 佳工具之一，也是最佳的程序设计入门语言，这一看法 已经得到普遍认可。 非计算机专业计算机基础教学的 3 个不同层次，分 别解决的是“操作技能”、“思维训练”、“综合应用 能力”问题。学习一门程序设计语言，主要目的是要提 高读者分析归纳、解决问题的能力，在思维训练方面受 益，并使得读者通过更系统、深入的学习后开发实用程 序成为可能。 因此，本书在内容上精选了Visual Basic 6.0中最基 础、最常用并实用的部分；在编排和风格上力图体现循 序渐进、深入浅出的特点；以样本程序示例教学，阶段 性构筑读者的成就感，使得艰苦的程序设计工作升华为 一种艺术创作，提供了一条通往程序设计高手的捷径。
Visual Basic 程序设计基础：第六章 图形控件和图形方法
定一个坐标系
0
X
ScaleLeft= -30 ScaleTop= -50 ScaleWidth=100 ScaleHeight=110
Y
(70,60)
0
X
ScaleLeft=0 ScaleTop=0 ScaleWidth=50 ScaleHeight=-60
(50,-60)
16
例、通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight
29
6.3.2 线宽、线型与填充模式
1．设置线宽——DrawWidth 属性
窗体、图形框或打印机的DrawWidth属性给出这些对象上 所画线的宽度或点的大小。例如：
Form1.DrawWidth = 2
（宽度为2个象素）
缺省值为 1，即一个像素宽。
30
2. 设置线型——DrawStyle 属性
End Sub
例：点击按钮，使Shape1对象移动。
Private Sub Command1_Click() If Shape1.Left >=
Form1.Width Then Shape1.Left = -
Shape1.Width Shape1.Left =
Shape1.Left + 1000 Else Shape1.Left =
6.1 图形控件
2、Image控件(影像框控件)
主要作用：显示图片。
影像框比图片框占用的内存少，所以速度 较快。
影像框内不能使用Print、Pset、Line、 Circle等方法进行绘图和输出文本，影像 框也不能作为其他控件的容器。
6
2、Image控件(影像框控件)
除了Picture属性之外，Image控件的一个很 重要的属性：Stretch
0
X
ScaleLeft= -30 ScaleTop= -50 ScaleWidth=100 ScaleHeight=110
Y
(70,60)
0
X
ScaleLeft=0 ScaleTop=0 ScaleWidth=50 ScaleHeight=-60
(50,-60)
16
例、通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight
29
6.3.2 线宽、线型与填充模式
1．设置线宽——DrawWidth 属性
窗体、图形框或打印机的DrawWidth属性给出这些对象上 所画线的宽度或点的大小。例如：
Form1.DrawWidth = 2
（宽度为2个象素）
缺省值为 1，即一个像素宽。
30
2. 设置线型——DrawStyle 属性
End Sub
例：点击按钮，使Shape1对象移动。
Private Sub Command1_Click() If Shape1.Left >=
Form1.Width Then Shape1.Left = -
Shape1.Width Shape1.Left =
Shape1.Left + 1000 Else Shape1.Left =
6.1 图形控件
2、Image控件(影像框控件)
主要作用：显示图片。
影像框比图片框占用的内存少，所以速度 较快。
影像框内不能使用Print、Pset、Line、 Circle等方法进行绘图和输出文本，影像 框也不能作为其他控件的容器。
6
2、Image控件(影像框控件)
除了Picture属性之外，Image控件的一个很 重要的属性：Stretch
第6章图形控件和图形方法_2
文本信息和绘图方法绘制的图形显示出来。
（三） 绘图方法
1. Pset方法
Pset方法用于画点，其语法格式如下：
[对象.]Pset [Step] (X，Y) [，颜色]
关键字Step指定相对于由 CurrentX 和 CurrentY 属性提 供的当前图形位置的坐标。
2. Point方法 Pset方法取某点的颜色，其语法格式如下：
五、图形方法
（一）使用颜色
在Visual Basic系统中，所有的颜色属性都由一个 Long整数表示。 在代码中可使用4种方式给颜色赋值： 使用RGB函数。 使用QBColor函数，选择16种Qbasic颜色中的一种。 使用系统提供的颜色常数。 直接使用Long型颜色值。
五、图形方法
像素为单位表示线宽。缺省值为 1，即一个像素宽。
（二）绘图属性
2） 设置线型——DrawStyle 属性
窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的 形状。
设置值 0 1 2 3 4 5 6
线 型 实线(缺省) 长划线 点线 点划线 点点划线 透明线 内实线
图 示
（二）绘图属性
1、使用RGB函数
RGB(red, green, blue)
说明： red, green, blue(红、绿、蓝)3种颜色，从0～ 255之间的一个亮度值(0表示亮度最低，而255表示亮度最 高)。 2、使用QBColor函数
QBColor(color)
说明： color参数是一个界于0～15的整型数，分别代表 16种颜色。
[对象.]Point (X,Y)
程序运行时，使窗体的高度和宽度相等，单击 窗体，改变窗体坐标系长宽均为300个单位，过 窗体中点（即原点）画出互相垂直的两条蓝色 直线，用红色画函数曲线y=x2-2x+6在[-10，10] 区间的图形(要求图形开口向上)。
（三） 绘图方法
1. Pset方法
Pset方法用于画点，其语法格式如下：
[对象.]Pset [Step] (X，Y) [，颜色]
关键字Step指定相对于由 CurrentX 和 CurrentY 属性提 供的当前图形位置的坐标。
2. Point方法 Pset方法取某点的颜色，其语法格式如下：
五、图形方法
（一）使用颜色
在Visual Basic系统中，所有的颜色属性都由一个 Long整数表示。 在代码中可使用4种方式给颜色赋值： 使用RGB函数。 使用QBColor函数，选择16种Qbasic颜色中的一种。 使用系统提供的颜色常数。 直接使用Long型颜色值。
五、图形方法
像素为单位表示线宽。缺省值为 1，即一个像素宽。
（二）绘图属性
2） 设置线型——DrawStyle 属性
窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的 形状。
设置值 0 1 2 3 4 5 6
线 型 实线(缺省) 长划线 点线 点划线 点点划线 透明线 内实线
图 示
（二）绘图属性
1、使用RGB函数
RGB(red, green, blue)
说明： red, green, blue(红、绿、蓝)3种颜色，从0～ 255之间的一个亮度值(0表示亮度最低，而255表示亮度最 高)。 2、使用QBColor函数
QBColor(color)
说明： color参数是一个界于0～15的整型数，分别代表 16种颜色。
[对象.]Point (X,Y)
程序运行时，使窗体的高度和宽度相等，单击 窗体，改变窗体坐标系长宽均为300个单位，过 窗体中点（即原点）画出互相垂直的两条蓝色 直线，用红色画函数曲线y=x2-2x+6在[-10，10] 区间的图形(要求图形开口向上)。
VB语言程序设计教程第06章 Visual Basic标准控件
如果该复选框原先处于未选中状态，则变为选中状态，其
Value值由0变为1。
同组的其它所有复选框均不受影响。
7
6.1 单选按钮、复选框和框架
【例6-2】复选框示例。为文本框中文字加修饰。程序运行界 面如下图所示。
8
6.1 单选按钮、复选框和框架
6.1.3 框架（Frame）
框架是一种比较特殊的容器控件，用来对其他控件进行分组 ，常作为辅助控件使用。 将不同控件放在一个框架中时，不仅实现了视觉上的区分， 而且框架内的所有控件可以随着框架一起移动、显示、消失 和禁用。 1．框架的主要属性 （1）Caption（标题）属性 用来设置框架的标题，为字符串型。 框架的标题位于框架的左上角。 如果Caption属性值为空串，则框架为封闭的矩形。
List数组的下标从0开始，即列表框中的第一项，用List(0)表 示，第二项，用List(1)表示，依此类推。 例如：图6-4中，List1.List(0)的值为“北京”，List1.List(4) 的值为“沈阳”。 （2）ListIndex（索引）属性 该属性用来返回或设置列表框中当前选中项目的索引号，为 整型值。只能在程序运行时使用。 第一个项目的索引号是0，第二个项目的索引号是1，依此类 推。当列表框没有选中项目时，ListIndex值为−1。 在程序中设置ListIndex后，被选中的项目呈反相显示。 例如：在图6-4中，如果项目“重庆”被选中，则 List1.ListIndex值为2。也就是说，List1.List(List1.ListIndex) 14 的值为“重庆”。
6.2 列表框和组合框
（3）ListCount属性
该属性返回列表框中项目的个数，只能在程序运行时使用。
vb 第6章 图形控件和图形方法
End Sub
2
执行结果：
3
⒊ 容器（窗体、图片框）的坐标属性 ⑴ ScaleLeft属性（数值类型） 该属性值为容器左上角的横坐标，缺省值为0。
⑵ ScaleTop属性（数值类型）
该属性值为容器左上角的纵坐标，缺省值为0。 ⑶ ScaleWidth属性（数值类型） 该属性值为容器自身的宽度值。 ⑷ ScaleHeight属性（数值类型）
绿色值 255 255 0 0 255 255 0 0
蓝色值 255 0 255 0 255 0 255 0
20
⑵ QBColor函数 QBColor函数的使用格式为： QBColor（Color）
其中：Color参数是一个介于0到15的整数，如表5-2所示。
例如：将窗体Form1的背景色设置为红色，也可以写作： Form1.BackColor = QBColor(4)
则：左上角坐标为（-200，-100） 右下角坐标为（2000，1000） 窗体的坐标属性的值为： ScaleLeft = -200
ScaleTop = -100
ScaleWidth = 2200 ScaleHeight = 1100
5
6.1.3
坐标刻度
1英寸 = 1440缇
坐标刻度又称坐标单位，缺省情况采用Twip（缇）为单位。 1厘米 = 567缇
出的LoadPicture对话框中选择所要显示的图片文件，相应的图 片随之被加载到图片框中。 ⑵ 运行时装入 程序运行时，可用LoadPicture函数装入图片。格式为：
图片框控件名.Picture = LoadPicture(filename$)
9
⒉ AutoSize 属性（逻辑类型） AutoSize属性值为True时，图片框的边界会随着所装入图片 的大小变化而变化。
VB6.0基础教程 之 第6章 Visual Basic常用标准控件
第6 章
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能：用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式： [对象.]Picture= LoadPicture(“文件名”)
复选框
2．复选框(CheckBox) Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 0--Unchecked：未被选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 事件 Click
6.4 框架
用途：将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性：框架标题 Enabled属性 False，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如：Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触 发其Change事件。
文件列表框(FileListBox)
功能：显示当前目录中指定类型的所有文件。 Path属性：用于返回和设置当前目录。 要从文件列表框（File1）中获得全路径的文件名Fname，用下面的程序代码： If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能：用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式： [对象.]Picture= LoadPicture(“文件名”)
复选框
2．复选框(CheckBox) Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 0--Unchecked：未被选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 事件 Click
6.4 框架
用途：将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性：框架标题 Enabled属性 False，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如：Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触 发其Change事件。
文件列表框(FileListBox)
功能：显示当前目录中指定类型的所有文件。 Path属性：用于返回和设置当前目录。 要从文件列表框（File1）中获得全路径的文件名Fname，用下面的程序代码： If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename
vb6.0 图形控件和图形方法
四.圆、圆弧与椭圆方法Circle
（1）画圆格式： [<容器名>.]Circle[Step](x,y),radius[,Color] （2）画圆弧格式： [<容器名>.]Circle[Step](x,y),radius,[Color]， start,end （3）画椭圆（弧）格式： [<容器名>.]Circle[Step](x,y),radius,[Color]， start,end[,aspect]
二.自定义刻度
将ScaleMode值设置为0，则采用自定义刻度。 用Scale方法设置坐标系后，ScaleMode值自动 变为0。反之，ScaleLeft、ScaleTop、 ScaleHeight、ScaleWidth属性被改变， ScaleMode值自动变为0，单位长度根据变化后 的上述属性重新确定。
2.控件自身宽度、高度的属性
Width属性：该属性值为控件本身的宽度。 Height属性：该属性值为控件本身的高度。
3.容器的坐标属性
ScaleLeft属性：该属性值为容器左上角的横坐标，默认 值为0。 ScaleTop属性：该属性值为容器左上角的纵坐标，默认 值为0。 ScaleWidth属性：该属性值为容器自身的宽度值。 ScaleHeight属性：该属性值为容器自身的高度值。 CurrentX、CurrentY属性：分别表示当前点在容器内的 横坐标、纵坐标。
第5章 图形控件和图形方法
任务1
VB坐标系 图片框控件 影像框控件
任务2
任务3
任务4
形状控件和直线控件
图形方法
任务5
本章导读
VB6.0具有丰富的图形图像处理能力，它提供 了一系列基本的图形函数、语句和方法，支 持直接在窗体或控件上产生图形、图像并对 之加以处理。本章将介绍VB所提供的图形控 件和图形方法。
VB课件 图形控件
考点4 考点 直线和形状
• • • •
属性X1， 和 ， 分别表示直线两个端点的坐标 分别表示直线两个端点的坐标。 属性 ，Y1和X2，Y2分别表示直线两个端点的坐标。 BorderColor，BorderStyle，BorderWidth ， ， BackStyle，FillColor，FillStyle ， ， Shape：设置控件的外观形状 ：
上机真题
【例】捷成14-3：图片交换 捷成14在窗体上画二个图片框，名称分别为P1、P2，高度均为1900， 在窗体上画二个图片框，名称分别为P1、P2，高度均为1900，宽度均为 17 P1 1900 00，通过属性窗口把图片文件pic1.bmp放入P1 pic1.bmp放入P1中 把图片文件pic2.jpg pic2.jpg放 00，通过属性窗口把图片文件pic1.bmp放入P1中，把图片文件pic2.jpg放 P2中 再画一个命令按钮，名称为C1 标题为“交换图片” C1， 入 P2中；再画一个命令按钮，名称为C1，标题为“交换图片” 。 运行时 如果单击命令按钮，则在P1中显示Pic2.jpg P1中显示Pic2.jpg， P2中显示Pic1.bmp。 中显示Pic1.bmp ，如果单击命令按钮，则在P1中显示Pic2.jpg，在P2中显示Pic1.bmp。 程序中不得使用任何变量，也不能使用第三个图片框。 程序中不得使用任何变量，也不能使用第三个图片框。
Click/DbClick Click/DbClick 可以使用
图片框和图像框的装入
• 设计阶段： 设计阶段： 第一种：在属性窗口中选择 第一种：在属性窗口中选择Picture属性 属性 第二种：使用剪贴板复制、 第二种：使用剪贴板复制、粘贴 • 运行阶段： 运行阶段：
vb基础教程第06章
6.5.2 组合框
下面将在VB IDE 环境中讲解组合框的两个特 殊属性：Style和Text。 演示：编写程序，用户从屏幕上选择PC机配置， 点击确定按钮后，程序列出PC机配置单。
Demo
ComboBox控件.exe
6.6 滚动条
滚动条有两种作用：观察数据或者输入数据。 滚动条分为两种：水平滚动条和垂直滚动条， 两者的区别仅仅方向不同。滚动条的实质是使 用滑块的位置来表示数值的大小。
6.8 框架
框架的一个主要用途是在一个窗体中建 立多组相互独立的单选按钮，在这种情 况下，如果不使用框架控件就无法达到 目的。 下面演示在一个窗体中使用框架控件建 立多组相互独立的单选按钮。
6.9 焦点与Tab顺序
什么是焦点？ 焦点是可视对象具有的接收用户鼠标或键盘 输入的能力。 当一个对象具有焦点时，就可以接受用户的输 入。Windows系统是一个多任务操作系统，在 Windows系统中，某个时刻可以同时运行多个 应用程序，但是，任何时刻只有一个对象具有 焦点，具有焦点的对象所在的窗口叫做活动 (Active)窗口，其它所有窗口都叫做非活动 (Inactive)窗口。因此，在Windows中，任何时 刻只有一个窗口是活动窗口。
6.7 计时器
计时器（Timer）控件可以每隔一个时间间隔 （Interval）触发一个计时器事件（Timer）。 所谓时间间隔，指的是各个计时器事件之间的 时间，一般以毫秒（ms）为基本单位。因为计 时器在1秒钟内最多产生18个事件，所以两个 事件之间的时间间隔精确到1/18秒。若想在1秒 钟内执行n个计时器事件，则必须将Interval属 性 的值设置为1000/n才可以实现。当Interval属 性的值为0时，则计时器无效。计时器只有 Timer事件，每当经过一个Interval指定的时间 间隔，就触发一次Timer事件。 下面演示计时器控件的基本使用方法。
Visual Basic程序设计教程第六章 常用控件与事件
6
6.1.3 文本框控件（TextBox）
1．文本框控件的主要属性
（1）Text属性。 Text属性是文本框最重要的一个属性，在设计时，使用该属性 可以指定文本框的初始值。在程序中，Text属性用来返回用户 在文本框中输入的内容。如要将用户在文本框（ Text1）中输入 的内容显示在窗体上，可以使用以下语句： Print Text1.Text （2）MultiLine属性。 MultiLine属性用于表示是否有多行输入的功能。默认情况下， 该值为False，表明文本框只能接收单行文本。若将该值设置为 True，则在文本框中可以输入多行文本。
Visual Basic程序设计教程
主要内容
1
2 3 4 5 6 7
标签、文本框和命令按钮 单选按钮、复选框和框架 列表框和组合框
滚动条和时钟控件
图片框和图像框 控 件 数 组
鼠标、键盘事件
2
引例
例6-1 设计一用户登录窗口，如图6-1所示。 分析：窗体上总共有6个对象，这些对象分别有文本框、标签和 命令按钮。在设计时，用文本框来输入数据，用标签来显示“用 户名：”和“密码：”内容，用命令按钮来实现确定和取消操作。 结论：标签是用来显示文本的控件，文本框是用来接收用户输入 并显示输入信息的控件，命令按钮是用来实现命令的启动、中断、 结束等操作的控件。
ቤተ መጻሕፍቲ ባይዱ
8
6.1.3 文本框控件（TextBox）
（5）PassWordChar属性。 设置PassWordChar属性是为了掩盖文本框中输入的字符。它常用于设置密 码输入，如将PassWordChar属性值设置为星号（*），则用户输入的任何 字符在文本框中均显示为星号（*）。 （6）Alignment属性。 Alignment属性用于设置文本框中内容的对齐方式，与标签控件的使用相 同。 （7）Locked属性。 Locked属性设置文本框的内容是否可以编辑。如果Locked属性设为True， 则文本框被锁定，此时与标签控件类似，只能用于显示，不能进行输入和 编辑操作。 （8）SelStart、SelLength和SelText属性。 这三个属性是文本框中对文本的编辑属性。SelStart属性返回或设置所选 中的文本起始点，如果没有选中文本，则指出插入点的位置。SelLength 属性返回或设置所选中文本的字符数。SelText属性设置或返回当前选定文 本中的文本字符串。
VB程序设计基础 第6章 控件及控件数组
除了单击（Click）和双击（DblClick）外，基本 的鼠标事件还有3个：MouseDown、 MouseUp和MouseMove。工具箱中的大多数控件都 能响应这3个事件。
MouseDown：鼠标的任一键被按下时触发该事件。 MouseUp：鼠标的任一键被释放时触发该事件。 MouseMove：鼠标被移动时触发该事件。 以Form 对象为例，它们的语法格式为：
dataout.Caption = "" End Sub
' 按下=键的事件过程 Private Sub result_Click（） ops2 =dataout.Caption Select Case op1
Case 0
dataout.Caption = ops1 + ops2 Case 1 dataout.Caption = ops1 - ops2
Name属性设置为同一值。
6.4.3
控件数组的应用举例
建立了控件数组之后，控件数组中所有控件共享
同一事件过程。例如，假定某个控件数组含有10个标
签，则不管单击哪个标签，系统都会调用同一个Click
过程。由于每个标签在程序中的作用不同，系统会将 被单击的标签的Index属性值传递给过程，由事件过程 根据不同的Index值执行不同的操作。
3、事件：Click、DblClick 一般不需要编写Click事件过程 通常在单击命令按钮或发生DblClick事件时才读取 Text属性
四、组合框(ComboBox)：
组合框是组合了文本框和列表框的特性而形成的一 种控件。 组合框在列表框中列出可供用户选择的选项，另外还 有一个正文框。 当用户选定某项后，该项内容自动装入 文本框中。当列表框中没有所需选项时，除了下拉式列表 框(Style为2)之外都允许在文本框中用键盘输入，但输入 的内容不能自动添加到列表框中。 组合框占用屏幕空间比列表框要小。 组合框有三种不同的风格，由Style属性值决定。
Visual Basic程序设计教程电子课件——程序设计基础
6
2.1.2 如何学习Visual Basic
2．编程实验对能力提高最重要
学习Visual Basic与学习下棋有很多相似，值得类比、 借鉴。
学下棋必须先学各棋子的移动规则，但记住了“马走日、 象走田”并不意味着你就会下棋了，必须要勤于对奕并潜 心钻研。学习Visual Basic必须先了解Visual Basic语 言的基本规则，而更重要的是在实际应用中逐步提高编程 能力。
有懂不懂的问题。有此认识，才能避免进入许多初 学者都易于陷入的误区，从而使我们的学习获得事 半功倍的效果。
时常有学生为没有用心去记因此没有记住这些 规则而苦恼，经常有学生用一句“一点都不懂”来 表达此时的心情，是非常有害的，使得学习 Visual Basic迟பைடு நூலகம்才得以入门，从而耽误了宝贵 的学习时间。
4
2.1.1 计算机高级语言与语言处理系 统
再譬如，可以在一行上写上这样的两条语句“x=5: y=x*7.3”，但决不允许写成“x=5, y=x*7.3”，因为 Visual Basic的规则是一行上的多条语句之间必须用冒号 间隔。
(2) 语言处理系统开发者必须根据这套规则去设计、 制作语言处理系统，对于用户严格按照相应语言的规定编 写的程序，该系统应能够处理它并最终生成该程序的可执 行文件。
关于Visual Basic语言我们只能了解并熟记，我们只 能遵守规则而不能去创造规则，我们学习的意义在于用高 级语言编写程序去解决实际问题。
5
2.1.2 如何学习Visual Basic
1．语言规则要熟记 学习Visual Basic首先要做到熟记Visual
Basic语言的规则。 对于规则，只有记得住与记不住的问题，而没
若计算圆柱体的体积并存入变量v，声明v为Single 类型，半径和圆周率也采用Single类型，则结果v具有6位 有效数字；如果要求计算结果具有更高的精确度，可以考 虑采用Double类型声明v与相关变量。
2.1.2 如何学习Visual Basic
2．编程实验对能力提高最重要
学习Visual Basic与学习下棋有很多相似，值得类比、 借鉴。
学下棋必须先学各棋子的移动规则，但记住了“马走日、 象走田”并不意味着你就会下棋了，必须要勤于对奕并潜 心钻研。学习Visual Basic必须先了解Visual Basic语 言的基本规则，而更重要的是在实际应用中逐步提高编程 能力。
有懂不懂的问题。有此认识，才能避免进入许多初 学者都易于陷入的误区，从而使我们的学习获得事 半功倍的效果。
时常有学生为没有用心去记因此没有记住这些 规则而苦恼，经常有学生用一句“一点都不懂”来 表达此时的心情，是非常有害的，使得学习 Visual Basic迟பைடு நூலகம்才得以入门，从而耽误了宝贵 的学习时间。
4
2.1.1 计算机高级语言与语言处理系 统
再譬如，可以在一行上写上这样的两条语句“x=5: y=x*7.3”，但决不允许写成“x=5, y=x*7.3”，因为 Visual Basic的规则是一行上的多条语句之间必须用冒号 间隔。
(2) 语言处理系统开发者必须根据这套规则去设计、 制作语言处理系统，对于用户严格按照相应语言的规定编 写的程序，该系统应能够处理它并最终生成该程序的可执 行文件。
关于Visual Basic语言我们只能了解并熟记，我们只 能遵守规则而不能去创造规则，我们学习的意义在于用高 级语言编写程序去解决实际问题。
5
2.1.2 如何学习Visual Basic
1．语言规则要熟记 学习Visual Basic首先要做到熟记Visual
Basic语言的规则。 对于规则，只有记得住与记不住的问题，而没
若计算圆柱体的体积并存入变量v，声明v为Single 类型，半径和圆周率也采用Single类型，则结果v具有6位 有效数字；如果要求计算结果具有更高的精确度，可以考 虑采用Double类型声明v与相关变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
6.3.1 使用颜色
使用图形方法绘图时总要使用不同的颜色，Visual Basic 6.0使 用的颜色用一个长整型数（通常用16进制）表示，如 &HFFFF00&。其数值由3部分组成：右边的两位（16进制数，下 同）代表红色的亮度值，中间的两位代表绿色的亮度值，左边的 两位代表蓝色的亮度值。 每个亮度值都可以取0～255之间的数值，因此共有1600多万种 不同的颜色取值。 界面设计时可以通过在对象的属性窗口中选择需要设置的颜色 属性，用打开的“调色板”对话框进行颜色设置。 程序运行时，可以使用颜色函数、使用系统预定义颜色常量、 直接赋值或使用通用对话框中的“颜色”对话框来指定颜色。
6.1.3 形状控件
◆ ◆ ◆ ◆ ◆ ◆
工具箱中形状控件的图标为。 形状控件缺省的控件名称为：Shape1、Shape2、……，微软建议 名称前缀为shp。 1．形状控件常用属性 (1) Shape属性。 形状控件用于创建指定的图形，通过设置Shape属性来得到所需 要的形状，画出正方形、矩形、圆和椭圆等。 Shape属性定义该控件显示的图形。取整数值或系统定义的符号 常量，取值及含义如下： 0或VbShapeRectangle：控件形状为矩形 。 1或VbShapeSquare：控件形状为正方形。 2或VbShapeOval：控件形状为椭圆形。 3或VbShapeCircle：控件形状为圆形。 4或VbShapeRoundedRectangle：控件形状为圆角矩形。 5或VbShapeRoundedSquare：控件形状为圆角正方形。
6.2.2 改变容器坐标系的Scale方法
◆ ◆ ◆ ◆
容器坐标系中，坐标系刻度单位的缺省值为“缇”（1缇≈0.01764mm），容器的最 小坐标值为左上角坐标，容器的最大坐标值为右下角坐标。 利用Scale方法可以改变原点的坐标并随之改变最大坐标值，格式为： 容器名.Scale (x1,y1)-(x2,y2) 该语句功能：改变容器（缺省容器名指窗体）左上角坐标为(x1,y1)，右下角坐标值为 (x2,y2)，将容器在X轴方向分为x2-x1等份、Y轴方向分为y2-y1等份，并将容器的4个坐 标属性设置为： 容器名.ScaleLeft=x1 容器名.ScaleTop=y1 容器名.ScaleWidth=x2-x1 容器名.ScaleHeight=y2-y1
第6章 图形控件和图形方
6.1 6.2 6.3 6.4
图形控件 Visual Basic坐标系 图形方法 小 结
6.1.1 图片框控件
工具箱中图片框控件的图标为 。 图片框控件名称的缺省值为：Picture1、Picture2、……，微软建 议名称前缀为pic。 图片框控件用以显示图片，也可以作为其他对象的容器、显示 图形方法的输出结果和Print方法输出的文本。 1．图片框控件的常用属性 (1) Picture属性。 图片框控件的Picture属性返回或设置图片框中的图片。 在图片框中加载图像有下列两种方式： u 设计时选取：界面设计时，在该图片框控件属性窗口中点击 “Picture”属性，随之弹出“加载图片”对话框，选择所要显示的 图片文件后，相应的图片被加载到图片框中。 u 运行时装入：程序运行时，可用LoadPicture函数装入图片到图片 框控件中。格式：图片框控件名.Picture = LoadPicture (filename)
(4) 其他常用属性。 ◆ BorderColor：设置边框颜色。 ◆ FillColor：设置填充颜色。 ◆ BorderWidth：设置边框宽度。 利用形状控件，可以在界面设计时，通过对形状控件有关属性的设置直接得到相应的 图形，也可以在程序中设置属性来获得所需要的图形。
6.1.4 直线控件
6.1.3 形状控件
(2) BorderStyle属性。 该属性定义图形边框样式，取值及含义如下： ◆ 0：透明，即无边框。 ◆ 1：实线，为缺省值。 ◆ 2：长虚线。 ◆ 3：虚线。 ◆ 4：点划线。 ◆ 5：双点划线。 ◆ 6：内插实线，如果BorderWidth属性值大于1，控件保证图形最大尺寸等于设定值。
6.1.2 影像框控件
工具箱中影像框控件的图标为 。 影像框控件名称的缺省值为：Image1、Image2、……，微软建议名称前缀为img。 影像框控件只能用于显示图像，不支持图形方法，也不能当作容器来使用。 1．影像框控件常用属性 (1) Picture属性。 与 图 片 框 控 件 的 Picture 属 性 一 样 ， 可 以 在 设 计 时 设 置 ， 也 可 以 在 程 序 运 行 时 用 LoadPicture函数装入。详细说明可以参见6.1.1。 (2) Stretch属性。 图片框控件的AutoSize属性设置为True时，其大小会随所装入的图片而变化，这样可以 得到图片的原始大小，但有时当所加载的图片比较大时，可能会影响窗体上其他控件的 显示。
6.1.1 图片框控件
2．图片框控件的常用方法 (1) Print方法。 图片框控件可以用来显示Print方法输出的文本，格式如下： 图片框控件名称.Print 输出表 如执行“Picture1.Print "图片框"”，则在图片框Picture1上当前输出位置，显示“图片框” 这3个字。 (2) Cls方法。 图片框上除了所装入的图片外，其他的所有文字、图形都可以用Cls方法擦除，格式如下： 图片框控件名称.Cls
6.2.3 坐标刻度
◆
◆
◆
◆
◆ ◆ ◆
Visual Basic程序设计中，经常使用的刻度单位为：缇、磅和毫 米。通过设置容器的ScaleMode属性可以选择改变坐标系统的单位。 1．设置（选择）标准刻度 ScaleMode 属 性 值 为 1 ， 容 器 坐 标 系 的 刻 度 单 位 为 缇 ， 1 缇 ≈0.01764毫米≈0.05磅 ScaleMode属性值为2，容器坐标系的刻度单位为磅，1磅≈0.353 毫米。 ScaleMode属性值为3，容器坐标系的刻度单位为像素，是显示器 分辨率的最小单位。 ScaleMode属性值为4，容器坐标系的刻度单位为字符，每个字符 宽6磅、高12磅。 ScaleMode属性值为5，容器坐标系的刻度单位为英寸。 ScaleMode属性值为6，容器坐标系的刻度单位为毫米。 ScaleMode属性值为7，容器坐标系的刻度单位为厘米。
6.2.1 容器坐标系
(1) Top属性。 控件的该属性值是控件左上角到所在容器上边沿的距离。如果控件外的容器为窗体，则 控件的Top属性值为控件左上角到所在窗体标题栏下边沿的距离。 (2) Left属性。 控件的该属性值是控件左上角到所在容器左边沿的距离。 Private Sub Form_Click() Print Top, Left, Height, Width Print Frame1.Top, Frame1.Left, Frame1.Height, Frame1.Width Print Text1.Top, Text1.Left, Text1.Height, Text1.Width End Sub
6.1.2 影像框控件
2．影像框控件常用事件 影像框控件与图片框控件可以响应的事件过程大体相同，如Change、 Click、MouseDown、MouseUp、MouseMove等常用事件。 读者可以根据程序设计的要求，编写相应的事件过程，下列各程序 段可以帮助读者了解鼠标引发事件过程的使用方法。 下列事件过程可以显示鼠标在影像框控件上点击位置的坐标值。 Private Sub Image1_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single) '参数x、y为鼠标在影像框按下处的坐 标值。 Print X, Y End Sub Image控件可接受Click等事件，因此可以充当图形命令按钮。
工具箱中直线控件的图标为 。 直线控件缺省的控件名称为：Line1、Line2、……，微软建议名称前缀为lin。 直线控件与形状控件相似，但只用于画线。界面设计时可以通过鼠标操作调整线段的 位置、长短和颜色等属性；程序运行时，可以通过改变直线的端点坐标（ x1,y1）、 （x2,y2）来移动它或调整它的长短。 同形状控件的边框样式属性一样，Line控件通过对BorderStyle属性的设置定义该控件 所显示的直线的线形，其不同取值表示不同的线形，分别为透明、实线、长虚线、虚线、 点划线、双点划线等。
6.2.3 坐标刻度
当选择标准刻度时，系统自动使 ScaleLeft、ScaleTop 值为 0 ，并设置 ScaleHeight、 ScaleWidth值，这些属性决定了容器坐标的最小值、最大值。 2．自定义刻度 将ScaleMode值设置为0，则采用自定义刻度。 用Scale方法设置坐标系后，ScaleMode值自动变为0。反之，ScaleLeft、ScaleTop、 ScaleHeight、ScaleWidth属性被改变， ScaleMode值自动变为 0，单位长度根据变化后 的上述属性重新确定。
6.2.1 容器坐标系
2．控件自身宽度、高度的属性 (1) Width属性，该属性值为控件本身的宽度。 (2) Height属性，该属性值为控件本身的高度。 在图6-11中，如果拖动框架控件、改变其在窗体中的位置，框架 控件的Top、Left属性可以被改变，而Width、Height属性不改变。 如果仅改变框架控件的大小而保持其左上角位置不变，则Width、 Height属性被改变。 3．容器（窗体、图片框）的坐标属性 (1) ScaleLeft属性，该属性值为容器左上角的横坐标，缺省值为0。 (2) ScaleTop属性，该属性值为容器左上角的纵坐标，缺省值为0。 (3) ScaleWidth属性，该属性值为容器内部的宽度值。 (4) ScaleHeight属性，该属性值为容器内部的高度值 (5) CurrentX、CurrentY属性，分别表示当前点在容器内的横坐标、 纵坐标。设置 CurrentX、CurrentY 属性后，所设值就是下一个输 出方法的当前位置。