菜单编辑器

菜单编辑器,P.102,Private Sub FontIt_Click() Text1.FontItalic=Not Text1.FontItalic If FontIt.Checked = False Then FontIt.Checked = True End IfEnd Sub,用户选定倾斜字体(I)时,Private Sub scalefont_Click() Text1.FontSize = 12End SubPrivate Sub myclose_Click() Unload Me End SubPrivate Sub MyRed_Click() Text1.ForeColor = QBColor(12)End Sub,Private Sub Myblue_Click() Text1.ForeColor = QBColor(1)End SubPrivate 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）在窗体上右击，弹出一个菜单，单击“菜单编辑器”命令,菜单编辑器的组成,Caption:输入菜单名或命令名，这些名字出现在菜单栏或下拉菜单中,Name:菜单项对应的控件名。控件名是标识符,Index:指定一个数字值来确定控件在控件数组中的位置,菜单项编辑区,属性设置区,编辑区,菜单编辑器的组成,Check（选择标记）：若要菜单项前出现“”符号，则需要把对应菜单项的Check属性设置为True。否则，设置菜单项Check属性为False,Visible：在程序运行时，如果要某菜单项暂时隐藏起来，则设置对应菜单项的Visible属性为False。否则为True,菜单项编辑区,属性设置区,编辑区,Enable：程序运行时，如果要某菜单项变为灰色并不能使用，则设置对应菜单项的Enable属性为False，否则，设置为True,为每个命令选定快捷键,菜单项编辑区,属性设置区,编辑区,菜单编辑器的组成,用于调整菜单项的级别,当前菜单项在同级内上下移动,菜单编辑器的组成,进入下一个菜单编辑,插入一个空白菜单项,删除当前菜单项,菜单项编辑区,属性设置区,编辑区,菜单编辑器的组成,显示输入的菜单项，编辑好的菜单立刻在编辑区中显示出来，并通过内缩符号表明菜单项的层次,菜单项编辑区,属性设置区,编辑区,【例5.1】菜单设计。建立一个如图所示的菜单，用户可以通过选择菜单中的菜单项改变文本框中内容的外观。,Private sub SetColor_Color_Click(Index As Integer) Select Case Index Case 1 Text1Forecolor=RGB(255，0，0) Case 2 Text1Forecolor=RGB(0，255，0) Case 3 Text1Forecolor=RGB(0，0，255) End Select End Sub,设计下拉菜单程序步骤,（1）通过菜单编辑器设计各菜单控件的属性（2）编写各菜单控件的Click事件过程,【应用实例】,在窗体上建立如图所示的文件下拉菜单,制作结果,创建简易编辑器,5.1.2 菜单的规划,(1) 面向用户(2) 菜单名称通俗易懂(3) 合理组织菜单项(4) 设置合适的分隔线(5) 控制菜单项的数目(6) 设置合适的访问键和快捷键,P.100,小 结,菜单控件的唯一事件是Click事件除分隔条以及无效的或不可见的菜单控件，其余的菜单控件都能识别 Click 事件要使该菜单控件真正起作用，则还必须编写它的Click 事件过程,弹出式菜单,5.2 弹出式菜单,弹出式菜单，是通过单击鼠标右键在窗体的任意位置打开的菜单使用方便，具有较大的灵活性,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 SetFont End IfEnd Sub,P.108,习题：设置弹出式菜单,红色蓝色,文本框中的弹出式菜单,Private Sub mnuCopy_Click() Dim s As String s = Text1.SelText Clipboard.SetText sEnd Sub,“复制” 的Click事件过程,“剪切” 的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.GetTextEnd Sub,下拉菜单小结,设计下拉菜单程序分两步进行：通过菜单编辑器设计菜单，即设计各菜单控件的属性编写各菜单控件的Click事件过程PopupMenu方法,5.3 工具栏和状态栏,工具栏有若干个按钮构成，每个按钮上一般都有图片，用来访问应用程序中最常用的功能和命令状态栏用于显示应用程序的运行状态，一般放在窗口的底部,工具栏,添加选项卡,【部件】对话框,Microsoft Windows Common Controls 6.0,Toolbar控件与ImageList控件,工具栏制作步骤,准备工作： （1）查找可用图片 （2）添加高级控件第一步：设置 ImageList 控件 （1）添加控件 （2）属性设置第二步：设置 ToolBar 控件 （1）添加控件 （2）属性设置,第三步：编制工具栏单击事件代码Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.key Case key1 语句组一 Case key2 语句组二 End SelectEnd Sub,查找可用图片,【开始】【搜索】【*.ico】【立即搜索】将选中的图形文件复制到个人指定的位置备用重复上述过程查找其它类型（.bmp、.gif、.jpg）图形文件,添加高级控件,（1）选择【工程】【部件】 （2）【控件】选项卡【Microsoft Windows Common Controls 6.0】（3）【确定】,ImageList 控件属性设置,P.109,ImageList 控件属性设置,ImageList 控件快捷菜单【属性】 【通用】选项卡 【1616】 【图像】选项卡 【插入图片】 【选定图片】【确定】,ToolBar与ImageList的连接,工具栏样式,ToolBar 控件属性设置,（1）为工具栏连接图像,每个按钮的编号、标识,ImageList对象中的图像，值可以是Key或Index,ToolBar 控件属性设置,（2）为工具栏增加按钮,ToolBar 控件属性设置,ToolBar 控件快捷菜单【属性】 【通用】选项卡 【图像列表】 【Imagelist1】 【按钮】选项卡 【插入按钮】 【关键字】 【图像】【确定】,【应用实例】,创建一个窗体，实现记事本的功能。在该属性页中设置整个工具栏及各按钮的属性,在窗体上制作一个工具栏，三个图标的图形随意：（1）第一个按钮的功能是：在窗体上显示“工具栏”，黑体（2）第二个按钮的功能是：在窗体上显示“练习题”，行楷（3）第三个按钮的功能是：在窗体上显示“做完了”，隶书,将期中测验题的主窗体进行改造：（1）制作工具栏，由三个按钮构成，分别对应程序的四个功能：“第一题”、“第二题”和“退出”（2）原来的三个命令按钮取消，居中显示一句话：“这仅仅是一次作业。”要求：按钮图标 尽量 实现顾“图”思义课后写出本题代码,工具栏设计步骤,向工具箱中添加工具栏控件 在窗体中加入工具栏控件对象 为图像工具栏准备图像列表 建立工具栏与图像列表控件对象之间的关联 从图像列表控件对象的图像库中选择各工具栏按钮的图像，并设置其它所需属性,ToolBar控件的常用事件,ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮（2）用关键字Key确定按钮,状态栏,状态栏的创建,状态栏控件（StatusBar）用来显示系统的某些当前状态状态栏控件的每一个窗格都是一个Panel对象，最多可以包含16个Panel对象,P.111,设置状态栏控件属性,右击 StatusBar 控件快捷菜单【属性】 【窗格】选项卡,功 能,显示的文本,窗格编号,对齐方式,外 观,长 度,新增窗格,插入图像,窗格标识,P.111,Panel的Style (样式)属性,斜面（Bevel）属性,自动调整大小(AutoSize)属性,当窗体的大小改变时，Panel对象的大小应该如何改变,对齐(Alignment)属性,确定文本和图像在面板中对齐方式,习题：制作下图中的状态栏,界面样式,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. MDI子窗体的创建,P.113,“新建”菜单事件过程,Private Sub FileNew_Click() Dim NewDoc As New frmChild NewDoc.ShowEnd Sub,P.113,“退出”菜单事件过程,Private Sub FileExit_Click() EndEnd 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 frmDoc No = No + 1 NewDoc.Caption = “文档 & No NewDoc.Show End Sub,窗体的 Resize 事件过程,Private Sub Form_Resize() rtfDoc.Height = ScaleHeight rtfDoc.Width = ScaleWidthEnd Sub,指定活动子窗体和控件,MDI窗体常用属性 (1)活动子窗体 ActiveForm 属性 (2)活动控件 ActiveControl 属性例：将子窗体的文本框中所选文本复制到剪贴板上ClipBoard.SetText.frmMDI.ActiveForm.ActiveControl.SelText,维护子窗体的状态信息,应用程序必须随时能确定自上次保存以来子窗体中的数据是否有改变可以通过在每个子窗体中声明一个公用变量作为标识来实现此功能例如，可以在子窗体的声明部分声明一个逻辑变量Boolsave作为子窗体信息是否已保存的标记 Public Boolsave As Boolean,文本每一次改变时,Private Sub RichTextBox1_Chang() Boolsave = TrueEnd Sub,文件每一次保存时,Private Sub mnuSave_Click() FileSave Boolsave = FalseEnd Sub,窗体每一次关闭时,Private Sub MDIForm_QueryUnload(Cancel As Integer,UnloadMode As Integer) If Boolsave Then FilesaveEnd Sub,加载MDI窗体和子窗体,加载子窗体时，MDI窗体会自动加载