Visual Basic程序设计教案:第六章 VB菜单.doc
文本预览下载声明
第六章 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
显示全部