VB对话框与菜单程序设计

在VB中已被做成“公共对话框”(Common
Dialog)控件。
8.1 对话框设计
8.1.1 通用对话框
通用对话框是一种ActiveX控件 ，位于 “Microsoft Common Dialog Control 6.0”部件中。
工程→部件→ Common Dialog Control 6.0
8.1 对话框设计
类型。该属性的值是一个字符串，由一组或多组
文件类型表达式构成，每组代表一类文件。构成
规则是： 类型说明字符串|类型通配表达式[|类型说明字 符串|类型通配表达式]…
1. 文件对话框
类型说明字符串为对文件类型的说明，类型通配表 达式表示需显示的文件类型，各组之间用“|”符号 分开。
Object.Filter[＝Description1|Filter1|Description2|Filter2…]
该属性用来表示所存文件的默认扩展名。
2. 颜色对话框
“颜色”对话框中的调色板除了提供基本颜色外，还 提供了自定义颜色，供用户调色。对用户来说，使 用该对话框，可以获得非常直观的效果。
Color属性:用来返回选定的RGB颜色值。
2. 颜色对话框
例如，用颜色对话框改变窗体的背景色
Private Sub Command2_Click()
1. 利用菜单编辑器定义菜单项
例：为电子标题板增加一个下拉式菜单，利用菜 单控制标题板的内容、字号、字体风格等。
设计菜单项：
例：使用菜单控件数组：

简化编程，用一段代码处理多个菜单项
8.2.3 弹出式菜单设计
弹出式菜单独立于菜单栏而显示在窗体的浮动菜单 ，操作时使用右键。 在弹出式菜单上显示的内容与鼠标位置有关。
FromPage：打印起始页
ToPage：打印终止页
PrinterDefault ：确定在打印对话框中的选择
是否用于改变系统默认的打印机设置。
8.2 菜单设计
8.2.1 菜单设计概述
菜单提供了一种结构化的方式向使用应用程序
的用户提示可用的命令。
菜单是Windows应用程序中十分关键的要素之
一，以分组的形式组织多个命令或操作。
1. 文件对话框
FilterIndes属性：过滤器索引
该属性用于表示用户在“文件类型”列表框中
选定的文件类型的序号。例如与图所示相对应，
Word文档的该属性值为1，文本文件的该属
性值为2。
例：在窗体上画一个名称为command1的命令按钮，标题为” 打开文件“，再画一个名称为CD1的通用对话框。程序运行 后，若单击命令按钮，则弹出打开文件对话框，并按下列要 求设置属性和代码： ⑴设置适当属性，使对话框的标题为“打开文件”，初始 目录为c盘根目录； ⑵设置适当属性，使对话框的“文件类型”下拉式组合框 中有二行：“Word文档”、“所有文件”，默认的是“所有
51Leabharlann Baidu
点击“右键”显示菜单项的时候，应先判
断文本框中是否有文本被选中，确定哪些菜单项 可用。 If Text1.SelLength > 0 Then mnuEditCut.Enabled = True mnuEditCopy.Enabled = True Else mnuEditCut.Enabled = False mnuEditCopy.Enabled = False
8.2.2
下拉式菜单设计
主菜单条 菜 单 项 子菜单名
主菜单名 快捷键 热键 子菜单标记
分隔线
8.2 菜单设计
8.2.2 下拉式菜单设计
下拉式菜单的设计通过菜单编辑器来完成。打 开菜单编辑器的方法： ① “工具”菜单→菜单编辑器 ② 组合键“Ctrl+E” ③ 工具栏上的“菜单编辑器”按钮 ④ 鼠标右键→菜单编辑器
8.1 对话框设计
DialogTitle属性：产生的对话框的标题文字，如不
进行设置则会使用默认的标题。
CancelError属性：在每个所产生的对话框上都有
“取消”按钮，该属性决定程序运行时，用户单击
了“取消”按钮后是否会产生出错信息。
8.1 对话框设计
该属性取True时，单击“取消”按钮会产生一个错
对话框不会产生任何信息，直到设置了该属性后才会出 现相应的对话框。
8.1 对话框设计
Action属性返回或设置被显示的对话框的类型： CommonDialogName.Action [＝Value]
其中CommonDialogName为通用对话框控件的名字，
Value值可以取1～6的整数， 其含义如表示。
设计时，通用对话框在窗体上显示成一个图
标，可以在“属性页”里中进行属性设置，将其
设置为不同类型，
可以通过代码，使用Action属性或Show方法，将
通用对话框设置成不同的具体对话框。
8.1 对话框设计
通过在代码中设置不同的Action值可以产生不同的对话
框。如果没有设置该属性（默认值为0），运行时通用
8.2.3 弹出式菜单设计
与一般菜单的设计相似，弹出式菜单通过菜
单编辑器建立。不同的是菜单名的 Visible属性设
置为False，或者在菜单编辑器中不选中“可见”
复选框。
8.2.3 弹出式菜单设计
语法格式：
[窗体名.]PopupMenu 菜单名, flags, x, y
说明:

省略窗体名,将打开当前窗体的菜单; 菜单名是通过菜单编辑器设计的菜单的名称 Flags参数为一些常量数值的设置,包含位置常数和行 为常数，表示弹出的位置和触发的键位置。
件，并以“列表”或“详细资料”的方式显示出
来。文件对话框具有两种模式，即Open和Save
(Save As)，其中Open模式可以使用户指定打开 的文件，Save模式可以使用户指定保存的文件。
1. 文件对话框
Action属性：对话框类型（取值1或2）
DefaultExt属性：对话框默认的文件扩展名
3. 字体对话框
Flags属性值可以设置为如下3种情况： ①cdlCFScreenFonts：屏幕字体。 ②cdlCFPrinterFonts：打印机字体。 ③cdlCFBoth：可以是屏幕字体，也可以是打印 机字体。
书本P235 【例8.4】
例：
4. 打印对话框
Copys：设置或返回打印份数
8.2 菜单设计
8.2.1 菜单设计概述
下拉式菜单
弹出式菜单
8.2.2 下拉式菜单设计
下拉式菜单是用户在任
何时候都可以在顶端菜单 条上选择后拉出的菜单。
8.1 菜单设计
8.2.2 下拉式菜单设计
在Visual Basic中，把每个菜单项看成是一个 控件。菜单控件只包含一个事件，即Click事件。
8.2.2
下拉式菜单设计
打开“菜单编辑器”：
“Tools”菜单
在“工具栏”上选择“菜单编辑器按钮”
8.2.2 下拉式菜单设计
“菜单编辑器”的使用：
菜单项属性
操作按钮
菜单列表框
8.2.2
下拉式菜单设计
关于下拉式菜单的说明
1．Caption：菜单项标题。 2．Name：菜单项名称。当通过代码处理菜单项时需 要使用Name属性。 3．热键： 在菜单的Caption属性中在某个字母前加上 “&”符号就可以将该字母变为热键。当文件菜单展开 时，同时按下Alt和O就可以选择“打开”菜单命令。 4．ShortCut：快捷键， 不用打开“文件”菜单就可 以通过Ctrl+O快捷键来选择“打开”菜单命令。“打 开”菜单项的快捷键为Ctrl+O。
8.2.3 弹出式菜单设计
内部常数 vbPopupMenuLeftAli gn vbPopupMenuCenter Align vbPopupMenuRightA lign 位置常数 0(默认) 4 8 说明 弹出菜单的左上角位于X 弹出菜单上框中央位于X 弹出菜单的右上角位于X
8.2.3 弹出式菜单设计
第8章
8.1 8.2 8.3
用户界面设计
对话框设计 菜单设计 多文档界面应用程序
8.1 对话框设计
对话框是一种特殊的“窗体”，只有一个“关闭”按钮， 不能最大化和最小化，大小一般不能改变。 一些应用程序中常常需要进行打开和保存文件、选择颜色 和字体、打印等操作，这就需要应用程序提供相应的对 话框以方便使用。这些对话框作为Windows资源，
DialogTitle属性：对话框标题栏的字符串
1. 文件对话框
FileName属性：文件名称
该属性值为字符串类型，用于设置或得到用户
所选定的文件名。即当程序执行时，用户选定
的某个文件名将显示在“文件名”文本框中，
同时此文件名及相关路径将以字符串的形式赋 值给FileName属性。
1. 文件对话框
表 Action 属性 1 2 3 4 5 6
Action 属性和 ShowX 方法 ShowX 方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp 说明 显示“打开”对话框 显示“另存为”对话 框 显示“颜色”对话框 显示“字体”对话框 显示“打印”对话框 显示“帮助”对话框
书本P232 【例8.1】

建立一个命令按钮，用于打开一个Windows应用程序，如“计 算器”、“日历”等。
2.另存为对话框
“另存为”对话框为用户在存储文件时提供了一
个标准界面，供用户选择或键入所要存入文件的
路径及文件名。
“另存为”对话框所涉及的属性与“打开”对话
框基本相同，只是多了一个DefaultExt属性，
误信息，同时自动将Err对象的Number属性值设置
为32755。程序中可以通过代码来访问这个属性以判
断是否按下了“取消”按钮，以决定程序的走向。
如果该属性值置为False（默认），则当单击“取消” 按钮时，不会产生任何出错信息。
1. 文件对话框
“打开”对话框充分利用了操作系统的功能，它
可以遍历整个的磁盘目录结构，找到所需要的文
InitDir属性：初始路径 该属性用来指定“打开”对话框中的初始目录。默认设 置显示当前目录。初始路径在设计时或代码编写中均可 进行设置。
例：
Cd1.InitDir=”E:\教材” ‘将对话框的初始路径设为
E盘“教材”文件夹
1. 文件对话框
Filter属性：文件类型
通过Filter属性在“打开”对话框中设置文件的
内部常数 vbPopupMenuLeftBut ton vbPopupMenuRightB utton 行为常数 0(默认) 说明 菜单只接受右键单击
2
菜单接受左、右键单击
两个常数可以相加或者以or相连
例 为窗体设计一个弹出式菜单，用于设置窗体 背景颜色。
50
例 在窗体上添加一个文本框，通过下拉菜单实 现复制、粘贴功能
文件”；
⑶编写命令按钮的事件过程，使得单击按钮可以弹出“打 开文件”对话框；
思路： 首先，条件⑴、⑵是在对话框属性窗口上配置参数，可 在对话框属性窗口内填写“对话框标题”、“初始化路径”的相
应内容；
其次，过滤器的内容为：Word文档|*.doc|所有文件 |*.*；且根据题意，过滤器索引值设为2； 另，条件⑶是指编写代码，调用通用对话框，可采用如 下程序代码： cd1.action=1 或者 cd1.showopen 均可
Commondialog1.CancelError=false
CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color End Sub
3. 字体对话框
“字体”对话框用来设置并返回所用字体的名字、 字形、大小、效果及颜色。使用字体对话框时， 必须首先设置对话框的Flags属性，然后才能使用 ShowFont方法实际显示对话框。
8.1 对话框设计
注意：使用该控件所产生的对话框仅提供了人---机信息
交互的界面，并不能实现真正的操作（如打开、另存、
打印等），要想实现这些具体的操作必须进行相应的编 程。
ShowX方法设置被显示的对话框的类型，其语
法格式为：
CommonDialogName.ShowX
其中CommonDialogName为通用对话框控件的 名字。ShowX方法参考表8-1。
5．分隔条：将菜单按功能进行分组。通过将Caption 属性设置为“-”（减号、连字符）可以将菜单项设置为 分隔条。 6．有效(Enabled)检查框：当某个菜单项的颜色变为 灰色时表示该菜单项的功能被禁用。将菜单项的 Enabled属性设置为False就可以禁用该菜单项。 7．可见(Visible)检查框：通过将菜单项的Visible属 性设置为False可以隐藏该菜单项，而要重新显示该菜 单项仅需将Visible属性重新设置为True。 8．复选(Checked)检查框：通过将菜单项的 Checked属性设置为True可以在菜单项前显示复选标 志。