vb程序设计第版第章讲解课件.pptVIP

界 面 设 计;10.1 菜单的设计;10.1.1 下拉式菜单;2. 菜单编辑器 菜单项: 看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。 菜单设计: 通过“菜单编辑器”完成。 首先使窗体成为当前窗体 使用以下方法打开菜单编辑器: 执行“工具”菜单下的“菜单编辑器”命令 单击标准工具栏的“菜单编辑器”按钮 从窗体快捷菜单中选择“菜单编辑器”命令 菜单编辑器结构: 属性区、编辑区、菜单列表区;Caption;【例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;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事件过程如下： Private Sub ClearPic_Click() 清除 Picture1.Picture = LoadPicture() ClearPic.Enabled = False LoadPic.Enabled = True HidePic.Enabled = False ShowPic.Enabled = False End Sub;Private Sub Loadpic_Click() 载入 PicName = InputBox(请输入图像文件名) On Error GoTo ErrHandler Picture1.Picture = LoadPicture(PicName) ClearPic.Enabled = True LoadPic.Enabled = False HidePic.Enabled = True ShowPic.Enabled = False Exit Sub 正常执行则到这里结束 ErrHandler: 错误处理程序入口 MsgBox 图像加载错误 End Sub;Private Sub HidePic_Click() 隐藏 Picture1.Visible = False C