VB基础(第七章)菜单.pptVIP

第七章菜单 工具栏和状态栏 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 1VisualBasic中的菜单 菜单的基本作用有两个 一是提供人机对话的界面 二是管理应用系统 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 2菜单编辑器 进入 菜单编辑器 4种方法 数据区 编辑区 菜单项显示区 1 属性设置部分 2 菜单项编辑按钮 3 菜单显示区 7 2 1使用 菜单编辑器 编辑菜单 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 例7 1 设计一个具有个人爱好选择功能的菜单 操作者通过点击菜单项来选择自己的爱好 所选择的内容即可在文本框中显示出来 1 建立一名为 菜单设计实例 的窗体 在其中加入标签Label1 将其Caption属性改为 爱好 加入一文本框Text1 2 窗口中单击鼠标右键 选择 菜单编辑器 建立一个名为 爱好选择 的主菜单 单击向右箭头按钮 产生一级内缩符号 使后续菜单项降级子菜单项 再次配合向右箭头按扭 即产生两级内缩符号 再降级子菜单项 当需要升级时 可先单击向左箭头按钮 菜单项即向上升级 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 3 输入完后 单击 确定 按钮 此时该菜单即出现在窗体顶部 其中 爱好选择 为第一级 即菜单名称 其后的 读书 和 体育锻练 4 当用户从菜单中选择出个人爱好并单击鼠标时 此时在文本框Text1中即显示出具体内容 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 PrivateSubKH Click Text1 Text 科幻书籍 EndSubPrivateSubPB Click Text1 Text 跑步 EndSubPrivateSubQL Click Text1 Text 球类 EndSubPrivateSubTY Click Text1 Text 体育书籍 EndSubPrivateSubWX Click Text1 Text 文学书籍 EndSubPrivateSubYY Click Text1 Text 游泳 EndSub 5 菜单中的每一个菜单项的事件过程代码如下 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 2 2设定菜单项 1 有效性控制 格式 菜单名 Enabled False 或True PrivateSubCommand1 Click WX Enabled FalseEndSubPrivateSubCommand2 Click WX Enabled TrueEndSub 2 菜单项标记 格式 菜单名 Cheched False 或True PrivateSubPB Click Text1 Text 跑步 PB Checked TrueEndSub 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 3 键盘选择 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 3弹出式菜单 为了显示弹出式菜单 使用PopupMenu方法 该方法的语法如下 PopupMenu 菜单名 flags x y boldcommandflags位置常数的取值如下 0 缺省 弹出式菜单的左边界由x给定 4弹出式菜单以x位置为中心 8弹出式菜单的右边界由x给定 flags行为常数的取值如下 0 缺省 只有当用户用鼠标左键单击菜单项时 才显示弹出式菜单 2当用户用鼠标右键或者左键单击菜单项时 显示弹出式菜单 boldcommand参数指出式菜单中想用粗体显示的菜单项名称 例如 popupmenuoper 0 div其中 oper为菜单名 div为菜单项名 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 例1 设计一个简单的弹出式菜单 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfBOTTON 0ThenPopupMenuKCEndIfEndSub 通过 菜单编辑器 建立菜单时 主菜单项 即本例中的 课程名称 的 可见 属性一定要设为False 其它各菜单项的 可见 属性则为True 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 4工具栏和状态栏 7 4 1使用工具栏控件 例7 3 在窗体上建立一个工具栏 其中包括 字体 打开 退出 三个按钮对象 当用户单击某一工具按钮时 即执行相应的功能 设计过程如下 1 单击 工程 部件 命令 从打开的对话框中选取 MicrosoftWindowsCommonContrl6 0 添加Toolbar控件 2 双击Toolbar控件 3 单击右键 弹出 属性 打开 属性页 对话框 单击 插入按钮 索引值 按钮标题设为 字体 重复完成 打开 和 退出 两按钮的添加 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 4 窗体设计界面 见下图 5 事件代码如下 PrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button SelectCaseButton IndexCase1CommonDialog1 FontName 华文行楷 Text1 FontName CommonDialog1 FontNameCase2CommonDialog1 ShowOpenText1 Text CommonDialog1 FileNameCase3EndEndSelectEndSub 6 程序执行界面 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 例7 4 在工具按钮上载入图片 具体操作步骤如下 1 向窗体中添加ImageList控件 2 点击 属性 命令 即打开 属性页 对话框 3 向ImageList中加入图片 注意每个图片所对应的索引号 4 将Toolbar与ImageList二者建立联系 Toolbar控件 属性页 选择 通用 选项卡 在 图像列表 中选择ImageList1 PrivateSubForm Load Toolbar1 ImageList ImageList1EndSub 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 6 程序运行界面 5 为各工具按钮载入图片 7 4 2使用状态栏控件 例7 5 设计一窗体 其底部有一状态栏 状态栏中包括两个窗格 第一个窗格显示系统的当前时间 第二个窗格显示用户从已制作的下拉式菜单中选择的菜单项 设计步骤如下 1 建立一下拉式菜单 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 4 切换到 属性页 中的 窗格 选项卡 通过 插入窗格 按钮添为窗体的状态栏添加两个窗格 在 文本 一栏中分别填写 日期 爱好 并在 工具提示文本 中输入 系统当前日期 用户选择的爱好 2 将StatusBar控件加到标准工具箱 3 打开 属性页 控件对话框 5 此时窗体设计界面 见右图 PrivateSubDS Click StatusBar1 Panels 2 爱好 读书 EndSubPrivateSubTY Click StatusBar1 Panels 2 爱好 体育 EndSubPrivateSubForm Load StatusBar1 Panels 1 TimeEndSub 6 事件代码如下 7 程序执行界面 见中图 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 5应用举例 PrivateSubForm Load i 0Combo1 AddItem 宋体 0Combo1 AddItem 楷体 0EndSubPrivateSubForm Resize WithToolbar1 Buttons combo Combo1 Move Left Top Width 800EndWithEndSubPrivateSubToolbar1 ButtonClick ByValButtonAsMSComctlLib Button CommonDialog1 Filter txt CommonDialog1 FilterIndex 1 例7 8建立一个工具栏如下 第七章菜单 工具栏和状态栏 SelectCaseButton KeyCase open CommonDialog1 ShowOpenfname CommonDialog1 FileNameText1 Text fnameCase save CommonDialog1 ShowSaveCase print CommonDialog1 ShowPrinterEndSelectEndSubPrivateSubCombo1 Click IfCombo1 Text 宋体 ThenText1 Font 宋体 StatusBar1 Panels s5 宋体显示 ElseIfCombo1 Text 楷体 ThenText1 Font 楷体 GB2312 StatusBar1 Panels s5 楷体显示 EndIfEndSub 7 1VisualBasic中的菜单7 2菜单编辑器7 3弹出式菜单7 4工具栏和状态栏7 5应用举例7 6小结 第七章菜单 工具栏和状态栏 7 6小结 7 1VisualBasic中的菜单 7 2菜单编辑器 7 3弹出式菜单 7 4工具栏和状态栏 7 5应用