文档详情

Visual Basic程序设计教案:第六章 VB菜单.doc

发布:2017-06-24约2.78千字共4页下载文档
文本预览下载声明
第六章 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 Then PopupMenu Medit End If End 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
显示全部
相似文档