VB第三章分解.ppt

3.3 菜单制作 二. 菜单编辑器 使用“工具”菜单中“菜单编辑器”命令或工具栏上的“菜单编辑器”按钮打开 “标题”文本框： 用来指定菜单的标题文字，也可指定访问 键，在选定的字母前加“”，如：保存(S)， 同时按Alt键和该字母键即可打开该命令菜单。 如果想在两菜单项间加分隔线，则可在标题 框中键入连字符“-”。 “名称”文本框： 用来指定菜单项的名称，它是菜单项在程序中 　　 的标识。习惯上用前缀“Mnu+功能”来命名， 如MnuFile代表File菜单。MnufileExit代表 “File”菜单下的“Exit”菜单项。 　　 书（P33~P34页） 菜单编辑器对话框中各个项目的意义和功能： “索引”文本框： 指定该菜单控件在控件数组中的位置，即设 置其下标。 “快捷键”文本框： 为菜单项指定快捷键，如Ctrl+S。 “帮助上下文ID”文本框： 指定一个数值作为帮助文本的标识符，程序可 通过这个值来找到菜单项在帮助文件中对应的 位置。 书（P33~P34页） 菜单编辑器对话框中各个项目的意义和功能： Checked(复选)：菜单项的左边设置选中标记√。用来指出可切换的命令选项的开关状态。 Enabled(有效)：不选中，菜单命令暗淡显示，该菜单项不响应鼠标事件。 Visible(可见)：选中，菜单项在菜单中才可见。 WindowList(显示窗口列表)：只有在多文档窗口（MDI）才有用，当菜单要包括一个所有打开的MDI（多文档界面）子窗口的列表时，应选中。 菜单编辑器对话框中各个复选框的意义和功能： 菜单创建好后要为菜单项的单击事件编写相应代码实现特定功能。 3.3 菜单制作 三. 弹出式菜单 1. 创建弹出式菜单：同样是用菜单编辑器来设计，此时 主菜单“可见”属性需设为不选中状态。 2. 激活弹出式菜单：在相应对象的MouseDown事件里添加代 　　　　　　　　　码调用PopUpMenu方法来显示弹出菜单 Object：可选项，鼠标右击的对象，若缺省，则指当前的form 对象。 flags：可选项，值为数值或常数，用于设定弹出式菜单的 位置和行为。位置值缺省为0，表示菜单左上角位于x； 行为值缺省为0，表示菜单项只响应鼠标左键单击。值为 　　2，弹出菜单项对鼠标左、右键的行为都响应。 　　 x和y：可选项。菜单弹出时的位置，缺省为鼠标的当前位置。 boldcommand：可选项，用于指定菜单中想用加粗效果显示的 　　　　　　　菜单名称，缺省时表示菜单标题不以粗体字出现。 Menuname：必选项，弹出式菜单的名称。 语法：Object.PopupMenu Menuname [flags, x, y, boldcommand] 实验指导书（P27页） 例： Private Sub form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) if Button＝2 then form1.PopUpMenu popupFormat ‘检查是否鼠标右键单击 End Sub 3.4～3.5 多窗体程序设计及示例 一. 多窗体程序 1. 多窗体程序的创建 2. 多窗体程序的运行： 缺省时，程序运行自动从第一个窗体开始运行，所以 一般把第一个窗体作为多窗体程序的主界面，称为启动窗 体。不过也可以人为设置一个启动窗体（工程菜单—— 工程属性对话框中设置，第七章介绍）。 程序至少要有一个窗体，工程（程序）创建时系统 自动会创建一个窗体。此外，可以通过“添加窗体”（工程 菜单中）给程序添加窗体。 二. 示例 见 例3-5 （书P35页） Form1代码 Private Sub Timer1_Timer() Label1.Caption = Str(Val(Label1.Caption) - 1) If Val(Label1.Caption) = 0 Then