《菜单与对话框》PPT课件

《《菜单与对话框》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章菜单与对话框本章主要内容菜单的设计工具栏和状态栏对话框9.1菜单设计9.1.1菜单编辑器(MenuEditor)9.1.2下拉式菜单9.1.3运行时动态改变菜单属性9.1.4弹出式菜单进入菜单编辑器打开【菜单编辑器】窗口有三种方法：（1）从【工具】菜单上，单击【菜单编辑器】。（2）在工具栏上单击【菜单编辑器】快捷按钮。（3）用鼠标选中窗体后，单击鼠标右键，在弹出菜单中选择【菜单编辑器】选项并单击。菜单编辑器简介【名称】（Caption）Name（名称）Checked（复选）Enabled（有效）Visible（可见索引（Index)菜单项的控制菜单项标记•Checked（复选）：设置是否

2、选中标志。•Enabled（有效）：决定菜单项是否对事件作出响应。（正常显示或灰色）Visible（可见）：决定菜单项是否可见。键盘的选择快捷键快捷键访问键标题输入：&File下拉式菜单下拉菜单例题【例9.1】控件名称属性属性值myformcaption菜单例题myFramecaption当前状态mytexttext我本将心向明月，奈何明月照沟渠菜单的属性如表下表所示启动【菜单编辑器】，进行菜单设计，菜单的属性如表9.2所示：标题名称快捷键标题名称索引值背景颜色Mnucolor菜单控制…天蓝(&B)MnuBlueCtrl+B…显示/隐藏主菜单项MnuShowHide…橙黄(&Y)MnuYell

3、owCtrl+Y…-SeprateBar2…草绿(&G)MnuGreenCtrl+G…增加菜单项MnuAdd…默认(&W)MnuWhiteCtrl+W…删除菜单项MnuDel字体…-SeprateBar1…增大字体(&I)MnuAddFontCtrl+A…关闭MnuClose…减小字体(&D)MnuDecFontCtrl+D动态菜单MnuDyna…新增的菜单项1MnuD1运行时动态改变菜单属性在Windows应用程序中，往往随着用户不同的操作，菜单项也会有相应的变化，常见的有【复选菜单】、【失效菜单】和【不可见菜单】等变化。我们以例9.1为例来做一个动态的菜单项，其代码段如下：具体【显示／隐藏

4、动态菜单】、【增加菜单项】和【删除菜单项】等的Click事件代码如下：PrivateSubMnuShowHide_Click()IfMnuShowHide.Checked=TrueThenMnuShowHide.Checked=False'隐藏复选标记MnuDyna.Visible=False'隐藏“动态菜单”项ElseMnuShowHide.Checked=True'显示复选标记MnuDyna.Visible=True'显示“动态菜单”项EndIfEndSubPrivateSubMnuAdd_Click()DimDmAsIntegerDm=MnuD.Count+1'计算索引值LoadMnuD

5、.Item(Dm)'增加索引为Dm的新菜单项MnuD.Item(Dm).Caption="新增的菜单项"+Str(Dm)'为新菜单项设置标题MnuD.Item(Dm).Visible=True'显示新增菜单项MsgBox"新增菜单项"+Str(MnuD.Count)MnuDel.Enabled=True'使删除菜单可有用EndSubPrivateSubMnuDel_Click()IfMnuD.Count>1ThenMsgBox"删除新增菜单项"+Str(MnuD.Count)UnloadMnuD.Item(MnuD.Count)'删除菜单项IfMnuD.Count=1ThenMnuDel.En

6、abled=False'使删除菜单不可用EndIfEndIfEndSub弹出式菜单激活弹出式菜单使用PopupMenu方法：[<对象名>．]PopupMenu<菜单名>[，flags[，x[，y[，boldcommand]]]]其中：l对象名默认为当前窗体。lflags参数用于设定弹出菜单的性能。lx，y参数为坐标值。lboldcommand参数用于在弹出式菜单中显示一个菜单控制。lflags参数可以定义弹出式菜单的位置与性能。取值分两组：位置常量和行为常量。Flags各常量取值如下：----位置常量取值：0(默认)：弹出菜单的左边定位于X坐标。4：弹出菜单以X点坐标为中心线。8：弹出菜单的右

7、边定位于X坐标。----行为常量取值：0(默认)：菜单命令只接收右键单击。2：菜单命令可以接收左、右键单击。【例9.1】弹出式菜单代码如下PrivateSubmyText_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbRightButtonThen'判断是否右击了鼠标myText.Enabled=Fa