- 1、本文档共34页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
授课内容-Read
第14章 菜单和工具栏 菜单Menu:可以提供一种方便的给命令分组的方法,同时也让用户更容易地执行这些命令。 工具栏控件ToolBar:而对于最常用的菜单命令采用工具栏图形按钮的方式来访问,显然更为快捷易用 菜单 菜单栏位于窗口标题下方 一个菜单栏中可以显示多个菜单标题 一个菜单标题可以对应一个菜单命令,或者可以展开显示含多个菜单项的菜单 每个菜单项可以是一个菜单命令,或包含下一级的子菜单 每个菜单最多可以包含五级子菜单。 菜单控件(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 = 删除文本框选中的
您可能关注的文档
- 投标报价的原则-工程招投标与合同管理.PPT
- 投标人资格要求准入条件-泰安高新区.DOC
- 投标文件格式附件.DOC
- 投标货物分项报价明细表-内蒙古自治区政府采购交易管理系统.DOC
- 投标文件格式深圳大学附属医院.DOC
- 投标文件的递交-杭州萧山国际机场.DOC
- 投标邀请函-中山陈星海医院.DOC
- 折射率为160的玻璃镜片与树脂镜片出现.PPT
- 抛丸除锈作业规范-中国中车.DOC
- 折叠式车顶XLR3.DOC
- 浙江衢州市卫生健康委员会衢州市直公立医院高层次紧缺人才招聘11人笔试模拟试题参考答案详解.docx
- 浙江温州泰顺县退役军人事务局招聘编外工作人员笔试备考题库及参考答案详解一套.docx
- 江苏靖江市数据局公开招聘编外工作人员笔试模拟试题及参考答案详解.docx
- 广东茂名市公安局电白分局招聘警务辅助人员40人笔试模拟试题带答案详解.docx
- 江苏盐城市大丰区住房和城乡建设局招聘劳务派遣工作人员4人笔试模拟试题带答案详解.docx
- 浙江舟山岱山县东沙镇人民政府招聘笔试模拟试题及参考答案详解1套.docx
- 最高人民检察院直属事业单位2025年度公开招聘工作人员笔试模拟试题含答案详解.docx
- 浙江金华市委宣传部、中共金华市委网信办所属事业单位选调工作人员笔试备考题库及答案详解1套.docx
- 广东深圳市党建组织员招聘40人笔试模拟试题及答案详解1套.docx
- 江苏南京水利科学研究院招聘非在编工作人员4人笔试模拟试题及参考答案详解.docx
最近下载
- 2025年4月20日四川省事业单位考试《公共基础知识》试题及答案解析参考.pdf
- 中层竞聘面试题目答案.doc VIP
- 电力系统优化与调度软件:PLEXOS二次开发_(4).电力系统优化理论.docx VIP
- 传染病、消毒知识测试题及答案.docx VIP
- 2025年解放军联勤保障部队第960医院医护人员招聘备考试题及答案解析.docx VIP
- 2021年版国家免疫规划疫苗儿童免疫程序相关知识考核试题含答案.docx VIP
- 电力系统优化与调度软件:Xpress二次开发_(3).电力系统优化问题的数学建模.docx VIP
- 中建钢筋精算管理操作手册.pdf VIP
- 电商仓库主管月工作总结.pptx
- 预防接种工作规范(2023版)试题.docx VIP
文档评论(0)