VB事件和事件处理

4 显示“是”和“否”按钮
vbRetryCanel
20
5 显示“重试”和“取消”按钮
MsgBox 函数语法 5-3
• 消息框中“标志和按钮”参数中关于描 述图标样式的值：
图标样式常数 vbCritical vbQuestion vbExclamation vbInformation
值
说明
16 显示临界信息图标。
‘要执行的语句
不带参数 的事件
...
End Sub
Baidu Nhomakorabea
Private Sub Command1_DragDrop (Source As Control,
X As Single, Y As Single)
... ‘要执行的语句
带参数的 事件
...
End Sub
• 可分为用户事件和系统事件
6
用户事件
• 由用户执行的某些操作所触发的事件 称为用户事件。例如，简单的用户操 作：
定的执行路径，而是由操作来决定 • 响应事件时执行的代码称为事件处理程序
4
事件驱动编程的优点
• 可以为用户提供即时反馈 • 使程序设计更贴近用户的操作需要 • 使程序设计的目的性更强 • 减少程序的复杂性
5
Visual Basic 的应用程序事件
Private Sub Command1_Click () ...
说明 用于初始化应用程序 执行显示窗体前所需的操作 （示例）
卸载窗体时，将发生此事件
除标题栏之外，在窗体上的空白区或窗体上的无效 控件上单击鼠标时，将触发此事件
DblClick Resize
除标标题栏之外，在窗体上的空白区或窗体上的无 效控件上双击鼠标时，将触发此事件
窗体的窗口尺寸改变后，第一次显示该窗体时将发 生此事件
32 显示警告查询图标。 48 显示警告消息图标。 64 显示信息消息图标。
21
MsgBox 函数语法 5-4
• 消息框中“标志和按钮”参数中关于确定 默认按钮的值：
默认按钮常数 vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4
第二章
事件和事件处理
Version 3.0
回顾
• 可视化程序设计
– 字符界面的缺点和图形用户界面的需求 – 可视化程序设计的基本思想 – 使用VB开发Windows应用程序的优点
• 介绍Visual Basic集成开发环境 • 使用 Visual Basic 提供的各种编程控件 • 在Visual Basic 中编译和执行程序
值
说明
0 第一个按钮为默认按钮。
256 第二个按钮为默认按钮。
512 第三个按钮为默认按钮。
768 第四个按钮为默认按钮。
22
MsgBox 函数语法 5-5
• 消息对话框的返回值
常数 vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo
值
按钮
1 “确定”按钮
12
Visual Basic 中的应用程序编码
• Visual Basic 中的应用程序编码时，需 要使用以下三个主要特征：
– 属性：控件的特性 – 方法：控件所提供的某种能执行的操作 – 事件：发生在用户和界面控件之间的交
互。
13
在运行时设置属性
• 通过编写应用程序代码来设置控件的属 性。例如，当用户在名称为“Text1”的文 本框中输入“Q”时，禁用命令按钮。
vbOKCancel + vbQuestion + vbDefaultButton2, " 删 除数据")
MsgBox ("选中的结果是：" + strResult) End Sub
• （在VB环境中进行演示）
24
示例：事件编程
• 在VB环境中演示本章教材最后一部分 的“示例”
25
总结
• 应用程序事件
• MsgBox 函数显示一个带有消息的对话 框并等待用户单击某个按钮来关闭它。
• 用户点击按钮后，会返回一个值指示用 户单击的按钮。
18
MsgBox 函数语法 5-1
MsgBox ( [提示信息], [标志和按钮], [对 话框的标题信息] )
标题信息
提示信息
标志和按钮
19
MsgBox 函数语法 5-2
– 单击窗体上的命令按钮 – 在文本框中输入数据 – 在窗体上任意位置单击鼠标 – 在窗体上拖动鼠标
（在VB环境中进行演示）
7
系统事件
• 由其他事件或Windows操作系统触发 的事件称为系统事件，例如：Timer 事 件就是一个系统事件的例子。
• 系统事件无需任何用户干预
8
Visual Basic 事件的封装
（在VB环境中进行演示）
16
Visual Basic及窗体的常用方法
• VB提供的一些方法
– Load：加载某个组件 – UnLoad：卸载某个组件
• 窗体的常用方法
– Hide：隐藏窗体自身，但不被卸载 – Show：使窗体在屏幕上显示
17
MsgBox 函数
• MsgBox 函数用于在用户与应用程序之 间进行交互。
15
在运行时调用方法 – 示例
例如，要在按钮Command1点击时，将Form1 窗体隐藏并加载Form2。
Private Sub Command1_Click() ‘加载Form2 Load Form2 ‘隐藏Form1 Form1.Hide ‘显示Form2 Form2.Show End Sub
2
目标
• 理解 Windows 应用程序的事件驱动设计 • 使用常用的控件，如标签、文本框和命
令按钮 • 编写事件驱动程序的代码 • 在运行时更改控件的属性 • 使用 MSGBOX 系统对话框进行用户交互
3
事件驱动编程
• Visual Basic 程序是事件驱动的 • 每个对象都有它自己的事件集 • 在事件驱动应用程序中，代码不会遵循固
Private Sub Text1_LostFocus() If text1.text="Q" Then command1.enabled=false End If
End Sub
（在VB环境中进行演示）
14
在运行时调用方法
• 通过在事件过程中编写应用程序代码， 还可以调用各种控件的方法，以执行 某种操作。（示例）
• 消息框中“标志和按钮”参数中关于按 钮类型和数目的值：
按钮值常数 值
说明
vbOKOnly
0 只显示“确定”按钮
vbOKCancel
1 显示“确定”和“取消”按钮
vbAbortRetryIgnore vbYesNoCancel vbYesNo
2 显示“放弃”、“重试”和“忽略” 按钮
3 显示“是”、“否”和“取消”按 钮
• Visual Basic 事件是针对操作和与之相关 联的每个控件而单独进行编码的
• 仅当用户触发特定操作时事件才会发生 • 必须存在当事件发生时可以执行的代码 • 直到事件发生并引起响应时，用户才意
识到存在与该事件的发生相关联的代码
9
窗体事件
事件 Initialize Load Unload Click
– 事件 – Visual Basic事件编码机制 – 用户事件和系统事件
• Visual Basic中窗体和控件事件 • 事件处理程序代码的编写 • 使用MsgBox函数
26
2 “取消”按钮
3 “放弃” 4 “重试” 按钮
5 “取消”按钮 6 “是” 按钮
7 “否” 按钮
23
MsgBox 函数 – 示例
Private Sub Form_Load() Dim strResult As String strResult = MsgBox(" 确 实 要 删 除 数 据 吗 ？ " ,
10
窗体事件 – Load示例
• 在加载窗体时，名称为“Text1”的文本 框会显示“大家好”。
Private Sub Form_Load() Text1.text=”大家好”
End Sub
返回
11
控件事件
事件 Click KeyPress MouseDown MouseMove
说明 每次单击控件时发生 按下并释放任何键盘键时发生 按下鼠标按钮不松开时，将发生此事件 在控件上移动鼠标时，将发生此事件