第 2章 Visual Basic程序设计基础知识
人民邮电出版社
21世纪高等学校计算机基础教育系列教材
程序设计方法的演变
程序设计语言可以分成四代，即机器语言、汇编语言、高级语言和 4GL（第四代语言）。由于机器语言和汇编语言只适合于专业的编程人员使用，所以很快就被高级语言（例如 C
语言等）取代了，但是用高级语言编写程序的时候，程序员还要进行程序算法的设计，即不仅要告诉计算机“做什么”，
还要告诉计算机“怎么做”。第四代语言（数据库语言）出现了之后，只要告诉计算机“做什么”，而不需要告诉计算机“怎么做”。为了节约程序界面设计的时间，而实现程序的强大功能，人们开始考虑在程序设计中采用可视化编程的方法，即通过使用事先设计好的界面，或通过在窗口中添加一些组件或对象的方法来达到程序的界面的美观，然后再对这些对象或组件进行一些必要的属性设置、事件驱动等操作，
从而达到程序的功能完善。这种程序设计语言叫做面向对象程序设计的方法（ Object Oriented Programming 简称 OOP），
也有人把它叫做第五代程序设计语言。 Visual Basic程序设计语言就是一种面向对象的程序设计语言。这是一种可视化的编程语言。
Visual Basic的工作机制
Visual Basic是一种基于对象的程序设计语言。一个 Visual Basic程序由多个对象以及响应各种事件的代码组成。当用户对对象进行某些操作（例如鼠标单击、双击等）时,Visual Basic程序就调用相应的代码来完成相应的操作。
VB可视化编程的基本概念
1.2.1 对象的属性、事件和方法
1,对象的属性
2,对象的事件
3,事件的方法对象名,方法名如图片框 Picture1有刷新显示方法 Refresh,在事件过程代码中调用该方法的代码为 Picture1.Refresh
VB的控件
VB中的控件通常分为 3种类型：
(1) 内部控件 。 在默认状态下工具箱中显示的控件都是内部控件,这些控件被,封装,在 VB的 EXE文件中,不可从工具箱中删除 。 如命令按钮,单选,复选框等控件 。
(2) ActiveX控件 。 这类控件单独保存在,ocx类型的文件中,
其中包括各种版本 VB提供的控件,如数据绑定网格,数据绑定组合框等和仅在专业版和企业版中提供的控件,如标准公共对话框控件,动画控件和 MCI控件等,另外也有许多软件厂商提供的 ActiveX控件 。
(3) 可插入的对象 。 用户可将 Excel工作表或 PowerPoint幻灯片等作为一个对象添加到工具箱中,编程时可根据需要随时创建 。
VB的内部控件对于每个对象来说，都有它的属性和方法，对于这些常用对象来说，
它们的常用属性主要有,Name（名称）,Caption（标题），
Font（字体）,Text（文本）,BackColor（背景色）,Width
（宽度）,Height（高度）,Left,Top（左上角坐标），
Enabled（是否可用）,Visible（是否可见）等。有些属性在设计的时候可以改变属性值，也可以在运行中改变属性值，如
Caption属性等，有些属性只能在设计时改变，在运行中不能改变，如 Name属性。
当需要对象完成某个动作的时候，就需要调用对象的方法。 Visual
Basic中，有对象的不同而具有不同的方法，对于窗体来说，主要有如下常用的方法：
Cls 方法,清除在窗体上绘制的图形和显示的文字。
Show 方法,显示窗体，窗体被调入内存时不会立刻显示，可以通过 Show方法来显示。
Hide 方法,隐藏窗体，使之不可见，而不是从内存中清除。
其他的对象，还有很多其他的方法，例如列表框和组合框的 AddItem
方法和 RemoveItem方法等，在实际使用中，请读者查阅相关的资料。
鼠标事件鼠标事件就是由鼠标触发的各种事件，是 Visual Basic中最常用的事件，绝大多数对象都有鼠标事件（ Timer控件没有鼠标事件）。鼠标事件主要包括以下几种：
Click 单击鼠标左键时发生的事件；
Dblclick 双击鼠标左键或右键时发生的事件；
MouseMove 鼠标移动的时候连续发生的事件；
MouseDown 鼠标左、右键被按下式发生的事件；
MouseUp 鼠标左、右键被释放的时候发生的事件。
按下鼠标左键同时发生三个事件：发生的次序是,MouseDown,MouseUp，
Click。也就是说，鼠标的 Click事件是在 MouseUp事件之后发生的。
对于鼠标事件中的 MouseDown事件和 MouseUP事件，其格式分别是：
Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
位置参数 第三位为 1时 第二位为 1时 第一位为 1时
Button 中间键按下 * 右键按下 左键按下
Shift ALT 键按下 CTRL 键按下 SHIFT键按下第三位 第二位 第一位键盘事件键盘是计算机不可缺少的组成部分。键盘事件也是计算机程序设计中不可缺少的事件。键盘事件主要有,KeyPress,KeyDown,KeyUp 3个事件，
KeyPress事件是在按了键盘上的键的时候发生的,KeyDown是指在按下键盘上的键的时候发生的事件,KeyUp则是放开键之后发生的事件。
KeyPress 带有一个参数 KeyAscii AS Integer，该参数取值在 0— 255之间，
其中,48— 57（对应 0— 9）,65— 90（对应 A— Z）,97-122（对应 a—
z）,13 回车键,10 对应换行。
这两个函数返回键盘的直接状态，他们确定的是“键”,KeyPress返回的是
“字符的 ASCII码”，就是说，用 KeyUp和 KeyDown返回的字母是不区分大小写的，要区分大小写只能通过其中的参数 Shift来判断。
这两个函数有两个参数,KeyCode AS Integer,Shift AS Integer
KeyCode的取值是实际的 ASCII码值，仅以“键”为准，不以“字符”为准，
也就是说，它的大写字母和小写字母是一致的，返回的是同一个数值。
键（字符） KeyCode KeyAscii
“A” &H41 &H41
“a” &H41 &H61
“B” &H42 &H42
“b” &H42 &H62
“5” &H35 &H35
“%” &H35 &H25
“1”(大键盘上 ) &H31 &H31
“1”（数字键盘上）
&H61 &H31
窗体设计器对象列表拆分框查看模式事件列表代码窗口控件的画法在窗体上画一个控件在窗体上画一个控件有两种方法：
l 前面已经作过介绍,即单击工具箱中的控件按钮,在窗体上拖动鼠标画出控件 。
l 双击工具箱中的控件按钮,即可在窗体的中央画出控件 。
控件的缩放和移动控件的复制与删除控件的布局
1,选定多个控件
2,对齐子菜单
3,按相同大小制作子菜单
4,水平间距和垂直间距子菜单
5,在窗体上居中对齐子菜单
6,顺序子菜单
VB可视化编程的步骤
VB可视化编程的一般步骤如下 。
(1) 设计界面 。 先建立窗体,再利用控件在窗体上创建各种对象 。
(2) 设置属性 。 设置窗体或控件等对象的属性 。
(3) 编写代码 。
新建一个工程新建一个工程有如下两种方法：
l 启动 VB后,系统显示,新建工程,对话框,在,新建工程,对话框的选项卡选择,标准 EXE”,然后单击,打开,按钮 。
l 在,文件,菜单中选择,新建工程,子菜单,然后在,新建工程,对话框中选择,标准 EXE”并单击,打开,按钮 。
添加控件向窗体添加控件的方法如下 。
(1) 单击工具箱中的控件图标,鼠标指针变成一个十字指针 。
(2) 在窗体的工作区按住鼠标左键拖动鼠标,即可在窗体上画出对应控件 。
设置属性对象属性的设置是在属性窗口中进行的,其操作方法如下 。
(1) 首先设置窗体 Form1的属性。
(2) 设置控件的属性。
编写代码在,过程,事件下拉列表框中选择 Load事件,在代码窗口中输入下列代码：
Private Sub Form_Load()
Label1.Caption = "今天是," & Chr(13) & Format(Date,"dddddd")
End Sub
用同样的方法,输入命令按钮 Command1和 Command2的单击
（ Click） 事件过程代码：
Private Sub Command1_Click()
Label1.Caption = "欢迎使用 " & Chr(13) & "Visual Basic"
End Sub
Private Sub Command2_Click()
Label1.Caption = "现在是北京时间," & Format(Time,"ttttt")
End Sub
说明：事件过程的首尾两行 （ 粗体 ）,
Private Sub Command1_Click()
End Sub
是系统自动给出的代码,程序员不必重复输入 。
单击工具栏上的,启动,按钮或按 〈 F5〉 键,即可运行工程 。 用鼠标单击,欢迎,按钮,显示如图 8左所示,
用鼠标单击,时间,按钮,窗体显示如图右所示 。
保存窗体的方法为：
单击,文件,菜单中的,保存
form1”或,form1另存为,,如图所示 。
单击工具栏上的,保存工程,按钮 。
保存工程的方法为：
单击“文件”菜单中的“保存工程”
或“工程另存为”，如图所示。
单击工具栏上的“保存工程”按钮。
保存窗体和工程
人民邮电出版社
21世纪高等学校计算机基础教育系列教材
程序设计方法的演变
程序设计语言可以分成四代，即机器语言、汇编语言、高级语言和 4GL（第四代语言）。由于机器语言和汇编语言只适合于专业的编程人员使用，所以很快就被高级语言（例如 C
语言等）取代了，但是用高级语言编写程序的时候，程序员还要进行程序算法的设计，即不仅要告诉计算机“做什么”，
还要告诉计算机“怎么做”。第四代语言（数据库语言）出现了之后，只要告诉计算机“做什么”，而不需要告诉计算机“怎么做”。为了节约程序界面设计的时间，而实现程序的强大功能，人们开始考虑在程序设计中采用可视化编程的方法，即通过使用事先设计好的界面，或通过在窗口中添加一些组件或对象的方法来达到程序的界面的美观，然后再对这些对象或组件进行一些必要的属性设置、事件驱动等操作，
从而达到程序的功能完善。这种程序设计语言叫做面向对象程序设计的方法（ Object Oriented Programming 简称 OOP），
也有人把它叫做第五代程序设计语言。 Visual Basic程序设计语言就是一种面向对象的程序设计语言。这是一种可视化的编程语言。
Visual Basic的工作机制
Visual Basic是一种基于对象的程序设计语言。一个 Visual Basic程序由多个对象以及响应各种事件的代码组成。当用户对对象进行某些操作（例如鼠标单击、双击等）时,Visual Basic程序就调用相应的代码来完成相应的操作。
VB可视化编程的基本概念
1.2.1 对象的属性、事件和方法
1,对象的属性
2,对象的事件
3,事件的方法对象名,方法名如图片框 Picture1有刷新显示方法 Refresh,在事件过程代码中调用该方法的代码为 Picture1.Refresh
VB的控件
VB中的控件通常分为 3种类型：
(1) 内部控件 。 在默认状态下工具箱中显示的控件都是内部控件,这些控件被,封装,在 VB的 EXE文件中,不可从工具箱中删除 。 如命令按钮,单选,复选框等控件 。
(2) ActiveX控件 。 这类控件单独保存在,ocx类型的文件中,
其中包括各种版本 VB提供的控件,如数据绑定网格,数据绑定组合框等和仅在专业版和企业版中提供的控件,如标准公共对话框控件,动画控件和 MCI控件等,另外也有许多软件厂商提供的 ActiveX控件 。
(3) 可插入的对象 。 用户可将 Excel工作表或 PowerPoint幻灯片等作为一个对象添加到工具箱中,编程时可根据需要随时创建 。
VB的内部控件对于每个对象来说，都有它的属性和方法，对于这些常用对象来说，
它们的常用属性主要有,Name（名称）,Caption（标题），
Font（字体）,Text（文本）,BackColor（背景色）,Width
（宽度）,Height（高度）,Left,Top（左上角坐标），
Enabled（是否可用）,Visible（是否可见）等。有些属性在设计的时候可以改变属性值，也可以在运行中改变属性值，如
Caption属性等，有些属性只能在设计时改变，在运行中不能改变，如 Name属性。
当需要对象完成某个动作的时候，就需要调用对象的方法。 Visual
Basic中，有对象的不同而具有不同的方法，对于窗体来说，主要有如下常用的方法：
Cls 方法,清除在窗体上绘制的图形和显示的文字。
Show 方法,显示窗体，窗体被调入内存时不会立刻显示，可以通过 Show方法来显示。
Hide 方法,隐藏窗体，使之不可见，而不是从内存中清除。
其他的对象，还有很多其他的方法，例如列表框和组合框的 AddItem
方法和 RemoveItem方法等，在实际使用中，请读者查阅相关的资料。
鼠标事件鼠标事件就是由鼠标触发的各种事件，是 Visual Basic中最常用的事件，绝大多数对象都有鼠标事件（ Timer控件没有鼠标事件）。鼠标事件主要包括以下几种：
Click 单击鼠标左键时发生的事件；
Dblclick 双击鼠标左键或右键时发生的事件；
MouseMove 鼠标移动的时候连续发生的事件；
MouseDown 鼠标左、右键被按下式发生的事件；
MouseUp 鼠标左、右键被释放的时候发生的事件。
按下鼠标左键同时发生三个事件：发生的次序是,MouseDown,MouseUp，
Click。也就是说，鼠标的 Click事件是在 MouseUp事件之后发生的。
对于鼠标事件中的 MouseDown事件和 MouseUP事件，其格式分别是：
Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
位置参数 第三位为 1时 第二位为 1时 第一位为 1时
Button 中间键按下 * 右键按下 左键按下
Shift ALT 键按下 CTRL 键按下 SHIFT键按下第三位 第二位 第一位键盘事件键盘是计算机不可缺少的组成部分。键盘事件也是计算机程序设计中不可缺少的事件。键盘事件主要有,KeyPress,KeyDown,KeyUp 3个事件，
KeyPress事件是在按了键盘上的键的时候发生的,KeyDown是指在按下键盘上的键的时候发生的事件,KeyUp则是放开键之后发生的事件。
KeyPress 带有一个参数 KeyAscii AS Integer，该参数取值在 0— 255之间，
其中,48— 57（对应 0— 9）,65— 90（对应 A— Z）,97-122（对应 a—
z）,13 回车键,10 对应换行。
这两个函数返回键盘的直接状态，他们确定的是“键”,KeyPress返回的是
“字符的 ASCII码”，就是说，用 KeyUp和 KeyDown返回的字母是不区分大小写的，要区分大小写只能通过其中的参数 Shift来判断。
这两个函数有两个参数,KeyCode AS Integer,Shift AS Integer
KeyCode的取值是实际的 ASCII码值，仅以“键”为准，不以“字符”为准，
也就是说，它的大写字母和小写字母是一致的，返回的是同一个数值。
键（字符） KeyCode KeyAscii
“A” &H41 &H41
“a” &H41 &H61
“B” &H42 &H42
“b” &H42 &H62
“5” &H35 &H35
“%” &H35 &H25
“1”(大键盘上 ) &H31 &H31
“1”（数字键盘上）
&H61 &H31
窗体设计器对象列表拆分框查看模式事件列表代码窗口控件的画法在窗体上画一个控件在窗体上画一个控件有两种方法：
l 前面已经作过介绍,即单击工具箱中的控件按钮,在窗体上拖动鼠标画出控件 。
l 双击工具箱中的控件按钮,即可在窗体的中央画出控件 。
控件的缩放和移动控件的复制与删除控件的布局
1,选定多个控件
2,对齐子菜单
3,按相同大小制作子菜单
4,水平间距和垂直间距子菜单
5,在窗体上居中对齐子菜单
6,顺序子菜单
VB可视化编程的步骤
VB可视化编程的一般步骤如下 。
(1) 设计界面 。 先建立窗体,再利用控件在窗体上创建各种对象 。
(2) 设置属性 。 设置窗体或控件等对象的属性 。
(3) 编写代码 。
新建一个工程新建一个工程有如下两种方法：
l 启动 VB后,系统显示,新建工程,对话框,在,新建工程,对话框的选项卡选择,标准 EXE”,然后单击,打开,按钮 。
l 在,文件,菜单中选择,新建工程,子菜单,然后在,新建工程,对话框中选择,标准 EXE”并单击,打开,按钮 。
添加控件向窗体添加控件的方法如下 。
(1) 单击工具箱中的控件图标,鼠标指针变成一个十字指针 。
(2) 在窗体的工作区按住鼠标左键拖动鼠标,即可在窗体上画出对应控件 。
设置属性对象属性的设置是在属性窗口中进行的,其操作方法如下 。
(1) 首先设置窗体 Form1的属性。
(2) 设置控件的属性。
编写代码在,过程,事件下拉列表框中选择 Load事件,在代码窗口中输入下列代码：
Private Sub Form_Load()
Label1.Caption = "今天是," & Chr(13) & Format(Date,"dddddd")
End Sub
用同样的方法,输入命令按钮 Command1和 Command2的单击
（ Click） 事件过程代码：
Private Sub Command1_Click()
Label1.Caption = "欢迎使用 " & Chr(13) & "Visual Basic"
End Sub
Private Sub Command2_Click()
Label1.Caption = "现在是北京时间," & Format(Time,"ttttt")
End Sub
说明：事件过程的首尾两行 （ 粗体 ）,
Private Sub Command1_Click()
End Sub
是系统自动给出的代码,程序员不必重复输入 。
单击工具栏上的,启动,按钮或按 〈 F5〉 键,即可运行工程 。 用鼠标单击,欢迎,按钮,显示如图 8左所示,
用鼠标单击,时间,按钮,窗体显示如图右所示 。
保存窗体的方法为：
单击,文件,菜单中的,保存
form1”或,form1另存为,,如图所示 。
单击工具栏上的,保存工程,按钮 。
保存工程的方法为：
单击“文件”菜单中的“保存工程”
或“工程另存为”，如图所示。
单击工具栏上的“保存工程”按钮。
保存窗体和工程
