VB事件和事件处理.ppt

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