VB程序设计案例教程（ ） 第2章 中文 VB 程序设计基础.pptVIP

第2章窗体和常用控件 【案例7】窗体事件 【拓展案例11】Print方法验证 【拓展案例12】欢迎学习VB程序设计 【拓展案例13】字母图案 【案例8】窗体操作 【拓展案例14】文字移动 【拓展案例15】调整窗体 【案例9】动画数字钟 【拓展案例16】字符三角形 【拓展案例17】打老鼠游戏 【拓展案例18】击打彩块游戏 【案例10】跟踪鼠标和按键 【拓展案例19】鼠标拖曳移动对象 【拓展案例20】按键ASCII码和KeyCode码值 【拓展案例21】键盘控制米老鼠移动 【案例11】选择不同窗体 【拓展案例22】登录检验 2.1 【案例7】 窗体事件 2.1.1 学习目标 在“窗体事件”程序运行后，系统会自动调出如图2-1-1左图所示的提示框，表示窗体加载后产生了Load事件；单击“确定”按钮，会弹出图2-1-1中图所示的提示框和窗体，表示产生了Resize事件；单击“确定”按钮后，关闭窗体，只显示提示框，如图2-1-1右图所示。 用鼠标拖曳窗体的边缘，调整窗体的大小，也会弹出图2-1-1中图所示的提示框，表示产生了Resize事件；单击“确定”按钮后，再单击窗体内右上角的“关闭”按钮，会自动调出图2-1-1右图所示的提示框，表示产生了UnLoa事件，单击“确定”按钮，即可关闭窗体。 通过本案例的学习，可以了解窗体的几个常用事件，进一步掌握MsgBox函数的使用方法。 2.1.2 设计方法 （1）启动中文VB 6.0，进入中文VB6.0的开发环境。调整窗体大小，设置窗体的Caption属性值为“窗体事件”。 （2）鼠标双击窗体，调出“代码”窗口，在“代码”窗口中输入以下代码。 Rem 窗体被载入 Private Sub Form_Load() MsgBox 窗体被载入，发生Load事件。 End Sub Rem 窗体大小被改变 Private Sub Form_Resize() MsgBox 窗体大小被改变，发生Resize事件。 End Sub Rem 卸载窗体 Private Sub Form_Unload(Cancel As Integer) MsgBox 窗体被卸载，发生UnLoad事件。 End Sub 2.1.3 相关知识 1．窗体的常用事件 （1）Activate事件：当一个窗体对象被激活时，会产生该事件，其表现为窗体可见，是活动窗体。只有当对象为可见时，才能产生该事件。运行窗体程序、使用Show等方法、单击一个对象或者将对象的Visible属性设置为True等，都可以激活窗体，使窗体成为活动窗口。 （2）Deactivate事件：当另一个窗体或应用程序被激活，原窗体对象不再是活动窗体时，就会发生Deactivate事件。 （3）Initialize事件：当程序创建一个窗体时，将触发该事件。通过该事件可以初始化窗体需要使用的数据（可将初始化程序放在该事件的程序段中）。该事件发生在Load事件之前。 （2）Load事件：它是在一个窗体被加载时产生。触发事件后，先把窗体属性设置为初始值，再执行Load事件过程。Load事件很适用于在启动程序时对属性和变量进行初始化。 如果在Form_Load事件内显示信息，必须使用Show方法或者把AutoRedraw属性设为True。否则，当程序运行时什么都不显示。 （4）Unload事件：它是在一个窗体被卸载时产生。当单击窗体内右上角的“关闭”按钮或执行Unload语句时，就可以触发Unload事件。该事件过程的基本语法格式如下。 【格式】Private Sub Form_Unload(Cancel As Integer) 其中，Cancel表示是一个整数，如果它为非0的值时，可以阻止该窗体被删除；如果它为0时，则该窗体会被删除。 （5）Paint事件：产生Paint事件后可以进行窗体的重绘。为了使应用程序在运行时不致于因某些原因使窗体内容失真，通常用Paint事件过程来重绘窗体内容。若将窗体的AutoRedraw属性(下面介绍)设置为True，可自动完成窗体重绘。如果窗体的ClipControls属性设置为False时，则重绘窗体刚刚显露的部分，否则重绘整个窗体。该事件过程的基本语法格式如下。 【格式】Sub Form_Paint() 在应用程序运行时，若出现下列情况，就会自动产生Paint事件。 ◎ 窗体窗口被最小化成图标，然后又恢复正常显示状态； ◎ 原本遮挡着该窗体的窗体被移开并使该窗体全部或部分显露出来； ◎ 该窗体因其他窗体的移动而被全部或部分遮挡时； ◎ 窗体的大小改变和移动； ◎ 使用Refresh（刷新）方法。