- 1、本文档共49页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第10章应用界面设计
第十章 应用界面设计 菜单Menu:可以提供一种方便的给命令分组的方法,同时也让用户更容易地执行这些命令。 工具栏控件ToolBar:而对于最常用的菜单命令采用工具栏图形按钮的方式来访问,显然更为快捷易用 10.1 设计普通菜单 菜单栏位于窗口标题下方 一个菜单栏中可以显示多个菜单标题 一个菜单标题可以对应一个菜单命令,或者可以展开显示含多个菜单项的菜单 每个菜单项可以是一个菜单命令,或包含下一级的子菜单 每个菜单最多可以包含五级子菜单。 菜单控件(Menu) 菜单控件(Menu控件)可以显示应用程序的自定义菜单。 Menu控件与其它标准控件有所不同: 首先在工具箱中找不到Menu控件 其次菜单具有其它控件所不具有的特性,菜单是有固定的位置、外观和层次结构,使用手工在窗体上不易绘制。 VB专门提供了菜单编辑器工具,利用该工具就可以轻松地创建菜单 使用菜单编辑器设计菜单栏 在VB中执行菜单命令“工具|菜单编辑器” 使用菜单编辑器设计菜单栏 选择要添加菜单栏的窗体 进入“菜单编辑器” “标题”中输入显示文本,即Caption属性 “名称”中输入菜单项的名称,即Name属性 左右箭头决定菜单项的缩进级,从而表示菜单项是菜单标题还是子菜单项 点【下一个】按钮重复,直到结束按下【确定】按钮 ,关闭“菜单编辑器” 分级子菜单 创建菜单分隔条 点“插入”按钮,在选定的菜单项前插入一个菜单控件 “标题”中输入字符“-” 设置“名称”属性 点“确定”按钮 定义菜单项的访问键和快捷键 访问键:在“标题”中加入字母 快捷键:在“快捷键”组合框中选择 区别:访问键只能迅速将光标定位 快捷键能直接触发事件 菜单控件的属性和事件 Caption属性 菜单标题文本 Enabled属性 可响应标记 Visible属性 可见标记 Checked属性 选中标记 ShortCut 属性快捷键 Click事件 选中菜单项 响应菜单事件 菜单控件只包含一个事件,即Click事件,当用鼠标或键盘选中该菜单控件时,将触发该事件。 编写Click事件过程。比如: Sub mnuFileExit_Click() Unload Me End Sub 使用复选标记 设计时加上复选标志 Checked属性为TRUE,则加“√”标记 Checked属性为FALSE,则无标记 菜单示例 【例】设计文本框,利用菜单命令改变文本框字体效果(粗体、斜体和下划线),并实现文本的剪切、复制和粘贴,要求控制剪切、复制和粘贴菜单的可用性,以保证符合操作逻辑,如【粘贴】菜单项在剪切板为空时应无效。 菜单示例——使用复选标记 文本框字体效果可以通过设置文本框的FontBold、FontItalic和FontUnderline属性来实现,每次按下后这些属性应该与原值相反,同时也要将菜单控件的Checked属性变反,使菜单选择标志与字体相吻合。 粗体菜单被按下 Private Sub mnuFontBold_Click() mnuFontBold.Checked = Not mnuFontBold.Checked Text1.FontBold = Not Text1.FontBold End Sub ? 斜体菜单被按下 Private Sub mnuFontItalic_Click() mnuFontItalic.Checked = Not mnuFontItalic.Checked Text1.FontItalic = Not Text1.FontItalic End Sub 菜单示例——设置菜单项的有效性 对于剪切和复制菜单来说,应该根据文本框中是否有文本被选择来决定菜单是否生效,该功能由子程序SetEnabledValue来负责。在按下编辑菜单时决定子菜单的有效性。 按下编辑菜单 Private Sub mnuEdit_Click() 设置剪切和复制菜单的有效性 If Text1.SelLength 0 Then 判断是否有选择文本 mnuEditCut.Enabled = True mnuEditCopy.Enabled = True Else mnuEditCut.Enabled = False mnuEditCopy.Enabled = False End If End Sub 菜单示例 剪切菜单被按下 Private Sub mnuEditCut_Click() Clipboard.SetText Text1.SelText 文本框选中的文字送入剪切板 Text1.SelText =
您可能关注的文档
- Bios基本选项解释.doc
- 概预算实训报告.doc
- 让幻灯片变得更美.ppt
- 2013年职称英语考试综合类考前预测试卷 一 .doc
- 初三英语上学期之用所给词的适当形式填空.doc
- 暑假工厂实践报告1.doc
- Ayqoyca2010托福口语准备.doc
- 哈夫 霍夫 变换.doc
- 泽泉小学三年级上册英语期中考试试卷.doc
- pcb制程能力及其他-training-2.ppt
- 2025信息系统项目管理师考试大纲.docx
- 2025保险调研课题报告.docx
- 2025信息公开责任分解表.docx
- 2025侵犯邻近脏器的进展期胃癌的临床诊疗专家共识(完整版).docx
- 2025全球与中国市场体检中心深度研究报告.docx
- 2025全球与中国快速诊断测试市场现状及未来发展趋势.docx
- 2025先天性甲状腺功能减低症的诊疗规范及遗传学研究进展(全文)_20250116_025704.docx
- 2025先天性甲状腺功能减低症的诊疗规范及遗传学研究进展(全文).docx
- 2024年高密度聚乙烯土工膜行业市场需求分析报告及未来五至十年行业预测报告.pptx
- 2025元旦作文800字_原创精品文档.docx
文档评论(0)