vb菜单和对话框.ppt

菜单、对话框和多窗体设计1、5.4小节2、菜单的使用——下拉菜单和弹出式菜单3、对话框的分类和使用4、多窗体程序设计5.4.1菜单和对话框程序设计

［例5-15］设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。效果如下图所示：VB菜单包含下拉菜单和弹出式菜单，用菜单编辑器可以非常方便的建立菜单。
操作步骤：
（1）从“工具”菜单上，选取“菜单编辑器”，进入对话框；（2）菜单属性设置
表5-10菜单属性设置（3）属性与代码设计
菜单属性设置好后，要给每个需要完成某些功能的菜单项编写对应的代码。
先给窗体内添加一个文本框Text1，Text1的属性如下表所示。单击“编辑”菜单下的“字体”子菜单，选择“黑体”，弹出对应的“单击”事件代码编辑窗口，黑体菜单的名称为在设计时输入的名称“Font1”。
“黑体”子菜单“单击”事件代码：
PrivateSubFont1_Click()
Text1.FontName="黑体"
EndSub
按照上述步骤依次选择“宋体”、“楷体”子菜单，完成相应的代码编写。［例5-16］在［例5－15］的基础上增加一个弹出式菜单，包含“剪切”、“复制”和“粘贴”功能，右击文本框时弹出该快捷菜单。操作步骤：
（1）在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为“Edit”(该标题和名称可任意设定，因为它在快捷菜单弹出时不显示)。
（2）将“Edit”菜单的可见属性设置为False。
（3）单击“下一个”命令按钮，标题文本框中输入“剪切”，编辑对应的名称，单击按钮，将“剪切”菜单设置为“Edit”菜单的下一级菜单。
（4）参照步骤3完成“复制”和“粘贴”菜单的设置。
（5）使用PopupMenu方法来显示弹出式菜单。
语法格式：[对象].PopupMenu菜单名（6）需要在文本框的Mousedown事件里编写对应的代码。具体代码如下：剪切的Click事件代码：
Clipboard.Clear‘清空剪贴板的内容’将文本框中所选的内容复制给剪贴板
Clipboard.SetTextText1.SelTextText1.SelText=“”‘删除所选
mnueditpaste.enable=true'粘贴恢复为可用
复制的Click事件代码：
Clipboard.ClearClipboard.SetTextText1.SelTextmnueditpaste.enable=true

粘贴的Click事件代码：
Text1.SelText=Clipboard.GetText()［例5-17］将“文件”菜单里“打开”和“保存”菜单功能补充完整。
问题分析：
本例涉及到两种通用对话框的使用，当单击“打开”就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；当单击“保存”就打开另存为对话框。用户输入文件名后，便可以新的文件名保存文本框的内容。Action属性比如：使用打开文件对话框，在运行时打开一幅图像PrivateSubCommand1_Click()
CommonDialog1.ShowOpen′将通用对话框显示为打开文件对话框
Image1.Picture=LoadPicture(CommonDialog1.FileName)
EndSub颜色对话框和字体对话框的使用“颜色”对话框
颜色对话框是当Action=3时的通用对话框，如右图。
重要属性：Color，用来返回或设置选定的颜色。“字体”对话框
字体对话框是Action=4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。

字体对话框重要的属性有：Color,FontName,FontSize,FontBoldFontItalic,FontStrikethru,FontUnderline,Max,mint等，见下图。Flags属性：设置所显示的字体类型，数据类型为Long。
注意：在显示“字体”对话框前，必须先将Flags属性设置为cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。
Flages属性应取下列值：
cdlCFScreenFonts &H1 屏幕字体
cdlCFPrinterFonts &H2 打印机字体
cdlCFBoth &H3 打印机字体和屏幕字体。
cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框PrivateSubCommand2_Click()
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
Com