菜单编辑器.ppt

菜单编辑器 用户选定倾斜字体(I)时 Private Sub FontIt_Click() Text1.FontItalic=Not Text1.FontItalic If FontIt.Checked = False Then FontIt.Checked = True End If End Sub Private Sub scalefont_Click() Text1.FontSize = 12 End Sub Private Sub myclose_Click() Unload Me End Sub Private Sub MyRed_Click() Text1.ForeColor = QBColor(12) End Sub Private Sub Myblue_Click() Text1.ForeColor = QBColor(1) End Sub Private Sub About_Click() Dim About As String About = MsgBox (计072, vbYes, 关于) End Sub 第5章 应用程序界面设计 菜单 工具栏 状态栏 多文档界面 5.1 菜单的规划与设计 菜单有两种类型： （1）下拉式菜单一般出现在程序界面顶部 （2）弹出式菜单也称为快捷菜单，通过单击鼠标右键，菜单在相应位置出现 5.1.1 菜单的结构与功能 菜单栏： 菜单标题：菜单的名称，标识了一个下拉列表 菜单项： 子菜单：带有“?”标记的菜单选项后打开的列表 进入菜单编辑器的4种方法 （1）执行“工具”菜单中的“菜单编辑器”命令 （2）使用热键[Ctrl+E] （3）单击工具栏中的“菜单编辑器”按钮 （4）在窗体上右击，弹出一个菜单，单击“菜单编辑器”命令 菜单编辑器的组成 菜单编辑器的组成 菜单编辑器的组成 菜单编辑器的组成 菜单编辑器的组成 【例5.1】菜单设计。建立一个如图所示的菜单，用户可以通过选择菜单中的菜单项改变文本框中内容的外观。 Private sub SetColor_Color_Click(Index As Integer) Select Case Index Case 1 Text1．Forecolor=RGB(255，0，0) Case 2 Text1．Forecolor=RGB(0，255，0) Case 3 Text1．Forecolor=RGB(0，0，255) End Select End Sub 设计下拉菜单程序步骤 （1）通过菜单编辑器设计各菜单控件的属性 （2）编写各菜单控件的Click事件过程 【应用实例】 在窗体上建立如图所示的文件下拉菜单 制作结果 创建简易编辑器 5.1.2 菜单的规划 (1) 面向用户 (2) 菜单名称通俗易懂 (3) 合理组织菜单项 (4) 设置合适的分隔线 (5) 控制菜单项的数目 (6) 设置合适的访问键和快捷键 小 结 菜单控件的唯一事件是Click事件 除分隔条以及无效的或不可见的菜单控件，其余的菜单控件都能识别 Click 事件 要使该菜单控件真正起作用，则还必须编写它的Click 事件过程 弹出式菜单 5.2 弹出式菜单 弹出式菜单，是通过单击鼠标右键在窗体的任意位置打开的菜单 使用方便，具有较大的灵活性 建立弹出式菜单 一、用菜单编辑器建立菜单 二、菜单名的“可见”属性设置为False 三、子菜单“可见”属性设置为True 四、用PopupMenu方法弹出显示 格式： [〈对象〉.] PopupMenu〈菜单名〉 习题：设置弹出式菜单 红色 蓝色 文本框中的弹出式菜单 “复制” 的Click事件过程 Private Sub mnuCopy_Click() Dim s As String s = Text1.SelText Clipboard.SetText s End Sub “剪切” 的Click事件过程 Private Sub mnuCut_Click() Dim s As String s = Text1.SelText Clipboard.SetText s Text1.SelText = End Sub “粘贴” 的Click事件过程 Private Sub mnuPaste_Click() Text1.SelText = Clipboard.GetText End Sub 下拉菜单小结 设计下拉菜单程序分两步进行