《菜单编辑器》由会员分享，可在线阅读，更多相关《菜单编辑器（83页珍藏版）》请在金锄头文库上搜索。
1、菜单编辑器,P.102,Private Sub FontIt_Click()Text1.FontItalic=Not Text1.FontItalicIf FontIt.Checked = False Then FontIt.Checked = TrueEnd IfEnd Sub,用户选定倾斜字体(I)时,Private Sub scalefont_Click()Text1.FontSize = 12 End SubPrivate Sub myclose_Click()Unload Me End SubPrivate Sub MyRed_Click()Text1.ForeColor = QBC
2、olor(12) End Sub,Private Sub Myblue_Click()Text1.ForeColor = QBColor(1) End SubPrivate Sub About_Click()Dim About As StringAbout = MsgBox (“计072“, vbYes, “关于“)End Sub,第5章 应用程序界面设计,菜单 工具栏 状态栏 多文档界面,5.1 菜单的规划与设计,菜单有两种类型： （1）下拉式菜单一般出现在程序界面顶部 （2）弹出式菜单也称为快捷菜单，通过单击鼠标右键，菜单在相应位置出现,5.1.1 菜单的结构与功能,菜单栏： 菜单标题：菜
3、单的名称，标识了一个下拉列表 菜单项： 子菜单：带有“”标记的菜单选项后打开的列表,进入菜单编辑器的4种方法,（1）执行“工具”菜单中的“菜单编辑器”命令 （2）使用热键Ctrl+E （3）单击工具栏中的“菜单编辑器”按钮 （4）在窗体上右击，弹出一个菜单，单击“菜单编辑器”命令,菜单编辑器的组成,Caption:输入菜单名或命令名，这些名字出现在菜单栏或下拉菜单中,Name:菜单项对应的控件名。控件名是标识符,Index:指定一个数字值来确定控件在控件数组中的位置,菜单项编辑区,属性设置区,编辑区,菜单编辑器的组成,Check（选择标记）：若要菜单项前出现“”符号，则需要把对应菜单项的Che
4、ck属性设置为True。否则，设置菜单项Check属性为False,Visible：在程序运行时，如果要某菜单项暂时隐藏起来，则设置对应菜单项的Visible属性为False。否则为True,菜单项编辑区,属性设置区,编辑区,Enable：程序运行时，如果要某菜单项变为灰色并不能使用，则设置对应菜单项的Enable属性为False，否则，设置为True,为每个命令选定快捷键,菜单项编辑区,属性设置区,编辑区,菜单编辑器的组成,用于调整菜单项的级别,当前菜单项在同级内上下移动,菜单编辑器的组成,进入下一个菜单编辑,插入一个空白菜单项,删除当前菜单项,菜单项编辑区,属性设置区,编辑区,菜单编辑器的
5、组成,显示输入的菜单项，编辑好的菜单立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次,菜单项编辑区,属性设置区,编辑区,【例5.1】菜单设计。建立一个如图所示的菜单，用户可以通过选择菜单中的菜单项改变文本框中内容的外观。,Private sub SetColor_Color_Click(Index As Integer)Select Case IndexCase 1Text1Forecolor=RGB(255，0，0)Case 2 Text1Forecolor=RGB(0，255，0)Case 3Text1Forecolor=RGB(0，0，255)End SelectEnd Sub,设
6、计下拉菜单程序步骤,（1）通过菜单编辑器设计各菜单控件的属性 （2）编写各菜单控件的Click事件过程,【应用实例】,在窗体上建立如图所示的文件下拉菜单,制作结果,创建简易编辑器,5.1.2 菜单的规划,(1) 面向用户 (2) 菜单名称通俗易懂 (3) 合理组织菜单项 (4) 设置合适的分隔线 (5) 控制菜单项的数目 (6) 设置合适的访问键和快捷键,P.100,小 结,菜单控件的唯一事件是Click事件 除分隔条以及无效的或不可见的菜单控件，其余的菜单控件都能识别 Click 事件 要使该菜单控件真正起作用，则还必须编写它的Click 事件过程,弹出式菜单,5.2 弹出式菜单,弹出式菜单
7、，是通过单击鼠标右键在窗体的任意位置打开的菜单 使用方便，具有较大的灵活性,P.107,建立弹出式菜单,一、用菜单编辑器建立菜单 二、菜单名的“可见”属性设置为False 三、子菜单“可见”属性设置为True 四、用PopupMenu方法弹出显示 格式：对象. PopupMenu菜单名,P.107,五、增加窗体的MouseDown事件代码 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 ThenPopupMenu SetFontEnd If En
8、d Sub,P.108,习题：设置弹出式菜单,红色 蓝色,文本框中的弹出式菜单,Private Sub mnuCopy_Click()Dim s As Strings = Text1.SelTextClipboard.SetText s End Sub,“复制” 的Click事件过程,“剪切” 的Click事件过程,Private Sub mnuCut_Click()Dim s As Strings = Text1.SelTextClipboard.SetText sText1.SelText = “ End Sub,“粘贴” 的Click事件过程,Private Sub mnuPaste_C
9、lick()Text1.SelText = Clipboard.GetText End Sub,下拉菜单小结,设计下拉菜单程序分两步进行： 通过菜单编辑器设计菜单，即设计各菜单控件的属性 编写各菜单控件的Click事件过程 PopupMenu方法,5.3 工具栏和状态栏,工具栏有若干个按钮构成，每个按钮上一般都有图片，用来访问应用程序中最常用的功能和命令 状态栏用于显示应用程序的运行状态，一般放在窗口的底部,工具栏,添加选项卡,【部件】对话框,Microsoft Windows Common Controls 6.0,Toolbar控件与ImageList控件,工具栏制作步骤,准备工作：（1）
10、查找可用图片（2）添加高级控件 第一步：设置 ImageList 控件（1）添加控件（2）属性设置 第二步：设置 ToolBar 控件（1）添加控件（2）属性设置,第三步：编制工具栏单击事件代码 Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.keyCase “key1“语句组一Case “key2“语句组二End Select End Sub,查找可用图片,【开始】【搜索】【*.ico】【立即搜索】 将选中的图形文件复制到个人指定的位置备用 重复上述过程查找其它类型（.b
11、mp、.gif、.jpg）图形文件,添加高级控件,（1）选择【工程】【部件】 （2）【控件】选项卡【Microsoft Windows Common Controls 6.0】 （3）【确定】,ImageList 控件属性设置,P.109,ImageList 控件属性设置,ImageList 控件快捷菜单【属性】 【通用】选项卡 【1616】 【图像】选项卡 【插入图片】 【选定图片】【确定】,ToolBar与 ImageList的连接,工具栏样式,ToolBar 控件属性设置,（1）为工具栏连接图像,每个按钮的编号、标识,ImageList对象中的图像，值可以是Key或Index,ToolB
12、ar 控件属性设置,（2）为工具栏增加按钮,ToolBar 控件属性设置,ToolBar 控件快捷菜单【属性】 【通用】选项卡 【图像列表】 【Imagelist1】 【按钮】选项卡 【插入按钮】 【关键字】 【图像】【确定】,【应用实例】,创建一个窗体，实现记事本的功能。在该属性页中设置整个工具栏及各按钮的属性,在窗体上制作一个工具栏，三个图标的图形随意： （1）第一个按钮的功能是：在窗体上显示“工具栏”，黑体 （2）第二个按钮的功能是：在窗体上显示“练习题”，行楷 （3）第三个按钮的功能是：在窗体上显示“做完了”，隶书,将期中测验题的主窗体进行改造： （1）制作工具栏，由三个按钮构成，分别
13、对应程序的四个功能：“第一题”、“第二题”和“退出” （2）原来的三个命令按钮取消，居中显示一句话：“这仅仅是一次作业。” 要求：按钮图标 尽量 实现顾“图”思义 课后写出本题代码,工具栏设计步骤,向工具箱中添加工具栏控件 在窗体中加入工具栏控件对象 为图像工具栏准备图像列表 建立工具栏与图像列表控件对象之间的关联 从图像列表控件对象的图像库中选择各工具栏按钮的图像，并设置其它所需属性,ToolBar控件的常用事件,ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。 （1）用索引Index确定按钮 （2）用关键字Key确定按钮,状态栏,状
14、态栏的创建,状态栏控件（StatusBar）用来显示系统的某些当前状态 状态栏控件的每一个窗格都是一个Panel对象，最多可以包含16个Panel对象,P.111,设置状态栏控件属性,右击 StatusBar 控件快捷菜单【属性】 【窗格】选项卡,功 能,显示的文本,窗格编号,对齐方式,外 观,长 度,新增窗格,插入图像,窗格标识,P.111,Panel的Style (样式)属性,斜面（Bevel）属性,自动调整大小(AutoSize)属性,当窗体的大小改变时，Panel对象的大小应该如何改变,对齐(Alignment)属性,确定文本和图像在面板中对齐方式,习题：制作下图中的状态栏,界面样式,
15、SDI（Single Document Interface，单文档界面） MDI （Multiple Documents Interface，多文档界面） 资源管理器样式界面,MDI窗体和子窗体的特点,MDI窗体为子窗体提供工作空间。可以在MDI窗体内移动子窗体或改变子窗体的大小 子窗体最小化时，图标将显示在MDI窗体中,MDI窗体和子窗体的特点,MDI窗体被关闭时，所有子窗体也被关闭 最小化MDI窗体时，MDI窗体将显示在Windows任务栏中并用一个图标来表示,5.4.1 MDI窗体及其子窗体的创建,1. MDI窗体的创建 2. MDI子窗体的创建,1. MDI窗体的创建,P.113,2.
16、 MDI子窗体的创建,P.113,“新建”菜单事件过程,Private Sub FileNew_Click()Dim NewDoc As New frmChildNewDoc.Show End Sub,P.113,“退出”菜单事件过程,Private Sub FileExit_Click()End End Sub,P.114,5.4.3 MDI窗体的卸载,QueryUnload事件的语法格式： Private Sub Form_QueryUnload(cancle As Integer,unloadmode As Integer),P.114,MDI子窗体是一个MDIChild属性为True的普通窗体Public Sub mnuFlieNew_Click()Dim NewDoc As New frmDocNo = No + 1NewDoc.Caption = “文档“ & NoNewDoc.ShowEnd Sub,
