第 十五 讲

基本课题：记事本管理功能设计（一）

教 学 目 的 与 要 求：

本讲介绍几种对话框：预定义对话框、公共对话框和自定义对话框的属性及使用，要求同学们掌握公共对话框的属性页设置和使用方法，并能利用预定义对话框和公共对话框来实现记事本的管理功能。

教 学 的 重 点、难 点：

重点、难点： 用对话框实现记事本的管理功能

对 教 材 的 处 理 和 意 见：

以教材为主，联系实际情况及时做补充

VB中的对话框：

预定义对话框、公共对话框、用户自定义对话框

一预定义对话框

1 消息对话框

MsgBox函数让用户在一个简单的对话框中显示消息，这个对话框可包括预定义的按钮和项目、用户要指定对话框中所使用的消息、标题、按钮和项目。

MsgBox函数可以用来在对活框中显示消息并等待用户单击按钮，然后返回一个整型的值，让程序了解用户单击的是哪—个按钮。

MsgBox函数的语法是这样的：

变量=MsgBox（<消息内容>[，<对话框类型>[,<对话框标题>]]）

说明：

（1）<消息内容>指定在对话框中出现的文本。在<消息内容>中使用硬回车符<CHR(13)>可以使文本换行。对话框的高度和宽度随着<消息内容>的增加而增加，最多可有1024个子符。

注意：回车符或者换行符与字符串之间要用“+”或者“＆”来连接。

（2）<对话框类型>指定对话框中出现的按钮和图标，一般有3个参数。我们平时经常接触的“Yes/No”、“OK/Cancel”，“Retry/Abort/Ignore”等等，这些都是在按钮值中设定的，按钮值如下：

并且不同的消息可以搭配不同的图标，比如帮助文件用问号，一般提示用一个圈里一个I等等，它们也是按钮值的一部分：

默认图标：

（3）<对话框标题>指定对话框的标题。

如：msg=MsgBox(“请确认输入的数据是否正确！”，3+48+0，”数据检查”)

（4）Msgbox()返回的值指明了在对话框中选择哪一个按钮，如表：

（5）代码中可以是数值也可以是数值常量。

（6）如果省略了某些可选项，必须加入相应的逗号分隔符。

（7）若不需要返回值，则可以使用MsgBox的命令形式：

MsgBox<消息内容>[，<对话框类型>[,<对话框标题>]]

例：消息框实例：在具有[是]、[否]以及[取消]按钮的对话框中显示一首歌曲中的几句词，然后询问用户是否喜欢这首歌。示例中的默认按钮为[是]，程序还根据MsgBox函数不同的返回值作出不同的反应。

2. 输入框（InputBox）

InputBox函数在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。其语法格式为：

变量=InputBox(<信息内容>[，<对话框标题>][，<默认内容>])

说明：

（1）指定在对话框中出现的文本。在<消息内容>中使用硬回车符<CHR(13)>可以使文本换行。对话框的高度和宽度随着<消息内容>的增加而增加，最多可有1024个子符。

（2）<对话框标题>指定对话框的标题。

（3）<默认内容>可以指定输入框的文本框中显示的默认文本。如果用户单击“确定”按钮，文本框中的文本将返回到变量中，若用户单击“取消”按钮，返回的将是一个零长度的字符串。

注意：如果省略了某些可选项，必须加入相应的逗号分隔符。

例：控件→乘法、除法、加法、减法运算

二 公共对话框

又称为通用对话框

1. 功能：（6种）打开（Open）、另存为(Save As)、颜色(Color)、字体(Font)、打印机(Printer)和帮助(Help)

2. 类型：非标准控件

3. 位置：C：\WINDOWS\SYSTEM\COMDLG32.OCX

添加到工具箱的方法：

工程—>部件—>选Microsoftcommon dialog Control 6.0

工具栏右击—>部件—>选Microsoftcommon dialog Control 6.0

4. 属性和方法

属性:

属性页对话框：五个选项卡，分别对应上述功能Action功能属性

方法(对应Action值为1—6):

ShowOpen,ShowSave,ShowColor,

ShowFont,ShowPrinter, ShowHelp

DialogTitle 属性：返回或设置该对话

框标题栏所显示的字符串。

FileName 属性：返回或设置所选文件的路径和文件名。

InitDir 属性：初始返回或设置文件目录。说明：该属性用于为打开或另存为对话指定初始的目录。如果此属性没有指定，则使用当前目录。

……P144

例11-4

三 自定义对话框

对话框没有控制菜单框，无最大化和最小化按钮，不能改变大小。

• 对话框种类

模式：在继续操作其它应用程序之前（失去焦点之前），先关闭模式对话框；如：Word中的打开对话框。

无模式：在失去焦点之前，不必先关闭对话框；

使用：窗体对象.SHOW [STYLE[.OWNER]]

STYLE:1VbModal模式

STYLE:0VbModeless无模式

• SHELL函数

功能:调用各种应用程序;

格式:Shell(命令串,窗口风格)

值窗口风格

1,5,9正常方式并拥有焦点;

• 最小化方式并拥有焦点(缺省);
• 最大化方式并拥有焦点;

4,8正常方式并无焦点;

6,7最小化方式并无焦点;

注意：调用后必须将其返回值赋给一变量。

举例：

Private Sub Command1_Click()

x = Shell("c:\windows\notepad.exe", 3)

End Sub

例：11-5