【VB程序设计】第10章界面设计.ppt

界 面 设 计 10.1 菜单的设计 Windows环境下几乎所有的应用软件都通过菜单实现各种操作。菜单将应用程序的各种操作分组显示在界面上，用户可以方便地从菜单中选择执行各种功能。 10.1.1 下拉式菜单 2. 菜单编辑器 菜单项: 看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。 菜单设计: 通过“菜单编辑器”完成。 首先使窗体成为当前窗体 使用以下方法打开菜单编辑器: 执行“工具”菜单下的“菜单编辑器”命令 单击标准工具栏的“菜单编辑器”按钮 从窗体快捷菜单中选择“菜单编辑器”命令 菜单编辑器结构: 属性区、编辑区、菜单列表区 【例10-1】设计菜单界面，如下图所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号、文字颜色和文字效果。其中，效果子菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框的初始状态一致。 1) “字体”菜单下的菜单项设计成一个控件数组AA1，共享以下事件过程: Private Sub AA1_Click(Index As Integer) Text1.Font = AA1(Index).Caption End Sub 3) “颜色”菜单下的各菜单项为独立的菜单控件，因此应分别在其单击事件过程中编写代码，各事件过程如下: Private Sub CC1_Click() Text1.ForeColor = vbRed End Sub Private Sub CC2_Click() Text1.ForeColor = vbGreen End Sub Private Sub CC3_Click() Text1.ForeColor = vbBlue End Sub 4) “效果”菜单下的各菜单项具有复选功能，每次单击时应切换成另一种状态，因此要判断当前菜单项的Checked属性，各事件过程如下: Private Sub DD1_Click() If DD1.Checked = True Then Text1.FontStrikethru = False DD1.Checked = False Else Text1.FontStrikethru = True DD1.Checked = True End If End Sub Private Sub DD2_Click() If DD2.Checked = True Then Text1.FontUnderline = False DD2.Checked = False Else Text1.FontUnderline = True DD2.Checked = True End If End Sub Private Sub DD3_Click() If DD3.Checked = True Then Text1.FontBold = False DD3.Checked = False Else Text1.FontBold = True DD3.Checked = True End If End Sub Private Sub DD4_Click() If DD4.Checked = True Then Text1.FontItalic = False DD4.Checked = False Else Text1.FontItalic = True DD4.Checked = True End If End Sub 【例10-2】在窗体上设计菜单，菜单标题为“图像”，图像菜单下包括以下4个菜单项： 1) 载入：名称为LoadPic，用于向图片框中装入一幅图像，初始的Enabled属性为True。 2) 清除：名称为ClearPic，用于清除图片框中的图像，初始的Enabled属性为False。 3) 显示：名称为ShowPic，用于显示图片框中的图像，初始的Enabled属性为False。 4) 隐藏：名称为HidePic，用于隐藏图片框中的图像，初始的Enabled属性为False。 运行时，界面