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

《VB程序设计案例教程（ ） 第2章 中文 VB 程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第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、”程序运行后，系统会自动调出如图2-1-1左图所示的提示框，表示窗体加载后产生了Load事件；单击“确定”按钮，会弹出图2-1-1中图所示的提示框和窗体，表示产生了Resize事件；单击“确定”按钮后，关闭窗体，只显示提示框，如图2-1-1右图所示。用鼠标拖曳窗体的边缘，调整窗体的大小，也会弹出图2-1-1中图所示的提示框，表示产生了Resize事件；单击“确定”按钮后，再单击窗体内右上角的“关闭”按钮，会自动调出图2-1-1右图所示的提示框，表示产生了UnLoa事件，单击“确定”按钮，即可关闭窗体。通过本案例的学习，可以了解窗体的几个常

3、用事件，进一步掌握MsgBox函数的使用方法。图2-1-1“窗体事件”程序运行后的3幅画面2.1.2设计方法（1）启动中文VB6.0，进入中文VB6.0的开发环境。调整窗体大小，设置窗体的Caption属性值为“窗体事件”。（2）鼠标双击窗体，调出“代码”窗口，在“代码”窗口中输入以下代码。Rem窗体被载入PrivateSubForm_Load()MsgBox"窗体被载入，发生Load事件。"EndSubRem窗体大小被改变PrivateSubForm_Resize()MsgBox"窗体大小被改变，发生Resize事件。"EndSubRe

4、m卸载窗体PrivateSubForm_Unload(CancelAsInteger)MsgBox"窗体被卸载，发生UnLoad事件。"EndSub2.1.3相关知识1．窗体的常用事件（1）Activate事件：当一个窗体对象被激活时，会产生该事件，其表现为窗体可见，是活动窗体。只有当对象为可见时，才能产生该事件。运行窗体程序、使用Show等方法、单击一个对象或者将对象的Visible属性设置为True等，都可以激活窗体，使窗体成为活动窗口。（2）Deactivate事件：当另一个窗体或应用程序被激活，原窗体对象不再是活动窗体时，就会发生

5、Deactivate事件。（3）Initialize事件：当程序创建一个窗体时，将触发该事件。通过该事件可以初始化窗体需要使用的数据（可将初始化程序放在该事件的程序段中）。该事件发生在Load事件之前。（2）Load事件：它是在一个窗体被加载时产生。触发事件后，先把窗体属性设置为初始值，再执行Load事件过程。Load事件很适用于在启动程序时对属性和变量进行初始化。如果在Form_Load事件内显示信息，必须使用Show方法或者把AutoRedraw属性设为True。否则，当程序运行时什么都不显示。（4）Unload事件：它是在一个窗体被

6、卸载时产生。当单击窗体内右上角的“关闭”按钮或执行Unload语句时，就可以触发Unload事件。该事件过程的基本语法格式如下。【格式】PrivateSubForm_Unload(CancelAsInteger)其中，Cancel表示是一个整数，如果它为非0的值时，可以阻止该窗体被删除；如果它为0时，则该窗体会被删除。（5）Paint事件：产生Paint事件后可以进行窗体的重绘。为了使应用程序在运行时不致于因某些原因使窗体内容失真，通常用Paint事件过程来重绘窗体内容。若将窗体的AutoRedraw属性(下面介绍)设置为True，可自动

7、完成窗体重绘。如果窗体的ClipControls属性设置为False时，则重绘窗体刚刚显露的部分，否则重绘整个窗体。该事件过程的基本语法格式如下。【格式】SubForm_Paint()在应用程序运行时，若出现下列情况，就会自动产生Paint事件。◎窗体窗口被最小化成图标，然后又恢复正常显示状态；◎原本遮挡着该窗体的窗体被移开并使该窗体全部或部分显露出来；◎该窗体因其他窗体的移动而被全部或部分遮挡时；◎窗体的大小改变和移动；◎使用Refresh（刷新）方法。（6）Resize事件：应用程序运行时，调出窗体和调整窗体的大小时，会产生Resiz

8、e事件，此时会重新绘制窗体。若将窗体的AutoRedraw属性设置为True，那么当窗体大小改变时就可以自动完成窗体内容的重绘。该事件过程的基本语法格式如下。【格式】PrivateSubFor