《菜单程序设计》word版

《菜单程序设计》word版

ID:29467255

大小:86.77 KB

页数:16页

时间:2018-12-20

《菜单程序设计》word版_第1页
《菜单程序设计》word版_第2页
《菜单程序设计》word版_第3页
《菜单程序设计》word版_第4页
《菜单程序设计》word版_第5页
资源描述:

《《菜单程序设计》word版》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、菜单程序设计菜单程序设计2010年12月05日星期日下午09:52菜单程序设计一、菜单菜单的基本作用:菜单的基本类型:几个常用术语:--菜单条出现在窗体标题的下面,包含每个菜单的标题。--菜单包含命令列表或子菜单名。--菜单中列出的每一项。--从某个菜单项分支出来的另外的一个菜单。具有子菜单的菜单项右边带有一个三角符号标志。--分隔条是在菜单项之间的一条水平直线,用于修饰菜单。--弹出式菜单是另一种形式的菜单,在按下鼠标右键时出现,它是一个上下文相关的菜单。使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性,利用这个编

2、辑器,可以建立下拉式菜单,最多可达6层。启动菜单编辑器的方法有4种(先选中一个窗体,使之为活动窗体):使用菜单"工具"/"菜单编辑器";启动后,弹出菜单设计窗口。菜单编辑器窗口分为三个部分:数据区、编辑区和菜单项显示区。1、数据区用来输入或修改菜单项、设置属性。其中:隔线。可在该文本框中输入数值,这个值用来在帮助文件(用HelpFile属性设置)中查找相应的帮助主题。用来确定菜单或菜单项是否出现或在什么位置出现。该列表有4个选项:0-None菜单项不显示2、编辑区共有7个按钮。3、菜单项显示区(菜单列表)位于菜单设计窗口的

3、下部,输入的菜单项在这里显示出来,并通过内缩符号(…)表明菜单项的层次。条形光标所在的菜单项是"当前菜单项"。说明:菜单项是一个总的名称,包括4个方面的内容:菜单名(菜单标题)、菜单命令、分隔线和子菜单。内缩符号由4个点组成,它表明菜单项所在的层次,一个内缩符号(4个点)表示一层,两个内缩符号(8个点)表示两层…最多20个点,即5个内缩符号,它后面的菜单项为第六层。如果一个菜单项前面没有内缩符号,则该菜单为菜单名,即菜单的第一层。隔线。下面通过一个简单的例子说明菜单程序设计的基本方法和步骤。例1根据题意,可以将菜单分为3个

4、主菜单项,分别为"计算加、减"、"计算乘、除"和"清除与退出",它们各有两个子菜单,即:"计算加、减"的子菜单项:加、减"计算乘、除"的子菜单项:乘、除"清除与退出"的子菜单项:清除、退出另外,为了输入和显示,再建立两个文本框(输入数据)和四个标签。1、界面:其中Lable4的BorderStyle属性设置为1。2、菜单项属性:3、设计菜单:步骤:其它两个主菜单的建立与前面步骤类似,不再重复。设计完成后的窗口如下图。"确定"后结束。设计完成后,窗体顶行显示主菜单项,单击某个主菜单项,即可下拉显示其子菜单。4、程序代码:每个

5、菜单项都可以接收Click事件。每个菜单项都有一个名字(Name属性),将这个名字与Click放在一起,组成Click事件过程。OptionExplicitPrivateSubAdd_Click()x=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubMin_Click()x=Val(Text1.Text)-Val(Text2.Text)PrivateSubMul_Click()x=Val(Text1.Text)*Val(Text2.Text)PrivateSubDiv_Clic

6、k()IfText2.Text="0"OrText2.Text=""ThenEndSubPrivateSubClean_Click()Text1.Text=""EndSubPrivateSubQuit_Click()5、运行程序:在两个文本框中输入数字后,分别单击各菜单项或热键,看一看执行结果。本例中的"有效"属性和"可见"属性采用默认的"True",只有在必要时才设置其它属性。下面将讨论这些情况。在使用Windows或VB菜单时,已见过"与众不同"的菜单项,如有的呈灰色,单击这类菜单项不执行任何操作;有的菜单项前有"√"

7、号,或菜单项的某个字母下面有下划线等等。下面将介绍如何在菜单中增加这些属性。1、菜单项的有效属性(有效性控制)为了使程序正常运行,有时需要使某些菜单项失效,以防止出现误操作。例如前面的例子中,只有在文本框中输入数字后才能进行运算,否则运算没有意义。因此,如果尚未输入数据,则应使执行加、减、乘、除的菜单项失效,在输入数据后才生效。为此,可增加下面两个事件过程:PrivateSubText1_Change()IfText1.Text=""ThenEndSubPrivateSubText2_Change()IfText2.Tex

8、t=""ThenEndSub除增加上述两个事件过程外,还要方法:打开"菜单编辑器"窗口,把对应于这4个菜单项的数据区中的"有效"属性复选框中的"√"去掉即可。2、菜单项的复选属性(菜单项的标记)所谓菜单项标记,就是在菜单项前加上一个"√"。它有两个作用:增加方法:一般来说,菜单项标记通常是动态的加上或取

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。