2020-事件-事件与事件处理ppt课件

1、Version 3.0第二章第二章 可视化程序设计可视化程序设计 字符界面的缺点和图形用户界面的需求字符界面的缺点和图形用户界面的需求 可视化程序设计的基本思想可视化程序设计的基本思想 使用使用VB开发开发Windows应用程序的优点应用程序的优点 介绍介绍Visual Basic集成开发环境集成开发环境 运用运用 Visual Basic 提供的各种编程控件提供的各种编程控件 在在Visual Basic 中编译和执行程序中编译和执行程序 了解了解 Windows 应用程序的事件驱动设计应用程序的事件驱动设计 使用常用的控件，如标签、文本框和命使用常用的控件，如标签、文本框和命令按钮令按钮

2、编写事件驱动程序的代码编写事件驱动程序的代码 在运行时更改控件的属性在运行时更改控件的属性 运用运用 MSGBOX 系统对话框进行用户交互系统对话框进行用户交互 Visual Basic 程序是事件驱动的程序是事件驱动的 每个对象都有它自己的事件集每个对象都有它自己的事件集 在事件驱动应用程序中，代码不会遵循固在事件驱动应用程序中，代码不会遵循固定的执行路径，而是由操作来决定定的执行路径，而是由操作来决定 响应事件时执行的代码称为事件处理程序响应事件时执行的代码称为事件处理程序 可以为用户提供即时反馈可以为用户提供即时反馈 使程序设计更贴近用户的操作需要使程序设计更贴近用户的操作需要 使程序设

3、计的目的性更强使程序设计的目的性更强 减少程序的复杂性减少程序的复杂性 可分为用户事件和系统事件可分为用户事件和系统事件Private Sub Command1_Click () . 要执行的语句要执行的语句 .End SubPrivate Sub Command1_DragDrop (Source As Control, X As Single, Y As Single) . 要执行的语句要执行的语句 .End Sub 不带参数不带参数的事件的事件带参数的带参数的事件事件 由用户执行的某些操作所触发的事件由用户执行的某些操作所触发的事件称为用户事件。例如，简单的用户操称为用户事件。例如，简单

4、的用户操作：作： 单击窗体上的命令按钮单击窗体上的命令按钮 在文本框中输入数据在文本框中输入数据 在窗体上任意位置单击鼠标在窗体上任意位置单击鼠标 在窗体上拖动鼠标在窗体上拖动鼠标（在（在VBVB环境中进行演示）环境中进行演示） 由其他事件或由其他事件或Windows操作系统触发操作系统触发的事件称为系统事件，例如：的事件称为系统事件，例如：Timer 事件就是一个系统事件的例子。事件就是一个系统事件的例子。 系统事件无需任何用户干预系统事件无需任何用户干预 Visual Basic 事件是针对操作和与之相事件是针对操作和与之相关联的每个控件而单独进行编码的关联的每个控件而单独进行编码的 仅当

5、用户触发特定操作时事件才会发生仅当用户触发特定操作时事件才会发生 必须存在当事件发生时可以执行的代码必须存在当事件发生时可以执行的代码 直到事件发生并引起响应时，用户才意直到事件发生并引起响应时，用户才意识到存在与该事件的发生相关联的代码识到存在与该事件的发生相关联的代码事件事件说明说明Initialize用于初始化应用程序用于初始化应用程序Load执行显示窗体前所需的操作执行显示窗体前所需的操作 （示例）（示例）Unload卸载窗体时，将发生此事件卸载窗体时，将发生此事件Click除标题栏之外，在窗体上的空白区或窗体上的无效除标题栏之外，在窗体上的空白区或窗体上的无效控件上单击鼠标时，将触发

6、此事件控件上单击鼠标时，将触发此事件DblClick除标标题栏之外，在窗体上的空白区或窗体上的无除标标题栏之外，在窗体上的空白区或窗体上的无效控件上双击鼠标时，将触发此事件效控件上双击鼠标时，将触发此事件Resize窗体的窗口尺寸改变后，第一次显示该窗体时将发窗体的窗口尺寸改变后，第一次显示该窗体时将发生此事件生此事件Private Sub Form_Load() Text1.text=”大家好大家好”End Sub 返返 回回 在加载窗体时，名称为在加载窗体时，名称为“Text1的文的文本框会显示本框会显示“大家好大家好”。事件事件说明说明Click每次单击控件时发生每次单击控件时发生Key

7、Press按下并释放任何键盘键时发生按下并释放任何键盘键时发生MouseDown按下鼠标按钮不松开时，将发生此事件按下鼠标按钮不松开时，将发生此事件MouseMove在控件上移动鼠标时，将发生此事件在控件上移动鼠标时，将发生此事件 Visual Basic 中的应用程序编码时，需中的应用程序编码时，需要使用以下三个主要特征：要使用以下三个主要特征： 属性：控件的特性属性：控件的特性 方法：控件所提供的某种能执行的操方法：控件所提供的某种能执行的操作作 事件：发生在用户和界面控件之间的事件：发生在用户和界面控件之间的交互。交互。 通过编写应用程序代码来设置控件的属通过编写应用程序代码来设置控件的

8、属性。例如，当用户在名称为性。例如，当用户在名称为“Text1的的文本框中输入文本框中输入“Q时，禁用命令按钮。时，禁用命令按钮。Private Sub Text1_LostFocus() If text1.text=Q Then command1.enabled=false End IfEnd Sub （在（在VBVB环境中进行演示）环境中进行演示） 通过在事件过程中编写应用程序代码，通过在事件过程中编写应用程序代码，还可以调用各种控件的方法，以执行还可以调用各种控件的方法，以执行某种操作。（例如）某种操作。（例如）例如，要在按钮例如，要在按钮Command1点击时，将点击时，将Form1窗

9、体隐藏并加载窗体隐藏并加载Form2。Private Sub Command1_Click()加载加载Form2Load Form2隐藏隐藏Form1Form1.Hide显示显示Form2Form2.ShowEnd Sub （在（在VBVB环境中进行演示）环境中进行演示） VB提供的一些方法提供的一些方法 Load：加载某个组件：加载某个组件 UnLoad：卸载某个组件：卸载某个组件 窗体的常用方法窗体的常用方法 Hide：隐藏窗体自身，但不被卸载：隐藏窗体自身，但不被卸载 Show：使窗体在屏幕上显示：使窗体在屏幕上显示 MsgBox 函数用于在用户与应用程序之函数用于在用户与应用程序之间进

10、行交互。间进行交互。 MsgBox 函数显示一个带有消息的对话函数显示一个带有消息的对话框并等待用户单击某个按钮来关闭它。框并等待用户单击某个按钮来关闭它。 用户点击按钮后，会返回一个值指示用用户点击按钮后，会返回一个值指示用户单击的按钮。户单击的按钮。MsgBox ( 提示信息提示信息, 标志和按钮标志和按钮, 对对话框的标题信息话框的标题信息 )标题信息标题信息提示信息提示信息标志和按钮标志和按钮 消息框中“标志和按钮参数中关于按钮类型和数目的值：按钮值常数按钮值常数值值说明说明vbOKOnly0只显示只显示“确定确定”按钮按钮vbOKCancel1显示显示“确定确定”和和“取消取消”按钮

11、按钮vbAbortRetryIgnore2显示显示“放弃放弃”、“重试重试”和和“忽略忽略”按钮按钮vbYesNoCancel3显示显示“是是”、“否否”和和“取消取消”按按钮钮vbYesNo4显示显示“是是”和和“否否”按钮按钮vbRetryCanel5显示显示“重试重试”和和“取消取消”按钮按钮 消息框中“标志和按钮参数中关于描述图标样式的值：图标样式常数图标样式常数值值说明说明vbCritical16显示显示临界信息图标。临界信息图标。vbQuestion32显示警告查询图标。显示警告查询图标。vbExclamation48显示警告消息图标。显示警告消息图标。vbInformation6

12、4显示信息消息图标。显示信息消息图标。 消息框中“标志和按钮参数中关于确定默认按钮的值：默认按钮常数默认按钮常数值值说明说明vbDefaultButton10第一个按钮为默认按钮。第一个按钮为默认按钮。vbDefaultButton2256第二个按钮为默认按钮。第二个按钮为默认按钮。vbDefaultButton3512第三个按钮为默认按钮。第三个按钮为默认按钮。vbDefaultButton4768第四个按钮为默认按钮。第四个按钮为默认按钮。 消息对话框的返回值常数常数值值按钮按钮vbOK1“确定确定”按钮按钮vbCancel2“取消取消”按钮按钮vbAbort3“放弃放弃”vbRetry4“重试重试” 按钮按钮vbIgnore5“取消取消”按钮按钮vbYes6“是是” 按钮按钮vbNo7“否否” 按钮按钮 （在VB环境中进行演示）Private Sub Form_Load() Dim strResult As String strResult = MsgBox(确实要删除数据吗？确实要删除数据吗？, vbOKCancel + vbQuestion + vbDefaultButton2, 删删除数