第24讲 VB课件new.pptVIP

多重窗体 一个程序由多个窗体构成称为多重窗体。 多重窗体程序设计, 通过“工程”菜单的“添加窗体”命令为程序添加窗体。 一、有关的语句和方法 1. load语句 格式：load 窗体名称 该语句用于把一个窗体装入内存，但不显示到屏幕上。 2. unload语句 格式：unload 窗体名称 该语句用于把一个窗体卸载。 3. show方法 格式： [窗体名称], show[模式] 该方法用于显示一个窗体，该方法同时具备load语句的功能，即当窗体不在内存中，先调入内存再显示到屏幕上。 参数模式的值取 1时 ，窗体为模态型，取 0 时 ，窗体为非模态型。 4. Hide方法 格式：[ 窗体名称] . Hide 该方法用于隐藏一个窗体，但不从内存卸载。 二、多重窗体程序的执行与保存 1. 指定启动窗体 执行“工程”菜单的“工程属性”命令,在弹出的对话框中选择“通用”选项卡,在启动对象组合框中设置。 2. 多窗体程序的存取 要保存一个多窗体程序可执行“文件|保存工程”或“文件|工程另保存为”命令，系统将弹出对话框，根据提示保存该程序的每个文件。 【例2】 p232 例10.1 三、Sub main 过程 在一个含有多个窗体或多个模块的程序中，需要在运行启动窗体之前进行一些初始化工作，为此，可以定义一个Sub main 过程。 一个程序中如果设计了Sub main 过程,该过程将优先执行。 Sub main 过程必须建立在标准模块中。 鼠标事件和键盘事件 一 键盘事件 VB中的对象识别键盘事件，包括KeyPress、KeyUp 和 KeyDown 事件。用户按下并且释放一个键时就会触发 KeyPress 事件；用户按下一个键时触发KeyDown 事件，释放触发 KeyUp 事件。 1、格式 Sub 对象名_KeyPress（KeyAscii As Integer） Sub 对象名_KeyDown（KeyCode As Integer，Shift As Integer） Sub 对象名_KeyUp（KeyCode As Integer，Shift As Integer） 2、Keycode 值和 keyascii 值 3、Shift 参数的值 【例2】在窗体上放一文本框，编写一事件过程，保证在该文本框内只能输入字母，且无论大小写，都要转换成大写字母显示。 Private Sub Text1_KeyPress（KeyAscii As Integer） Dim str$ If KeyAscii 65 Or KeyAscii 122 Then KeyAscii = 0 ElseIf KeyAscii = 65 And KeyAscii = 90 Then Text1 = Text1 + Chr（KeyAscii） Else str = UCase（Chr（KeyAscii）） KeyAscii = 0 Text1 = Text1 + str End If End Sub 2 鼠标事件 Click DblClick MouseDown MouseUp MouseMove 大多数控件都能响应这些事件。 MouseDown：鼠标的任一键被按下时触发该事件。 MouseUp：鼠标的任一键被释放时触发该事件。 MouseMove：鼠标被移动时触发该事件。 以Form 对象为例，它们的语法格式为： Private Sub Form_MouseDown（Button