新VB语言程序设计教程 教学课件 杨忠宝 康顺哲 第08章 菜单及MDI窗体设计.pptVIP

第8章 菜单及MDI窗体设计 8.1下拉式菜单设计 8.2 弹出式菜单设计 8.3 MDI多窗体程序设计 8.1下拉式菜单设计 8.1.1下拉式菜单的组成 8.1.2 菜单编辑器的启动 8.1.3 菜单编辑器的使用方法 (7) 删除按钮(Delete)：用于删除指定菜单项。先在菜单编辑器的下半部分选择要删除的菜单项，然后按“删除”按钮。 (8) “↑”和“↓”按钮：用于改变菜单项在主菜单与子菜单中的顺序位置。 (9) 复选框(Checked)：若某菜单项的复选框被选中，则该菜单项左边加上检查标记“√”，表示该菜单项是一个被选项。 (10) 有效框(Enabled)：当菜单项的有效框被选中时，程序执行时，该菜单项高亮度显示，表示用户可以选择该菜单项。当菜单项的有效框未被选中时，程序执行后，该菜单项灰色显示，表示用户不能选择该菜单项。 (11) 可见框(Visible)：菜单项的可见框被选中，则该菜单项可见，否则不可见。 (12) 显示窗口列表复选框：若某菜单项的“显示窗口列表”复选框有效，则该菜单项成为多文档窗体的“窗口”，在该“窗口”中将列出所有已打开子窗体的标题名称。 【例8.1】设计一个简易文本编辑器的下拉式菜单，如图=所示，设计要求如表8-1 ?设计步骤如下： 8.2 弹出式菜单设计 2. 弹出式菜单应用举例 (1) 打开例8-1所建的工程，另存到e:\vb\program\exemple8_2，工程文件名称为ex8_2.vbp，窗体文件名称为Form_ex82.frm。 (2) 在工具箱中添加图文编辑器RichTextBox (3) 编写RichTextBox控件鼠标按下事件处理过程 (4) 编写剪切、复制与粘贴的事件处理过程。 (5) 保存工程与窗体文件 (6) 运行程序 Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ?If Button = 2 Then表示若用户单击鼠标右键????? Form_ex42.PopupMenu Edit, 2, x, y 　?则窗体Form_ex42调用PopupNume方法 End If　　　该方法将使用主菜单项Edit中的“剪切、复制、粘贴” End Sub‘一级子菜单作为弹出式菜单 Private Sub Cut_Click() Clipboard.SetText RichTextBox1.SelText　 将RichTextBox1所选择文本存入剪切板 RichTextBox1.SelText = 清除RichTextBox1所选择文本 End Sub Private Sub Copy_Click() 　 Clipboard.SetText RichTextBox1.SelText 将RichTextBox1所选择文本存入剪切板 End Sub Private Sub Paste_Click() 　 RichTextBox1.SelText = Clipboard.GetText 将剪切板中文 本复制到RichTextBox1 End Sub 【例8.3】设计一个带有下拉式菜单、弹出式菜单与工具栏的文本编辑器，其工作界面如图所示。 8.3 MDI多窗体程序设计(自学) 用户界面主要有两种： 单文档界面(SDI) 多文档界面(MDI) 8.3.1创建MDI主窗体 1. 创建MDI主窗体 (1) 执行菜单命令：工程 | 添加MDI窗体，出现“添加MDI窗体”对话框。 (2) 选择“新建”或使用“现存”窗体，单击“打开”按钮后出现MDI主窗体界面。 2. 将MDI主窗体设为工程的启动窗体 (1) 执行菜单命令：工程 | 工程属性，出现工程属性对话框。 (2) 在对话框的通用选项卡中单击启动对象下拉按钮，选择MDI窗体名，则MDI窗体成为启动窗口。 8.3.2 建立MDI子窗体 8.3.3 MDI窗口菜单设计 * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 执行菜单命令：工具 | 菜单编辑器，即可打开菜单编辑器 菜单编辑器分为上下两部分：上半部分用于设置菜单项的属性，下半部分用于显示用户设置的主菜单项与子菜单项内容。 (1) 标题栏(Caption)：输入菜单项的标题、设置热键与分隔条； 标题 :直接输入 热键 文件(F) 分隔条 “－” (2) 名称栏(Name)：用于输入菜单项内部惟一标识符 注意：分隔符也要输入名称，且不能重复命名。 (3) 快捷键下拉列表框(Shortcut K