第 10章 高级界面设计
学习目标：
? 了解工具栏和状态栏的设计
? 了解多文档界面的创建和设计
? 掌握通用对话框的创建和使用
? 了解多媒体控件的应用技术
? 了解 VB应用程序向导的使用
第 10章 高级界面设计
教学内容：
10.1 工具栏和状态栏
10.2 多文档界面
10.3 通用对话框
10.4 多媒体控件应用
10.5 应用程序向导
10.1 工具栏和状态栏 － 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将 ImageList控件和 Toolbar控件添加到工具箱中,
然后添加到窗体上 。
(2) 为窗体上的 ImageList控件添加所需的图像 。
(3) 建立 ToolBar控件与 ImageList控件之间的关联 。
(4) 对 ToolBar上的按钮编写 Click事件响应代码 。
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
1,添加工具栏控件
(1),工程 → 部件”,选 Microsoft Windows Common Controls 6.0
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
(2) 用 在窗体任意位置添加一个 ImageList控件，名称默认
为 ImageList1
(3) 用 在窗体上添加一个 Toolbar控件 (该控件自动位于菜
单栏的下面 ),其名称默认为 Toolbar1。
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
2,为窗体上的 ImageList控件添加所需的图像
右击窗体上的 ImageList控件，选择“属性”命令
?,通用”选项卡：设置按钮大小
?,颜色”选项卡：设定按钮的颜色
?,图像”选项卡：选择要加入的图像
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,图像”选项卡：选择要加入的图像
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,图像”选项卡：定义“关键字” (在 ToolBar控件中引用的图
像标识名 )
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
3,建立 ToolBar控件与 ImageList控件之间的关联
右击窗体上的 Toolbar控件，选择“属性”命令
?,通用”选项卡：“图像列表”选择 ImageList1
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,按钮”选项卡：单击“插入按钮”
返回目录
工具栏第一个按钮：
?,索引,,自动变为 1
?,关键字,,输入
ImageList1 控 件 中 定义
的相应关键字
?,图像,,输入, 1”
以此类推插入其他按钮
10.1 工具栏和状态栏 － 工具栏的设计
4,响应 ToolBar控件事件
? 单击工具栏上的某个按钮, 将引发 ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button
As MSComctlLib.Button)
End Sub
? 根据按钮的关键字 (Button.Key)或者图像值 (Button.Image)
可判断单击的是哪个按钮, 然后通过 Select Case语句进行
相应的处理
例, 菜单中有一个, 打开, 菜单命令 (名称为 mOpen)，
工具栏上有一个, 打开, 按钮 (关键字为 open,图像值为
1),单击它们都执行同样的操作 (执行 OpenDoc过程 )，
相应的代码如下：
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
Private Sub mOpen_Click() '单击“打开”菜单命令
OpenDoc
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)
Select Case Button.Key
Case,open” '或 Case 1，表示单击“打开”按钮
OpenDoc
……
End Select
End Sub
返回目录
“打开, 按钮的关键字为 open，
图像值为 1
10.1 工具栏和状态栏 － 状态栏的设计
1,添加状态栏控件
(1),工程 → 部件”,选 Microsoft Windows Common Controls 6.0
(2) 用 在窗体上添加 Statusbar控件 (通常位于窗体的底部 )
(3) 设置窗格属性
返回目录
?“插入窗格, 按钮：用于在状
态栏上插入窗格, 最多 16个
?,索引,,每个窗格的编号 。
?,文本,,样式为 sbrText时,
窗格中显示的文本
?,关键字,,用于标识窗格的
字符串
?,样式,,设置窗格的显示状
态
10.1 工具栏和状态栏 － 状态栏的设计
例如，
返回目录
10.1 工具栏和状态栏 － 状态栏的设计
2,程序运行时在状态栏上显示信息
设置状态栏窗格属性 状态栏控件名称,Panels(索引值 )
例,
返回目录
Private Sub Text1_Change()
StatusBar1.Panels(2).Text = Str(Len(Text1.Text))
End Sub
10.2 多文档界面 － 概述
1,Windows应用程序的界面样式
? 单文档界面样式 (SDI - Single Document Interface)
应用程序的主窗口内每次最多只能打开一个文档
? 多文档界面样式 (MDI - Multiple Document Interface)
应用程序的主窗口内可打开多个文档子窗口
子窗口只能在父窗口内活动
? 类似于资源管理器的界面
窗口通常包括两部分：左边为一个树型的或者层次型的
视图，右边为内容显示区
返回目录
10.2 多文档界面 － 概述
2,多文档界面的特性
? 设计阶段特性
?子窗体是独立的，它不被限制在父窗体的区域内。即，设
计阶段，子窗体、父窗体 (MDI窗体 )和普通窗体没区别
? 运行期间特性
?子窗体的移动、改变大小等都被限制在其父窗体中
?子窗体最小化时，图标在其父窗体中显示；父窗体最小化
时，其所有子窗体也被最小化。
?子窗体最大化时，其标题与父窗体的标题合并，显示在父
窗体的标题条中。
?父窗体及其子窗体都可以有各自的菜单，子窗体加载时覆
盖其父窗体的菜单。
返回目录
10.2 多文档界面 － 创建和设计多文档界面
多文档界面的应用程序至少需要两个窗体：一个 MDI窗
体 (父窗体 )和一个或若干个子窗体。在不同窗体中共用的过
程和变量一般应存放在标准模块中
1,创建 MDI窗体
? 添加 MDI窗体：“工程 → 添加 MDI窗体”，名称默认为
MDIForm1
? 设计 MDI窗体：同普通窗体，如创建菜单栏、工具栏等。
2,创建和设计 MDI子窗体
? 打开一个现存的或添加一个普通窗体
? 将窗体的 MDIChild属性设置为 True
? 设计子窗体：同普通窗体
返回目录
10.2 多文档界面 － 创建和设计多文档界面
3,通过创建类的方法实现多个子窗体的创建
例如，已创建了一个名为 Formchild的子窗体，通过
Dim NewDoc As New Formchild
可创建 Formchild的一个对象
多次调用以下过程，则产生多个子窗体 (Formchild实例 )
Dim N As Integer
Public Sub FileNewProc()
Dim NewDoc As New Formchild
N = N + 1
NewDoc.Caption = "DOC" & N
NewDoc.Show '显示子窗体
End Sub
返回目录
10.2 多文档界面 － 创建和设计多文档界面
例：
返回目录
10.2 多文档界面 － 创建和设计多文档界面
(1) 添加 MDI窗体
?,工程 → 添加 MDI窗体”，名称默认为 MDIForm1
?,工程 → 工程 1 属性”，“启动对象”设为 MDIForm1
? 创建菜单栏
返回目录
10.2 多文档界面 － 创建和设计多文档界面
(2) 创建 MDI子窗体
? 将原 Form1窗体名称改为 Formchild
? 将窗体的 MDIChild属性设置为 True
(3) 编写 MDI窗体的程序代码
返回目录
10.3 通用对话框 － 概述
1,添加通用对话框控件
(1) 添加到工具箱：
“工程 → 部件”
(2) 添加到窗体
用 在窗体任意位置
添加 (无需调整大小 )，名
称默认为 CommonDialog1
利用通用对话框控件可创建六种标准对话框：打开、另
存为、颜色、字体、打印、帮助
返回目录
10.3 通用对话框 － 概述
2,通用对话框的基本属性和方法
(1) Action功能属性 (只能在程序中赋值 )：决定打开何种类型
的对话框
? 0—None 无对话框显示
? 1—Open 显示“打开”对话框
? 2—Save As 显示“另存为”对话框
? 3—Color 显示“颜色”
? 4—Font 显示“字体”对话框
? 5—Print 显示“打印”对话框
? 6—Help 显示“帮助”对话框
例如,CommonDialog1.Action=3 表示打开“颜色”对话
框
(2) DialogTiltle属性：用于设置对话框的标题
返回目录
10.3 通用对话框 － 概述
(3) CancelError属性：确定在用户按下“取消”按钮时是否
产
生错误信息 (默认为 False)
(4) 通用对话框的常用方法
? ShowOpen 显示“打开”对话框
? ShowSave 显示“另存为”对话框
? ShowColor 显示“颜色”对话框
? ShowFont 显示“字体”对话框
? ShowPrint 显示“打印”对话框
? ShowHelp 显示“帮助”对话框
例如,CommonDialog1,ShowColor 也表示打开“颜色”对话
框
返回目录
10.3 通用对话框 － 使用
1．“打开”对话框（该对话框仅供一个选取文件的用户界面，
而打开文件的具体操作还需编写代码）
常用属性：
? FileName：设置在“文件名称”文本框中所显示的文件名，或
返回所选取的文件名
? FileTitle：返回或设置所要打开文件的文件名 (不包含路径 )
? Filter：确定文件列表框中所显示的文件类型，例如
CommonDialog1.Filter ="Documents(*.DOC)|*.DOC|Text
Files(*.TXT)|*.txt|All Files|*.*"
? FilterIndex：表示用户在文件类型列表框中选取的文件类型
对上例设定的 Filter，若选定文本文件，则 FilterIndex值为 2
? InitDir：指定在“打开”对话框中显示的默认目录
返回目录
10.3 通用对话框 － 使用
[例 10.1] 程序要求：
? 单击“编辑图片”按钮，出现“打开”对话框；可调用
Windows的画图程序编辑选定的 BMP位图文件。
? 单击“浏览图片”按钮，可将选定图片显示在图像框中。
返回目录
设计窗体 运行窗体
10.3 通用对话框 － 使用
程序代码：
?窗体 Load事件响应代码,设置 CommonDialog1的相关属性
?“编辑图片”按钮的 Click事件响应代码,用 Shell函数调用
Windows的画图程序编辑选定的 BMP位图文件
?“浏览图片”按钮的 Click事件响应代码,利用
LoadPicture函数把图片放入 图像 框中
返回目录
10.3 通用对话框 － 使用
2．“另存为”对话框
为保存文件提供一个标准用户界面，供选择或键入文
件路径名。同样，储存文件的操作需要编写代码。
涉及的属性基本上与“打开”对话框相同。此外，还
有一个 DefaultExt属性，表示所存文件的缺省扩展名。
3．“颜色”对话框
最重要的是 Color属性，用于返回或
设置选定的颜色。例如：
Text1.ForeColor = CommonDialog1.Color
返回目录
10.3 通用对话框 － 使用
4．“字体”对话框常用属性：
?Color：返回所选颜色
?FontName：返回所选字体的名称
?Fontsize：返回所选字体的大小
?FontBold,FontItalic、
FontStrikethru,FontUnderline：
这些属性的值取 True或 False，用于设定文本是否粗体、
斜体、加删除线或加下划线
?Min,Max：确定所能选择的字体大小的最小值和最大值 (单
位为 Point)
?Flags：设置值及含义见教材表 10.3
注：显示“字体”对话框之前必须设置 Flags属性
返回目录
10.3 通用对话框 － 使用
5．“打印”对话框
“打印”对话框同样不能处理具体的打印作业，仅提供
一个标准打印界面供用户选择打印参数。所选参数存于各
属性中，比较常用的有：
? Copies：复制份数
? FromPage：起始页号
? Topage：终止页号
返回目录
10.3 通用对话框 － 使用
[例 10.2] 一个简单的文本文件
编辑程序
界面设计：
返回目录
10.3 通用对话框 － 使用
事件响应代码：
返回目录
10.3 通用对话框 － 使用
6．“帮助”对话框：从磁盘中提取已制作好的帮助文件
?Helpcommand：返回或设置帮助类型 (cdlHelpContents、
cdlHelpContext等 )
?HelpFile：指定 Help文件的路径及其文件名称
?HelpKey：指定帮助信息的关键字,例如
CommonDialog1.HelpCommand=vbHelpContents
CommonDialog1.HelpFile=”VB.HLP”
CommonDialog1.HelpKey=”Common Dialog
Control”
CommonDialog1.Action=6
?HelpContext：返回或设置所需要的帮助主题
返回目录
10.3 通用对话框 － 使用
[例 10.3]
Private Sub Command1_Click()
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.HelpFile = "C:\Windows\Help\Mspaint.HLP"
CommonDialog1.Action = 6
End Sub
返回目录
10.4 多媒体控件应用
1．添加 MMControl控件
?,工程 → 部件” →,控件”选项卡中选择,Microsoft
Multimidia Control6.0”
? →
说明：
? MMControl控件仅提供了对 MCI设备的操作接口。而设备能
否使用，则决定于该设备及相关驱动程序是否已安装。
? MMControl控件支持的部分设备见教材表 10.5
? MMControl控件 Command属性使用的命令见教材表 10.6。
例如，打开某一 MCI设备：
MMControl1.Command=”Open”
返回目录
10.4 多媒体控件应用
2．打开 MCI设备
? Notify属性：表示在下一命令完成时，是否产生 Done事件
? Wait属性：指定 MMControl控件是否等到下一命令执行完毕，
才将控制权还给应用程序
? Shareable属性：限制或允许其他应用程序或进程使用该设备
? DeviceType属性：指定 MCI设备的类型
如,MMControl1.Notify=False
MMControl1.Wait=True
MMControl1.Shareable=false
MMControl1.DeviceType=”CDAudio”
返回目录
10.4 多媒体控件应用
3．关闭 MCI设备
使用 Close命令，例如,MMControl1.Command=”close”
4．使用 Error和 ErrorMessage属性
处理由该控件产生的错误, 例如：
If Form1.MMControl1.Error Then
MsgBox Form1.MMControl1.ErrorMessage.vbCritica
End If
返回目录
10.4 多媒体控件应用
[例 10.4] 用 Multimedia MCI控件播放 CD
注：运行程序时，光
驱中应放有 CD盘片。
返回目录
播放 CD 暂停播放
10.4 多媒体控件应用
[例 10.5] 用 Multimedia MCI控件创建“媒体播放器”
返回目录
10.4 多媒体控件应用
返回目录
10.4 多媒体控件应用
[例 10.5]
窗体设计：
返回目录
程序代码：
10.5 使用应用程序向导
?“新建工程”对话框中选定,VB应用程序向导”,然后
按向导提示操作
返回目录
注：通过向导生成的只是应用程序的窗体与框架代
码, 许多功能还需要用户根据实际情况加以完善 。
学习目标：
? 了解工具栏和状态栏的设计
? 了解多文档界面的创建和设计
? 掌握通用对话框的创建和使用
? 了解多媒体控件的应用技术
? 了解 VB应用程序向导的使用
第 10章 高级界面设计
教学内容：
10.1 工具栏和状态栏
10.2 多文档界面
10.3 通用对话框
10.4 多媒体控件应用
10.5 应用程序向导
10.1 工具栏和状态栏 － 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将 ImageList控件和 Toolbar控件添加到工具箱中,
然后添加到窗体上 。
(2) 为窗体上的 ImageList控件添加所需的图像 。
(3) 建立 ToolBar控件与 ImageList控件之间的关联 。
(4) 对 ToolBar上的按钮编写 Click事件响应代码 。
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
1,添加工具栏控件
(1),工程 → 部件”,选 Microsoft Windows Common Controls 6.0
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
(2) 用 在窗体任意位置添加一个 ImageList控件，名称默认
为 ImageList1
(3) 用 在窗体上添加一个 Toolbar控件 (该控件自动位于菜
单栏的下面 ),其名称默认为 Toolbar1。
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
2,为窗体上的 ImageList控件添加所需的图像
右击窗体上的 ImageList控件，选择“属性”命令
?,通用”选项卡：设置按钮大小
?,颜色”选项卡：设定按钮的颜色
?,图像”选项卡：选择要加入的图像
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,图像”选项卡：选择要加入的图像
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,图像”选项卡：定义“关键字” (在 ToolBar控件中引用的图
像标识名 )
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
3,建立 ToolBar控件与 ImageList控件之间的关联
右击窗体上的 Toolbar控件，选择“属性”命令
?,通用”选项卡：“图像列表”选择 ImageList1
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
?,按钮”选项卡：单击“插入按钮”
返回目录
工具栏第一个按钮：
?,索引,,自动变为 1
?,关键字,,输入
ImageList1 控 件 中 定义
的相应关键字
?,图像,,输入, 1”
以此类推插入其他按钮
10.1 工具栏和状态栏 － 工具栏的设计
4,响应 ToolBar控件事件
? 单击工具栏上的某个按钮, 将引发 ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button
As MSComctlLib.Button)
End Sub
? 根据按钮的关键字 (Button.Key)或者图像值 (Button.Image)
可判断单击的是哪个按钮, 然后通过 Select Case语句进行
相应的处理
例, 菜单中有一个, 打开, 菜单命令 (名称为 mOpen)，
工具栏上有一个, 打开, 按钮 (关键字为 open,图像值为
1),单击它们都执行同样的操作 (执行 OpenDoc过程 )，
相应的代码如下：
返回目录
10.1 工具栏和状态栏 － 工具栏的设计
Private Sub mOpen_Click() '单击“打开”菜单命令
OpenDoc
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)
Select Case Button.Key
Case,open” '或 Case 1，表示单击“打开”按钮
OpenDoc
……
End Select
End Sub
返回目录
“打开, 按钮的关键字为 open，
图像值为 1
10.1 工具栏和状态栏 － 状态栏的设计
1,添加状态栏控件
(1),工程 → 部件”,选 Microsoft Windows Common Controls 6.0
(2) 用 在窗体上添加 Statusbar控件 (通常位于窗体的底部 )
(3) 设置窗格属性
返回目录
?“插入窗格, 按钮：用于在状
态栏上插入窗格, 最多 16个
?,索引,,每个窗格的编号 。
?,文本,,样式为 sbrText时,
窗格中显示的文本
?,关键字,,用于标识窗格的
字符串
?,样式,,设置窗格的显示状
态
10.1 工具栏和状态栏 － 状态栏的设计
例如，
返回目录
10.1 工具栏和状态栏 － 状态栏的设计
2,程序运行时在状态栏上显示信息
设置状态栏窗格属性 状态栏控件名称,Panels(索引值 )
例,
返回目录
Private Sub Text1_Change()
StatusBar1.Panels(2).Text = Str(Len(Text1.Text))
End Sub
10.2 多文档界面 － 概述
1,Windows应用程序的界面样式
? 单文档界面样式 (SDI - Single Document Interface)
应用程序的主窗口内每次最多只能打开一个文档
? 多文档界面样式 (MDI - Multiple Document Interface)
应用程序的主窗口内可打开多个文档子窗口
子窗口只能在父窗口内活动
? 类似于资源管理器的界面
窗口通常包括两部分：左边为一个树型的或者层次型的
视图，右边为内容显示区
返回目录
10.2 多文档界面 － 概述
2,多文档界面的特性
? 设计阶段特性
?子窗体是独立的，它不被限制在父窗体的区域内。即，设
计阶段，子窗体、父窗体 (MDI窗体 )和普通窗体没区别
? 运行期间特性
?子窗体的移动、改变大小等都被限制在其父窗体中
?子窗体最小化时，图标在其父窗体中显示；父窗体最小化
时，其所有子窗体也被最小化。
?子窗体最大化时，其标题与父窗体的标题合并，显示在父
窗体的标题条中。
?父窗体及其子窗体都可以有各自的菜单，子窗体加载时覆
盖其父窗体的菜单。
返回目录
10.2 多文档界面 － 创建和设计多文档界面
多文档界面的应用程序至少需要两个窗体：一个 MDI窗
体 (父窗体 )和一个或若干个子窗体。在不同窗体中共用的过
程和变量一般应存放在标准模块中
1,创建 MDI窗体
? 添加 MDI窗体：“工程 → 添加 MDI窗体”，名称默认为
MDIForm1
? 设计 MDI窗体：同普通窗体，如创建菜单栏、工具栏等。
2,创建和设计 MDI子窗体
? 打开一个现存的或添加一个普通窗体
? 将窗体的 MDIChild属性设置为 True
? 设计子窗体：同普通窗体
返回目录
10.2 多文档界面 － 创建和设计多文档界面
3,通过创建类的方法实现多个子窗体的创建
例如，已创建了一个名为 Formchild的子窗体，通过
Dim NewDoc As New Formchild
可创建 Formchild的一个对象
多次调用以下过程，则产生多个子窗体 (Formchild实例 )
Dim N As Integer
Public Sub FileNewProc()
Dim NewDoc As New Formchild
N = N + 1
NewDoc.Caption = "DOC" & N
NewDoc.Show '显示子窗体
End Sub
返回目录
10.2 多文档界面 － 创建和设计多文档界面
例：
返回目录
10.2 多文档界面 － 创建和设计多文档界面
(1) 添加 MDI窗体
?,工程 → 添加 MDI窗体”，名称默认为 MDIForm1
?,工程 → 工程 1 属性”，“启动对象”设为 MDIForm1
? 创建菜单栏
返回目录
10.2 多文档界面 － 创建和设计多文档界面
(2) 创建 MDI子窗体
? 将原 Form1窗体名称改为 Formchild
? 将窗体的 MDIChild属性设置为 True
(3) 编写 MDI窗体的程序代码
返回目录
10.3 通用对话框 － 概述
1,添加通用对话框控件
(1) 添加到工具箱：
“工程 → 部件”
(2) 添加到窗体
用 在窗体任意位置
添加 (无需调整大小 )，名
称默认为 CommonDialog1
利用通用对话框控件可创建六种标准对话框：打开、另
存为、颜色、字体、打印、帮助
返回目录
10.3 通用对话框 － 概述
2,通用对话框的基本属性和方法
(1) Action功能属性 (只能在程序中赋值 )：决定打开何种类型
的对话框
? 0—None 无对话框显示
? 1—Open 显示“打开”对话框
? 2—Save As 显示“另存为”对话框
? 3—Color 显示“颜色”
? 4—Font 显示“字体”对话框
? 5—Print 显示“打印”对话框
? 6—Help 显示“帮助”对话框
例如,CommonDialog1.Action=3 表示打开“颜色”对话
框
(2) DialogTiltle属性：用于设置对话框的标题
返回目录
10.3 通用对话框 － 概述
(3) CancelError属性：确定在用户按下“取消”按钮时是否
产
生错误信息 (默认为 False)
(4) 通用对话框的常用方法
? ShowOpen 显示“打开”对话框
? ShowSave 显示“另存为”对话框
? ShowColor 显示“颜色”对话框
? ShowFont 显示“字体”对话框
? ShowPrint 显示“打印”对话框
? ShowHelp 显示“帮助”对话框
例如,CommonDialog1,ShowColor 也表示打开“颜色”对话
框
返回目录
10.3 通用对话框 － 使用
1．“打开”对话框（该对话框仅供一个选取文件的用户界面，
而打开文件的具体操作还需编写代码）
常用属性：
? FileName：设置在“文件名称”文本框中所显示的文件名，或
返回所选取的文件名
? FileTitle：返回或设置所要打开文件的文件名 (不包含路径 )
? Filter：确定文件列表框中所显示的文件类型，例如
CommonDialog1.Filter ="Documents(*.DOC)|*.DOC|Text
Files(*.TXT)|*.txt|All Files|*.*"
? FilterIndex：表示用户在文件类型列表框中选取的文件类型
对上例设定的 Filter，若选定文本文件，则 FilterIndex值为 2
? InitDir：指定在“打开”对话框中显示的默认目录
返回目录
10.3 通用对话框 － 使用
[例 10.1] 程序要求：
? 单击“编辑图片”按钮，出现“打开”对话框；可调用
Windows的画图程序编辑选定的 BMP位图文件。
? 单击“浏览图片”按钮，可将选定图片显示在图像框中。
返回目录
设计窗体 运行窗体
10.3 通用对话框 － 使用
程序代码：
?窗体 Load事件响应代码,设置 CommonDialog1的相关属性
?“编辑图片”按钮的 Click事件响应代码,用 Shell函数调用
Windows的画图程序编辑选定的 BMP位图文件
?“浏览图片”按钮的 Click事件响应代码,利用
LoadPicture函数把图片放入 图像 框中
返回目录
10.3 通用对话框 － 使用
2．“另存为”对话框
为保存文件提供一个标准用户界面，供选择或键入文
件路径名。同样，储存文件的操作需要编写代码。
涉及的属性基本上与“打开”对话框相同。此外，还
有一个 DefaultExt属性，表示所存文件的缺省扩展名。
3．“颜色”对话框
最重要的是 Color属性，用于返回或
设置选定的颜色。例如：
Text1.ForeColor = CommonDialog1.Color
返回目录
10.3 通用对话框 － 使用
4．“字体”对话框常用属性：
?Color：返回所选颜色
?FontName：返回所选字体的名称
?Fontsize：返回所选字体的大小
?FontBold,FontItalic、
FontStrikethru,FontUnderline：
这些属性的值取 True或 False，用于设定文本是否粗体、
斜体、加删除线或加下划线
?Min,Max：确定所能选择的字体大小的最小值和最大值 (单
位为 Point)
?Flags：设置值及含义见教材表 10.3
注：显示“字体”对话框之前必须设置 Flags属性
返回目录
10.3 通用对话框 － 使用
5．“打印”对话框
“打印”对话框同样不能处理具体的打印作业，仅提供
一个标准打印界面供用户选择打印参数。所选参数存于各
属性中，比较常用的有：
? Copies：复制份数
? FromPage：起始页号
? Topage：终止页号
返回目录
10.3 通用对话框 － 使用
[例 10.2] 一个简单的文本文件
编辑程序
界面设计：
返回目录
10.3 通用对话框 － 使用
事件响应代码：
返回目录
10.3 通用对话框 － 使用
6．“帮助”对话框：从磁盘中提取已制作好的帮助文件
?Helpcommand：返回或设置帮助类型 (cdlHelpContents、
cdlHelpContext等 )
?HelpFile：指定 Help文件的路径及其文件名称
?HelpKey：指定帮助信息的关键字,例如
CommonDialog1.HelpCommand=vbHelpContents
CommonDialog1.HelpFile=”VB.HLP”
CommonDialog1.HelpKey=”Common Dialog
Control”
CommonDialog1.Action=6
?HelpContext：返回或设置所需要的帮助主题
返回目录
10.3 通用对话框 － 使用
[例 10.3]
Private Sub Command1_Click()
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.HelpFile = "C:\Windows\Help\Mspaint.HLP"
CommonDialog1.Action = 6
End Sub
返回目录
10.4 多媒体控件应用
1．添加 MMControl控件
?,工程 → 部件” →,控件”选项卡中选择,Microsoft
Multimidia Control6.0”
? →
说明：
? MMControl控件仅提供了对 MCI设备的操作接口。而设备能
否使用，则决定于该设备及相关驱动程序是否已安装。
? MMControl控件支持的部分设备见教材表 10.5
? MMControl控件 Command属性使用的命令见教材表 10.6。
例如，打开某一 MCI设备：
MMControl1.Command=”Open”
返回目录
10.4 多媒体控件应用
2．打开 MCI设备
? Notify属性：表示在下一命令完成时，是否产生 Done事件
? Wait属性：指定 MMControl控件是否等到下一命令执行完毕，
才将控制权还给应用程序
? Shareable属性：限制或允许其他应用程序或进程使用该设备
? DeviceType属性：指定 MCI设备的类型
如,MMControl1.Notify=False
MMControl1.Wait=True
MMControl1.Shareable=false
MMControl1.DeviceType=”CDAudio”
返回目录
10.4 多媒体控件应用
3．关闭 MCI设备
使用 Close命令，例如,MMControl1.Command=”close”
4．使用 Error和 ErrorMessage属性
处理由该控件产生的错误, 例如：
If Form1.MMControl1.Error Then
MsgBox Form1.MMControl1.ErrorMessage.vbCritica
End If
返回目录
10.4 多媒体控件应用
[例 10.4] 用 Multimedia MCI控件播放 CD
注：运行程序时，光
驱中应放有 CD盘片。
返回目录
播放 CD 暂停播放
10.4 多媒体控件应用
[例 10.5] 用 Multimedia MCI控件创建“媒体播放器”
返回目录
10.4 多媒体控件应用
返回目录
10.4 多媒体控件应用
[例 10.5]
窗体设计：
返回目录
程序代码：
10.5 使用应用程序向导
?“新建工程”对话框中选定,VB应用程序向导”,然后
按向导提示操作
返回目录
注：通过向导生成的只是应用程序的窗体与框架代
码, 许多功能还需要用户根据实际情况加以完善 。
