vb菜单和对话框.pptVIP

菜单、对话框和多窗体设计 * * 第三阶段之一 1、5.4小节2、菜单的使用——下拉菜单和弹出式菜单3、对话框的分类和使用4、多窗体程序设计 本节任务： 5.4.1 菜单和对话框程序设计 ［例5-15］ 设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。效果如下图所示： VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非常方便的建立菜单。 操作步骤： （1）从“工具”菜单上，选取“菜单编辑器”，进入对话框； （2）菜单属性设置 表5-10 菜单属性设置 无 无 字体 Font3 楷体 无 无 字体 Font2 宋体 无 无 字体 Font1 黑体 Ctrl＋F 无 编辑 mnuEditFont 字体 Ctrl＋V 无 编辑 mnuEditPaste 粘贴 Ctrl＋C 无 编辑 mnuEditCopy 复制 Ctrl＋X 无 编辑 mnuEditCut 剪切 无 E 无 mnuEdit 编辑 Ctrl＋Q Q 文件 mnuFileQuit 退出 无 无 文件 mnuFileBar － Ctrl＋S S 文件 mnuFileSave 保存 O 文件 mnuFileOpen 打开 Ctrl＋N N 文件 mnuFileNew 新建 无 F 无 mnuFile 文件 快捷键 热键 上级菜单 名称 标题 （3）属性与代码设计 菜单属性设置好后，要给每个需要完成某些功能的菜单项编写对应的代码。 先给窗体内添加一个文本框Text1，Text1的属性如下表所示。 3-both ScrollBar True MultiLine 清空 Text Text1 Name Text 属性值 属性 对象名 单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，黑体菜单的名称为在设计时输入的名称“Font1”。 “黑体”子菜单“单击”事件代码： Private Sub Font1_Click() Text1.FontName= 黑体 End Sub 按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码编写。 ［例5-16］在［例5－15］的基础上增加一个弹出式菜单，包含“剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快捷菜单。 操作步骤： （1）在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”(该标题和名称可任意设定，因为它在快捷菜单弹出时不显示)。 （2）将“Edit”菜单的可见属性设置为False。 （3）单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。 （4）参照步骤3完成“复制”和“粘贴”菜单的设置。 （5）使用PopupMenu方法来显示弹出式菜单。 语法格式：[对象].PopupMenu 菜单名 （6）需要在文本框的Mousedown事件里编写对应的代码。具体代码如下： Private Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Enabled = False Text1.Enabled = True PopupMenu edit End If End Sub 1 — 按下鼠标的左按钮 2 — 按下鼠标的右按钮 4 — 按下鼠标的中间按钮 这两条语句用于屏蔽系统的快捷菜单 剪切的Click事件代码： ???? Clipboard.Clear??????? ‘清空剪贴板的内容????? ’将文本框中所选的内容复制给剪贴板 Clipboard.SetText Text1.SelText?? ? ???? Text1.SelText = “ ”?????? ‘删除所选 mnueditpaste.enable=true 粘贴恢复为可用  复制的Click事件代码： ???? Clipboard.Clear??? Clipboard.SetText Text1.SelText? mnueditpaste.enable=true 粘贴的Click事件代码： ???? Text1.