Visual Basic程序设计教案：第六章 VB菜单.docVIP

第六章 VB菜单 教学重点： 孰练掌握VB菜单设计及过程代码编写。 教学难点： 数组菜单。 菜单：下拉式窗口菜单,快捷菜单(弹出式菜单) 一、下拉式窗口菜单设计: 通过菜单编辑器编辑: 访问键 ，快捷键，复选，有效性，可见，分隔线 代码连接（click事件）； 1. 在窗体中, 应用”工具”----”菜单编辑器”编辑菜单. 2. 标题:菜单显示内容. 3. 名称:每个菜单项名称. 4. 索引: 所有菜单项名称不同时, 可以不用索引.菜单项名称相同时, 可以加不同索引号.0,1,2,3… 形成菜单数组. 有利于编写程序代码. 5. 菜单访问键 (带下划线字母)设置:标题( 大写字母) 6. 菜单快捷键设置; 7. 分隔线设置:标题为”-”, 填写名称 8.复选:菜单项多项选择 9.有效性:浅颜色菜单，代表不可用 10.可见:菜单项隐藏 11.菜单项click事件:设计完成后, 双击菜单项. Private Sub Mopen_Click() ‘菜单名称单击事件 Load Form2 Form2.Show End Sub Private Sub Mprint_Click() Print 长春工程学院 End Sub Private Sub Mquit_Click() a = MsgBox(真的退出吗?, 1, 退出对话框) If a = vbOK Then End End Sub 菜单中的复选在代码设置：用checked属性:Ture，false 格式：菜单项名称.checked=ture Private Sub Mc_Click() If Mc.Checked = True Then Mc.Checked = False Else Mc.Checked = True End If End Sub * 控制复选选中或取消 二、快捷菜单(弹出菜单) 设计步骤： 1、用菜单设计器设计，复选为false；至少有一个子菜单 2、用窗体的PopupMenu方法激活其中菜单,使之成为快捷菜单.在窗体mouseup事件中设置代码. 格式: PopupMenu 菜单名称, flag, x, y flag:0,4,8 代表菜单在光标左边,中间,右边. x, y代表菜单位置, 左边距,上边距. 如：PopupMenu Medit 激活编辑菜单名称 PopupMenu Medit, 0 PopupMenu Medit, 0, 100,200 如:将编辑菜单设置为快捷菜单.在窗体MouseUp事件中：Private Sub Form_MouseUp() If Button = 2 ThenPopupMenu MeditEnd IfEnd Sub ‘button=1 为左键 2 为右键激活. 三、菜单数组（实例） 子菜单名称相同,索引不同,形成菜单数组. 有利于过程代码设计. 字体主菜单：标题字体, 名称:zt_main，无索引 黑体：标题：黑体，名称zt，索引号 0 楷体：标题：楷体，名称zt，索引号 1 宋体：标题：宋体，名称zt，索引号 2 隶书: 标题：隶书，名称zt，索引号 3 字号主菜单：标题字号, 名称:zh_main，无索引 10号: 标题：10号，名称zh，索引号 0 20号: 标题：20号，名称zh，索引号 1 30号: 标题：30号，名称zh，索引号 2 字形主菜单：标题字形, 名称:zx_main，无索引 粗体: 标题：粗体，名称zx，索引号 0 斜体: 标题：斜体，名称zx，索引号 1 下划线: 标题：下划线，名称zx，索引号 2 粗体,斜体,下划线可复选. 代码设置: Private Sub Form_Load() ‘文本框默认值 Text1.FontName = 宋体 Text1.FontSize = 10 Text1.FontBold = True Text1.FontItalic = True Text1.FontUnderline = True End Sub Private Sub zt_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize = 20 Text1.FontName = 黑体 Case 1 Text1.FontName = 楷体_GB2312 Case