vb程序设计第2版第10章 PPT.ppt

界 面 设 计;10.1 菜单的设计;10.1.1 下拉式菜单;2. 菜单编辑器 菜单项: 看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。 菜单设计: 通过“菜单编辑器”完成。 首先使窗体成为当前窗体 使用以下方法打开菜单编辑器: 执行“工具”菜单下的“菜单编辑器”命令 单击标准工具栏的“菜单编辑器”按钮 从窗体快捷菜单中选择“菜单编辑器”命令 菜单编辑器结构: 属性区、编辑区、菜单列表区;Caption;;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。;运行时，界面的初始状态如图a，单击“载入”命令可以在打开的输入框中输入要载入的图像文件名，确定后将指定的图像显示在图片框Picture1中，这时的“图像”菜单变成图b的状态。这时如果选择“清除”命令，则清除图片框中的图片，菜单变成图a所示；如果选择“隐藏”命令，则隐藏图片框，菜单变成图c所示，而单击“显示”命令菜单又回到图b的状态。;各菜单项的Click事件过程如下：