文档介绍：第12章
菜单设计
本章要点:
•与菜单有关的概念
•菜单编辑器
•下拉菜单设计
•弹出式菜单设计
1
与菜单有关的概念
早期的字符界面的应用程序,设计菜单是一项非常费力的工作。现在的应用程序具有图形用户界面(GUI),采用可视化的编程工具开发,菜单设计变得轻而易举了。
菜单的形式有两种:下拉式菜单和弹出式菜单。
下拉式菜单
2
弹出式菜单
有关概念:
1)菜单组成:标题栏、菜单标题、菜单项(可以是命令、分隔条、子菜单标题;包括标题、访问键、快捷键、复选标志)
2)菜单也是一个控件、对象,具有属性、事件和方法。常用属性:Caption、Enabled、Visible、Checked;事件只有一个:Click
3
菜单编辑器(VIP)
菜单是控件,但不能把菜单控件作为工具添加到控件箱中。
菜单编辑器的启动
(1)单击“工具”菜单下的“菜单编辑器”命令。
(2)单击工具栏的“菜单编辑器”按钮。
(3)在窗体的空白区域,单击鼠标右键,在快捷菜单中选择“菜单编辑器”。
(4)使用快捷键Ctrl+E。
菜单编辑器的使用
1、菜单属性设置区
2、菜单编辑区
3、菜单项显示区
下拉式菜单设计
下拉式菜单的设计和编程
Ref IDE
4
【】一个简单的文本编辑器程序的菜单设计。
Ref IDE
5
分析:
对于菜单设计的问题,需要先列出来所有的菜单标题,每个标题下的菜单项,以及各菜单项的各个属性设置。
1)创建一个窗体Form1,然后打开菜单编辑器
2)根据事先列好的菜单设计列表,依次创建各菜单项
3)退出菜单编辑器,单击某个菜单项进入该菜单命令,进行click事件编程
Ref New Mnu by p235
6
‘程序代码片断:通过菜单项的属性值进行编码
Private Sub mnuBig_Click()
= False ' 选择大号字体
= True ' 取消选择
= 24 ' 设置为大号字体
End Sub
Private Sub mnuBold_Click()
= Not ' 切换状态
= ' 根据菜单项的值决定是否加黑显示
End Sub
7
Private Sub mnuItalic_Click()
= Not
= ' 是否斜体
End Sub
Private Sub mnuKaiTi_Click()
= False ' 取消对宋体选择
= True ' 选择楷体
= "楷体_GB2312" ' 设置文本框的字体为楷体
End Sub
Private Sub mnuSongTi_Click()
= True ' 取消对楷体选择
= False ' 选择宋体
= “宋体" ' 设置文本框的字体为宋体
End Sub
8
菜单项属性的动态设置
可以动态地设置的菜单项属性包括Checked、Enabled、Visible等
1、菜单的复选标志()
2、菜单的有效性()
五个系统对象:ClipBoard(剪贴板)、Debug(调试器)、Err(出错集)、Printer(打印机)、Screen(屏幕)
Clipboard的四个常用方法:
1、settext:将文本内容送到剪贴版
2、setdata:将非文本内容送到剪贴版(如图片)
3、gettext:从剪贴板得到文本信息
4、getdata:从剪贴板得到非文本信息
9
Private Sub SetEditMenu() ' 设置编辑菜单的有效性
Dim b As Boolean
b = IIf( > 0, True, False) ' 是否有文本被选中
= b ' 如果以选中若干字符,则剪切、复制命令有效
mnuCopy.