Microsoft Visual Basic工具的使用及简单程序开发

实训一、简单VB 应用程序开发

【理论知识提要】

为了能体现数据库后台作用和特点，有必要加一个前台开发工具，在这里我们选择VB 前台开发工具，因为VB 简单易学，功能强大，数据库接口编程方便，而且比较适合作为初学者的前台开发工具，下面主要介绍一下VB 的开发环境和VB 的语言规范。

一、VB 简介

VB 是Visual Basic 的缩写，Visual 的含义是“可视化的”、“形象化的”，这个开发工具是由Microsoft 公司出品的，是一种可视化编程工具。

可视化编程的特点：通过调用控件，并为控制对象设置属性，根据开发者的需要，直接在窗口中进行用户界面的布局设计，该项技术具有编程简单、自动生成程序代码、效率高的优点，因而在当今的编程语言中被广泛采用。

二、VB 集成开发环境介绍 1．新建工程界面介绍

新建：列出了可创建的应用程序类型，一般常用的为“标准EXE”，具体工程的分类和特点参见VB 相关教材，这里不再一一介绍；

现存：列出了可以选择和打开的现有工程。 最新：列出了最近使用的工程类型。

此对话框可以根据需要选择每次启动VB 时是否显示。 这三个选项卡也可以通过VB 中的“文件”菜单来选择和打开。 2．集成开发环境介绍

图5-1 新建工程界面

在图5-1界面选择“标准EXE ”后，单击“打开”按钮，进入了如图5-2所示的集成开发环境。

主菜单中常用菜单项功能介绍如下：

（1）文件：包含新建、打开和保存工程以及生成可执行文件等的命令。 （2）编辑：包含编辑命令、格式化、编辑代码命令。 （3）视图：包含显示和隐藏集成开发环境阁员元素命令。

（4）工程：包含工程中添加和删除的各种工程组件，显示当前工程的结构和内容的命令，会随着工程内容的变化而变化。

（5）格式：包括对齐窗口控件的命令。 （6）调试：包含常用的通用调试命令。

（7）运行：包含启动、设置断点和终止当前应用程序运行的命令。 （8）查询：包含操作数据库时的查询命令以及其他数据访问命令。 （9）窗口：包含调整、控制屏幕窗口布局命令。 （10）帮助：启动联机帮助。

在集成开发环境中，工具集成开发环境中，各个分对象界面介绍：

窗体布局窗口

图5-3 工具栏界面

标题栏

主菜单

工具箱

窗体窗口

属性 窗口

工程 窗口

工具栏

图5-2 系统集成开发环境界面

添加标准控件

添

加窗体

菜单编辑器

打开工程

保存工程

剪切

复制

查找

撤销

粘贴

重复

中断

启动

结束

工程资源管理器

窗体布局窗口

属性窗口

对象浏览器

工具箱

控件管理器

数据库浏览

窗口

图5-3 工具栏各个工具说明界面

“窗体窗口”也称为“对象窗口”，主要用来在窗体设计应用程序界面，界面的设计是通过在窗体上添加控件完成的。

“工程窗口”列出了当前工程所包括的文件清单。

“工程”：VB 的一个应用程序，它包括工程文件（.vbp ）、窗体文件（.frm ）、标准模块文件（.bas ）、类模块文件（.cls ）、资源文件（.res ）等等。每个工程不一定包含所有文件，但至少包含.vbp 和.frm 文件。

工具箱中的工具就像机械零件的模具一样，利用模具作出零件，利用工具作出控件。 添加控件方法：双击工具箱中的某个图标；或者单击某个图标，在窗体上按住鼠标左键

图5-6 工具箱各个工具说明界面

指针 标签 框架 复选框

组合框

水平滚动条 定时器 目录列表框 图片框 文本框 命令按钮 单选钮 列表框 垂直滚动条 形状控件 图像控件

OLE 容器

驱动器列表框 文件列表 直线 数据控件

对象下拉列表框 排序选项卡

对象属性列表

对象属性说明 图5-7 对象属性说明界面

图5-4 窗体窗口界面

图5-5工程窗口界面

拖动，也可作出这种控件。

属性：对象的特征，如大小、名称、标题、颜色等。在对象下拉列表框中可以选择要设置属性的对象，属性列表包括两部分信息，左边所选对象的所有属性名称，右边是可以查看和修改的属性值

3．设计VB程序的一般步骤

●设计用户界面（界面设计要友好，通过向窗体上添加控件及调整控件位置来实现）

●设置属性（设置对象的特征，有四种方法打开属性窗口：“视图”菜单->“属性窗口”；

F4键；工具栏“属性”按钮；使用对象的上下文菜单，掌握一种即可）

●编写代码（为对象编写代码，代码要正确易读同时运行效率高；打开代码窗口有多

种方法：双击对象；“视图”菜单->“代码窗口”；使用对象的上下文菜单；在工程窗

口单击查看代码图标等等）

●保存和运行调试程序，生成EXE文件（注意保存时要根据提示一一保存，对于生成

的EXE文件是不可编辑的）

三、基本概念

对象：事物都可称作对象，比如计算机、鼠标就是对象，在Visual Basic里对象主要分为两类：窗体（Form）和控件（Control）。

窗体（Form）：窗体或称表单，其实指的就是Window。

控件（Control）：控件，指的是各种按钮、选项卡、对话框等。

事件：事件是发生在对象上的动作。每个对象能识别的只是一组预先定义好的事件。但并非每个事件都会产生结果

事件过程：对象感应到某一事件时所执行的程序。

方法：VB提供的特殊的子程序，用户看不到，但可以直接调用，比如显示、隐藏对象，打印等。

四、VB数据类型

在VB中除了基本类型外还有自定义类型和数组类型，自定义形式如下：

Type 自定义类型名

元素名As 类型名

元素名As 类型名

元素名As 类型名

……

End Type

数组类型定义如下：

说明符数组名(下标) [As 数据类型]

说明符数组名(下标下界To 下标上界) [As 类型]

例：Dim a(10) As Integer ‘定义a数组，共11个元素下标从0到10

Dim a(1 to 5) As Integer ‘定义a数组，下标从1到5共5个元素

五、VB变量声明及命名规则

1．用户声明常量

[Public|Private]Const 常量名[As 类型]=表达式

例：Const Pi=3.1415926

Public Const Maxnumber As Integer=1000

Const StuName=”Student Name”

2．用Dim语句声明变量

Dim 变量名[As 数据类型]

例：Dim num1 As Integer

Dim StuName As String*8

Dim X1,X2 As Byte,d1 As long

3．用Static、Public、Private语句声明变量

Static 变量名[As 数据类型][,变量名[As 数据类型]……] ‘声明过程级静态变量

Public 变量名[As 数据类型][,变量名[As 数据类型]……] ‘声明全局变量

Private 变量名[As 数据类型][,变量名[As 数据类型]……] ‘声明模块级变量

4．隐式说明

利用类型说明符号进行变量类型说明的方式称为隐式声明方式，例：

Dim x1%,x2%,x3&等价于Dim x1,x2 As Integer,x3 As Long

5．变量名命名规则

在VB中变量名的命名规则为：第一个字符必须为字母，变量名第2个字符及以后字符可以是字母、数字和下划线，变量名的长度必须小于255个字符，不能将VB的保留字作为变量名，构成变量名的字母不区分大小写，变量名中间不能有空格，在同一个程序模块中不允许有相同的变量名。

六、VB运算符

1．算术运算符

2．关系运算符

3．逻辑运算符

4．字符串连接运算符

5．日期时间运算符

6．运算符的优先级

运算符由高到低的优先顺序为：算术运算符->字符串连接运算符（&）->关系运算符->逻辑运算符；

算术运算符的优先顺序为：^->-（负号）->*->/->\->Mod->+->-；

逻辑运算符由高到低的优先顺序为：Not->And->Or->Xor->Eqv->Imp。

七、VB常用内部函数

1．类型转换函数

2．数学运算符

3．字符串函数

4．日期时间函数

八、VB流程控制

VB流程控制语句和其他高级语言相同也分为：顺序结构、选择结构、循环结构。

1．选择结构

选择结构分为四种：“单行结构”条件语句、“块结构”条件语句、“嵌套结构”条件语句、多分支条件语句。

（1）“单行结构”条件语句

格式：If 条件Then 语句组1 [Else 语句组2]

功能：若条件成立，执行语句组1，否则执行语句组2；

注意：

●整个语句必须在一行，如果语句组中语句多于一条，则用冒号分隔；

●Else部分不是必须的，可根据需要进行添加或缺省。

举例：找两个数最大值

If x>y then max=x else max=y

（2）“块结构”条件语句

格式：

If 条件Then

语句块1

[Else

语句块2]

End If

功能：同“单行结构”条件语句功能；

注意：

●“块结构”的使用必须和上面的格式严格一样；

●Then后的语句块1必须放在Then的下一行；

●Else后的语句块2可以放在与Else同一行，但Else后必须有冒号（如没有，系统会

自动添加），也可以放在Else的下一行；

●End if是块结束的标志不能省略。

举例：找两个数中最大值

If x>y then

max=x

Else

max=y

End if

（3）“嵌套结构”条件语句

在语句组中又包含条件格式，称为“嵌套结构”条件语句。

举例：成绩转换成五级制

If x>=95 Then

Print”优”

ElseIf x>=85 Then

print”良”

ElseIf x>=75 Then

print”中”

……

End if

（4）多分支条件语句

格式：

Select case 测试表达式

case 表达式列表1

语句块1

case 表达式列表2

语句块2

……

case else

语句块n+1

End case

2．循环结构

循环结构分为For…Next循环、Do…Loop循环、While…Wend循环。

（1）For…Next循环

格式：

For 循环控制变量=初值To 终值[Step步长]

语句块1

[Exit For]

[语句块2]

Next[循环控制变量]

说明：

●For与Next必须成对出现；

●初值、终值和步长为数值型表达式；

●步长不能为0，为1时可以省略；

●Exit For的作用是结束循环，跳过Next语句，继续执行下面语句序列。

举例：求1到100之间的偶数和

Y=0

For i=2 To 100 step 2

Y=Y+i

Next i

Print Y

（2）Do…Loop循环

格式1：

Do

语句块1

[Exit Do]

[语句块2]

Loop[While|Until循环条件]

说明：

●Do和Loop必须成对出现

●循环条件用逻辑表达式写，True成立,False不成立

●用While时，循环条件为True执行循环体，False结束循环，Until和While正好相反举例：计算1到100之间的奇数和

Y=0

i=1

Do

Y=Y+i: i=i+2

Loop while i<=99

print Y

格式2：

Do [While|Until循环条件]

语句块1

[Exit Do]

[语句块2]

Loop

（3）While…Wend循环

格式：

While 条件

语句块

Wend

举例：计算1到100之间的奇数和

Y=0

i=1

while i<=99

Y=Y+i

i=i+2

wend

print Y

【实验要求】

（1）对于验证性实验，要求学生按照具体的实验步骤完成相应的作品制作，并保存在相应的盘符下（包括一个工程文件、5个窗体文件、一个图标文件夹、一个图片文件夹），以备按教师要求上交作业。

（2）由于本部分实验是为数据库的开发打基础，并不是该课程的重点，所以不要求进行自主设计开发，如果学生自己有兴趣可以参考具体的VB教程进行自学。

（3）对于开发过程中出现的问题要求学生记录下来，并进行分析错误的原因，如果不能自己解决应及时请教教师或同学。

【验证性实验】

利用VB 环境开发带有菜单、工具栏的多窗体程序，其中共包括4个界面：字体格式设置界面，数值计算界面，利用定时器进行图片浏览界面， 列表框和组合框使用界面。

具体实现界面如图5-8，5-9，5-10，5-11，5-12所示。

图5-12 组合框列表框界面

图5-10 数值计算界面

图5-8 主界面

图5-9 字体格式界面

图5-11 定时器图片界面（每2秒换一次图片）

实验作品制作步骤如下（参考理论知识中介绍的开发VB 程序的一般流程）：

【步骤1】建立VB 工程和主窗体：启动VB 之后出现，出现如图5-1所示的新建工程界面，选择“标准EXE ”，单击“打开”，进入VB 集成开发环境，如图5-2所示。出现的Form1将作为我们开发的主窗体。在主窗体界面修改form1的caption 属性值为“多功能主窗体”如图5-13所示：

【步骤2】建立菜单：在工具栏中选择“菜单编辑器”，出现如图5-14所示的界面。在“标题”中输入菜单显示的内容，在“名称”中输入菜单的名称（菜单名称以m_开头，而且菜单名称不能重复），其他的内容我们就可以采用默认值。具体的菜单标题和名称如表5-1所示。

具体完成界面如图5-15所示，新菜单项的插入通过“下一个”按钮进行，关于“字体格式”、“数值计算”、“定时器图片”、“列表框组合框”、“退出”等五个菜单项位于“界面”菜单的下一级，可以通过界面中的向右箭头来调整。菜单设计好后，单击“确定”按钮，则新创建的菜单自动挂在了form1窗体上，如图5-16所示。

图5-13 修改窗体属性界面

图5-14 菜单编辑器界面

图5-15 菜单编辑完成界面

表5-1 菜单标题名称表

【步骤3】建立工具栏：工具栏是将菜单中的功能以快捷工具按钮的形式进行体现，在VB中实现工具栏需要两个控件，toolbar和imagelist，这两个控件属于activeX控件的一部分，在使用前，需要在工具箱的空白区域单击鼠标右键，如图5-17所示，选择“部件”菜单项，出现如图5-18所示的“部件”对话框，选中“Microsoft Windows Common Controls 6.0”复选框，单击“确定”按钮，这时工具箱中会多出很多新工具控件。选择toolbar控件，然后单击窗体，在窗体的菜单栏下将出现一条灰色无网格区域，这个区域就是工具栏的最终位置；单击imagelist控件，单击窗体，在窗体中出现imagelist的小图标，具体界面如图5-19所示。在做工具栏之前，需要将放在工具栏上的图标保存到相应的文件夹内（这里需要用到四个图标）。在窗体imagelist小图标上右击，在弹出式菜单中选择“属性”菜单项，出现如图5-20所示的image属性界面，在“图像”选项卡中利用“插入图片”按钮将保存在指定位置的小图标插入进来，默认情况下，第一个图片索引为1，第二个图片索引为2，以后依此类推。四个图片都插入后单击“确定”按钮。关于imagelist的属性设置好后接着设置toolbar属性，右击form1菜单栏下的灰色toolbar控件，在弹出式菜单中选择“属性”菜单项，出现如图5-21所示toolbar 属性界面，在“通用”选项卡的“图像列表”后的下拉框中选择“imagelist1”，这时imagelist1和toolbar1就建立起来了联系；在“按钮”选项卡中通过“插入按钮”按钮为toolbar1插入按钮，每插入一个按钮，修改相应的“图像”后的索引值（与imagelist1中的图片索引对应），让按钮之上出现我们设计的小图标，四个按钮和相应的图像都建立好对应关系后单击“应用”按钮和“确定”按钮，这时我们的工具栏就做好了。

图5-17 添加部件图5-18 部件对话框界面

注：如果没有imagelist 控件，toolbar 也能完成工具栏的制作，同时可以通过编程实现连接相应窗体的功能，但是toolbar 工具栏上的工具按钮只是一个一个的灰色图标，界面友好性较差。

【步骤4】建立字体格式设置界面：利用“工程”菜单下“添加窗体”菜单项（或工具栏“添加窗体”按钮）创建新窗体，添加新窗体界面如图5-23所示，选择“窗体”，单击“打开”按钮，这时在开发区出现了默认名为“form2”的新窗体，如图5-24所示。在form2窗体中按表5-2所示添加新控件并设置控件属性。设置好后，单击工具栏上“保存”按钮，出现保存窗体界面，将form2和form1保存在相同的路径下，窗体名采用默认值即可。

图5-21 toolbar 属性“通用”界面

图5-22 toolbar 属性“按钮”界面

图5-23 添加窗体界面

图5-24 新窗体界面

注：下面界面的创建过程和【步骤5】窗体的创建过程相似，所以只给出相应的控件名和控件属性值表，其他操作参考【步骤5】。

【步骤5】建立数值计算界面：实现数据的求绝对值和求Σ，具体控件名和属性值设置参见表5-3，完成界面参见图5-26。

【步骤6】建立定时器图片浏览界面：要建立图片浏览界面，首先必须先建立图库，也就是在指定的位置存放一定数量的图片，以备浏览时显示（在工程存储路径下创建picture 文件夹，存放从1开始编号的10个.jpg 文件）。这里具体控件名和属性值设置参见表5-4，完成界面参见图5-27。

图5-25 字体格式界面

表5-2 “字体格式窗体”控件说明

图5-26 数值计算界面

表5-3 数值计算界面控件说明

【步骤7】建立列表框和组合框界面：具体控件名和属性值设置参见表5-5，完成界面参见图5-28。

注：根据VB 开发的一般步骤，界面和界面总体风格设计好后就可以进行代码设计了，下面就根据每个界面的完成功能进行相应代码设计，代码设计是在各个窗体中完成的，各个窗体的切换可以再“工程”窗口通过鼠标双击实现。

【步骤8】为菜单和工具栏进行代码设计：在form1中单击“界面”菜单，在下拉菜单项中，单击“字体格式”进入m_font_click 代码设计界面如图5-29所示，在此界面输入如下程序语句：

Private Sub m_font_Click() '为“字体格式”菜单项的单击事件添加代码 Form2.Show '打开form2窗体 End Sub

图

5-27

图片浏览界面

表5-4 图片浏览界面控件说明

图5-28 列表框组合框界面

表5-5 列表框组合框界面控件说明

事件选择下拉框

对象选择下拉框

图5-29 代码设计界面

依此方法，分别为“数值计算”、“定时器图片”、“列表框组合框”、“退出”等菜单项设计代码如下：

Private Sub m_list_Click()

Form5.Show

End Sub

Private Sub m_number_Click()

Form3.Show

End Sub

Private Sub m_timer_Click()

Form4.Show

End Sub

Private Sub m_exit_Click()

End

End Sub

工具栏中的图标分别与各个下拉菜单项建立联系，利用select…case结构，具体代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index '利用toolbar按钮的index为判定值Case 1 '第一个按钮链接“字体格式”菜单项

Call m_font_Click

Case 2 '第二个按钮链接“数值计算”菜单项

Call m_number_Click

Case 3 '第三个按钮链接“定时器图片”菜单项

Call m_timer_Click

Case 4 '第四个按钮链接“列表框组合框”菜单项

Call m_list_Click

End Select

End Sub

代码设计好后，关闭代码设计界面。

注：在进行代码设计时，只有菜单项的代码设计窗口是通过单击相应菜单项进入，其他控件的代码设计界面均需要通过双击相应控件进入，进入后默认的事件是该控件最常用的事件，我们在编码设计时往往是对默认事件进行编程。

【步骤10】为字体格式设置界面进行代码设计：该界面只需要对“确认”按钮的单击事件编写代码，实现单选钮和检查框对字体的格式设置，具体代码如下：

Private Sub Command1_Click()

If Option1.Value = True Then '利用单选钮的值设置字号

Text1.FontSize = 5

ElseIf Option2.Value = True Then

Text1.FontSize = 10

ElseIf Option3.Value = True Then

Text1.FontSize = 20

End If

If Check1.Value = 1 Then '利用复选框的值设置其他效果

Text1.ForeColor = &HFF&

End If

If Check2.Value = 1 Then

Text1.FontUnderline = True

End If

If Check3.Value = 1 Then

Text1.FontBold = True

End If

End Sub

代码设计好后，关闭代码设计界面。

【步骤11】为数值计算界面进行代码设计：该界面只需要对“求绝对值”和“求和”两个命令按钮进行代码设计。

“求绝对值”命令按钮单击事件代码设计如下：

Private Sub Command1_Click()

If Int(Text1.Text) < 0 Then '利用函数int将字符串转换为数字

Text2.Text = Str(-Int(Text1.Text)) '利用函数str将数字转换为字符串Else: Text2.Text = Str(Text1.Text)

End If

End Sub

“求和”命令按钮单击事件代码设计如下：

Private Sub Command2_Click()

Dim i As Integer, y As Integer

y = 0

i = 1

For i = 1 To Int(Text2.Text) '利用for循环实现求和操作

y = y + i

Next

Text3.Text = Str(y)

End Sub

代码设计好后，关闭代码设计界面。

【步骤12】为定时器图片浏览界面进行代码设计：该界面的运行流程是，在窗体第一次出现时首先应出现第一幅图片，同时需要在窗体加载时设置定时器的时间间隔，然后利用定时器的timer事件进行图片的连续播放，播放间隔为窗体加载时设计的时间间隔。定时器和窗体对于图片的名称和图片的数目等变量是共享的，所以还需要设置通用变量。

设计窗体form的加载load事件，双击窗体的空白区域，在代码设计界面首先设置通用变量然后设计窗体的加载事件，设置通用变量的方法是，在如图5-29所示的“对象选择下拉框”中选择“通用”，然后输入如下变量定义：

Dim picnum As Integer

Dim picname As String

再通过“对象选择下拉框”选择form，为form的load事件编写如下代码：

Private Sub Form_Load()

picnum = 1

picname ="E:\2008级数据库\VB作品\picture\" & picnum & ".jpg"

'图片保存在相应目录下的picture文件夹内，并以1.jpg，2.jpg等命名

Form1.Caption = Form1.Caption + picname

Picture1.Picture = LoadPicture(picname)

Timer1.Interval = 2000