Visual Basic程序设计教程（医药类） 陈素 第4章 应用界面设计.pptVIP

VB程序设计教程 第四章 应用界面设计 4.1 窗体 4.2 控件基础 4.3 选择性控件 4.4 列表框、组合框及文件系统控件 4.5 图形控件和绘图方法 4.6 MDI窗体 4.7 菜单设计 4.8 工具栏和状态栏 4.9 对话框 4.10 键盘与鼠标事件 4.1 窗体 4.1.1 窗体的结构与基本属性 1.窗体的结构 与Windows环境下的应用程序窗口一样，VB中的窗体也具有控制菜单、标题栏、最大化/还原按钮、最小化按钮、关闭按钮及边框 4.1.1 窗体的结构与基本属性 2.创建新窗体的步骤如下 （1）从“工程”菜单中选择“添加窗体”菜单项。 （2）缺省情况下系统将显示“添加窗体”对话框 4.1.1 窗体的结构与基本属性 创建新窗体的步骤如下 （3）在对话框中选择“标准 EXE”选项时，建立一个空白的新窗体。 （4）单击“打开”按钮，一个新的空白窗体被加入到当前工程中，同时会显示在屏幕上。 3.窗体的属性 通过属性面板设置 4.1.1 窗体的结构与基本属性 【范例 4-1】窗体属性的设置 建立如图所示的界面 步骤如下： 1、在属性面板中设置窗体的Caption属性为“窗体属性设置举例” 2、按照同样的方式分别设置窗体的Height、Width属性为4000、6000（单位：Twip）。 4.1.2 窗体的事件 1．Load事件 Load事件发生在窗体被装入内存时，且发生在窗体出现在屏幕之前。窗体出现之前，VB会看一看Load事件里有没有代码，如果有，那么它先执行这些代码，再让窗体出现在屏幕上。 2．Click与 DblClick事件 这两个事件在单击或双击窗体的空白区域时发生。但单击窗体里的控件时，窗体的Click事件并不会发生。 3．Activate与Deactivate事件 显示多个窗体时，可以从一个窗体切换到另一个窗体。每次激活一个窗体时，发生Activate 事件，而前一个窗体发生Deactivate事件。 4.1.2 窗体的事件 4．UnLoad事件 它的作用是从内存中清除一个窗体。卸载后如果要重新装入窗体，那么新装入的窗体上的所有控件都需要重新初始化。 5．QueryUnload事件 该事件发生在一个窗体或应用程序关闭之前。通过设置Cancel参数的值为除0以外的任何值，阻止该窗体和应用程序的关闭，该事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中是否有未完成的任务。 4.1.2 窗体的事件 【范例 4-2】编写程序测试窗体事件的触发时刻。 步骤如下： 1、如图所示，首先在对象框中选择Form，然后在事件框中选择Click，VB开发环境会生成如下所示的代码： 4.1.2 窗体的事件 步骤如下： 2、编写事件代码如下： Private Sub Form_Click() Debug.Print 窗体的Click事件被触发 End Sub 说明： ① 加粗部分为添加的代码，其他为开发环境生成。 ② Debug.Print可以在立即窗口）中显示相关的信息，因其不会包含在最终发布的程序中，所以经常被用来做程序调试信息的输出。（立即窗口可通过选择【视图】-【立即窗口】打开） 4.1.2 窗体的事件 步骤如下： 3、按照同样的方式添加其他事件的处理程序，结果如下： Private Sub Form_DblClick() Debug.Print 窗体的DblClick事件被触发 End Sub Private Sub Form_Load() Debug.Print 窗体的Load事件被触发 End Sub 4.1.2 窗体的事件 步骤如下： Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) canquit = MsgBox(真的要退出吗？, vbYesNo) If canquit = vbYes Then Cancel = False Else Cancel = True End Sub Private Sub Form_Unload(Cancel As Integer) Debug.Print 窗体的Unload事件被触发 End Sub 4、运行程序，依次单击、双击、关闭窗体，观察窗体事件的触发。 4.1.2 窗体的事件 【范例4-3】通过代码方式实现例4-1的效果。 Private Sub Form_Load() Me.Caption = 窗体属性设置举例 Me.Height = 4000 单位为Twip（缇） Me.Width = 6000 End Sub 4.1.3窗体的方法和语句 1．Load语