第14讲：对话框与菜单.ppt

第十四讲：对话框与菜单 主要内容 1、自定义对话框 2、通用对话框 3、菜单编辑器简介 4、菜单设计(下拉菜单) 5、快捷（弹出式）菜单 对话框 对话框：一种简化的窗体，一般大小固定、无最大化、最小化按钮。 对话框 自定义对话框 通用对话框 通用对话框 通用对话框 实验 P186、1、2、3、 4 关于菜单 在创建菜单时，应该把相似的项分成一组。如果可能的话，尽量使用用户熟悉的分组方式，这样可以方便 用户操作。 ◆文件（file）：包含程序使用的打开，关闭文件的一些功能。 ◆编辑（edit）：包含与编辑文本和文档有关的所有功能。 ◆显示（View）：如果程序对相同的文档支持不同的观察方式时，可能包括view菜单。 ◆工具（tools）：辅助程序的工具箱。语法检查器。 ◆窗口（windows）：如果程序支持同时编辑多个文档的话，通常包括改菜单。 ◆帮助（help）：包含对程序系统能够的访问。 一、菜单编辑器简介 （3）索引(Index) 当几个菜单项使用相同名称时，组成菜单数组。用一个数组（索引）来确定一个菜单项在菜单数组中的位置。 （4）快捷键： 不打开菜单，可以通过Ctrl键和字母键或F1—F12功能键，以及和Shift键的组合，直接执行相应菜单项的操作。 方法：打开快捷键下拉列表框并选择一个键。 （8）有效（Enabled） 确定菜单项是否可以使用。若无效，菜单项呈灰色，有效，菜单项呈黑色。 （9）可见(Visible) 确定菜单项是否在菜单中可见。 （10）显示窗口列表 决定在使用多文档程序时，是否显示一个包含多文档文件子窗口的列表框。 （15）左箭头（决定菜单的级别） 提升选定的菜单项的级别。 （16）上箭头（决定菜单的相对位置） 把选定的菜单项在同级菜单内上移一个位置。 （17）下箭头（决定菜单的相对位置） 把选定的菜单项在同级菜单内下移一个位置。 菜单的属性和事件 二、菜单设计的基本步骤 在标题栏输入该菜单项的文本。 在名称栏输入程序中要引用该菜单项的名称 进行相关的设置和复选 单击下一个按钮或插入按钮，建立下一个菜单项 单击“确定”，关闭菜单编辑器。 【例2】菜单设计 定义一个窗体级字符串变量，用于存放选定的文本 Dim st As String Private Sub Form_Load() mnucopy.Enabled = False mnucut.Enabled = False mnupaste.Enabled = False Text1.Text = End Sub ‘用户用鼠标选定文本框中的文本 Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelText Then mnucopy.Enabled = True 选定的内容非空，则复制和剪切的命令按钮有效 mnucut.Enabled = True mnupaste.Enabled = False 粘贴命令无效 Else mnucopy.Enabled = False mnucut.Enabled = False mnupaste.Enabled = True 粘贴命令无效 End If End Sub Private Sub mnucopy_Click() st = Text1.SelText ‘将选定的内容存入变量st mnucopy.Enabled = False mnucut.Enabled = False mnupaste.Enabled = True ‘粘贴命令有效 End Sub Private Sub mnucut_Click() st = Text1.SelText ‘将选定的内容存入变量st Text1.SelText = mnucopy.Enabled = False mnucut.Enabled = False mnupaste.Enabled = True ‘粘贴命令有效 End Sub Private Sub mnupaste_Click() Text1.SelText = st End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnubold_Click() Text1.