菜单与对话框学习教案.pptx

会计学9.1菜单(càidān)设计进入(jìnrù)菜单编辑器菜单(càidān)编辑器简介菜单项的控制(kòngzhì)键盘(jiànpán)的选择访问(fǎngwèn)键下拉式菜单(càidān)下拉菜单例题(lìtí)【例9.1】菜单(càidān)的属性如表下表所示运行时动态改变菜单(càidān)属性具体【显示／隐藏动态菜单(càidān)】、【增加菜单(càidān)项】和【删除菜单(càidān)项】等的Click事件代码如下：
PrivateSubMnuShowHide_Click()
IfMnuShowHide.Checked=TrueThen
MnuShowHide.Checked=False'隐藏复选标记
MnuDyna.Visible=False'隐藏“动态菜单(càidān)”项
Else
MnuShowHide.Checked=True'显示复选标记
MnuDyna.Visible=True'显示“动态菜单(càidān)”项
EndIf
EndSub
PrivateSubMnuAdd_Click()
DimDmAsInteger
Dm=MnuD.Count+1'计算索引值
LoadMnuD.Item(Dm)'增加索引为Dm的新菜单(càidān)项
MnuD.Item(Dm).Caption="新增的菜单(càidān)项"+Str(Dm)'为新菜单(càidān)项设置标题
MnuD.Item(Dm).Visible=True'显示新增菜单(càidān)项
MsgBox"新增菜单(càidān)项"+Str(MnuD.Count)
MnuDel.Enabled=True'使删除菜单(càidān)可有用
EndSub

PrivateSubMnuDel_Click()
IfMnuD.Count>1Then
MsgBox"删除新增菜单(càidān)项"+Str(MnuD.Count)
UnloadMnuD.Item(MnuD.Count)'删除菜单(càidān)项
IfMnuD.Count=1Then
MnuDel.Enabled=False'使删除菜单(càidān)不可用
EndIf
EndIf
EndSub

弹出式菜单(càidān)激活弹出式菜单使用(shǐyòng)PopupMenu方法：【例9.1】弹出式菜单(càidān)代码如下9.2工具栏和状态栏工具栏(ToolBar)ToolBar“按钮”选项对话框中的主要(zhǔyào)属性：【例9.2】工具栏按钮制作(zhìzuò)用索引(suǒyǐn)值(Index)来确定工具栏按钮图像工具栏按钮的制作(zhìzuò)过程工具栏按钮的图像是通过ToolBar控件从ImageList的图像库中获得的。ImageList控件y就是一个图像的集合，这些图像可以被W1ndows公共控件使用。ImageList控件不能独立使用，它需要TooLBar控件等来显示所存储的图像。具体步骤如下：
1)在工具箱里中单击ImageList控件将它拖到窗体中的任何位置。(位置不重要，因为它运行时是不可见的)。
2)在ImageList控件图标图上右击，选择快捷菜单中“属性”命令，打开ImageList属性页窗口(chuāngkǒu)
设置ImageList控件属性窗口(chuāngkǒu)中“通用”标签中的单选按钮16×l6，确定图像的大小。选择“图像”标签，ImageList控件“图像”选项卡。
3)单击“插入图片”按钮，将所需图形的图形文件打开，则选中的图形将自动的添加到图形对话框中。如图9-13添加了五个图形“new”、“open”、”save”、”copy”、”exit”，设置它们的索引值分别为1,2,3,4,5.

4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”..将“图像列表”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。单击“插入图片”按钮，将所需图形的图形文件打开，则选中的图形将自动的添加到图形对话框中。如图9-13添加了五个图形“new”、“open”、”save”、”copy”、”exit”，设置它们的索引(suǒyǐn)值分别为1,2,3,4,5.

4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”..将“图像列表”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”.
将“图像列表(lièbiǎo)”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。ImageList控件的