VB6程序设计

第六章 对话框

对话框是一种特殊的窗体，通过它可以向用户显示各种信息，或者提示用户提供应用程序继续执行所需要的数据。

6.1 预定义对话框

6.1.1 消息对话框

消息对话框用来显示信息，让用户选择按钮，并可将用户的选择作为程序继续执行的依据。

MsgBox函数是VB中用来生成各类消息框的函数，常用格式如下： MsgBox(prompt[,buttons][,title])

6.1.2 输入对话框

输入对话框用于在程序运行时提示用户输入信息。

InputBox函数是VB中用来生成输入对话框的函数，常用格式如下： InputBox(prompt[,title][,default][,xpos,ypos])

6.2 通用对话框

通用对话框是一种控件，称为CommonDialog。使用该控件，可以创建“打开”、“另存为”、“颜色”、“字体”、“打印”五种标准对话框，以及打开指定的帮助文件的“帮助”窗口。

6.2.1 通用对话框控件

启动VB后，选择“工程”菜单中的“部件”命令，在对话框的“控件”选项卡中找到并选定“Microsoft CommonDialog Control 6.0”控件部件。

通过调用对话框的方法可以显示相应的对话框： ? ShowOpen：显示“打开”对话框 ? ShowSave：显示“另存为”对话框 ? ShowColor：显示“颜色”对话框 ? ShowFont：显示“字体”对话框 ? ShowPrinter：显示“打印”对话框 ? ShowHelp：打开帮助文件窗口

在程序运行时，通过对CommonDialog控件的Action属性赋值，也可以显示相应的对话框。Action属性值及其含义如下：

? 0：不显示对话框

29

第五章 窗体和标准控件

? 1：显示“打开”对话框 ? 2：显示“另存为”对话框 ? 3：显示“颜色”对话框 ? 4：显示“字体”对话框 ? 5：显示：“打印”对话框 ? 6：显示帮助文件

基本属性：DialogTitle、CanceError等。在设计时设置通用对话框的属性，可在属性窗口中直接设置；也可以右击通用对话框控件，选择“属性”，通过“属性页”对话框进行设置。在程序运行时，可通过赋值语句设置通用对话框的属性。

6.2.2 “打开”对话框

常用属性：FileName、FileTitle、Filter、InitDir等。

例：

CommonDialog1.FileName = \ CommonDialog1.ShowOpen s = CommonDialog1.FileName n = CommonDialog1.FileTitle

6.2.3 “另存为”对话框

“另存为”对话框的常用属性与“打开”对话框相同。

6.2.4 “颜色”对话框

常用属性：Color等 例：

Private Sub Command1_Click() CommonDialog1.ShowColor

Form1.BackColor = CommonDialog1.Color End Sub

6.2.5 “字体”对话框

常用属性：Flags、Color、FontBold、FontItalic、FontStrikethru、FontUnderline、FontName、FontSize等。

例：

Private Sub Command1_Click() CommonDialog1.Flags = 1 + 256 CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontItalic = CommonDialog1.FontItalic Text1.FontBold = CommonDialog1.FontBold

30

VB6程序设计

Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color End Sub

6.2.6 “打印”对话框

“打印”对话框可以让用户选择打印参数：指定打印机，选择打印输出方式、打印质量、打印的份数等。

除基本属性外，常用的属性有：Copies、FromPage、ToPage等。 例：

Private Sub Command1_Click() CommonDialog1.ShowPrinter

For I = 1 To CommonDialog1.Copies Printer.Print Text1.Text Printer.EndDoc Next I End Sub

6.2.7 “帮助”对话框

例：

Private Sub Command1_Click()

CommonDialog1.HelpFile = \ CommonDialog1.HelpCommand = 9 CommonDialog1.ShowHelp End Sub

6.3 自定义对话框

（略）

6.3.1 模式对话框与非模式对话框 6.3.2 自定义对话框的设计

31

第五章 窗体和标准控件

第七章 菜单、工具栏、状态栏及多文档界面

在Windows应用程序中，一般都有菜单、工具栏和状态栏。

7.1 菜单设计

7.1.1 菜单的基本概念

所谓菜单，就是应用程序为用户提供的一组命令。 ? 下拉式菜单 ? 弹出式菜单

在VB中，菜单和菜单中的命令项均看作是菜单控件。菜单控件最重要的属性：Name、Caption。菜单控件只包含一个Click事件。

7.1.2 菜单编辑器

在VB中使用菜单编辑器为应用程序创建菜单。打开菜单编辑器的方法有三种。

菜单编辑器窗口由三部分组成：数据区、编辑区和菜单控件列表框。 注意：

? 输入菜单命令标题时可用符号“&”为菜单命令添加访问键

? 如果菜单命令需要打开一个对话框，可在其名称后面加上一个省略号 ? 在“标题”文本框中只输入一个字符“-”，则可以创建菜单中的隔条控

件

? 菜单控件的名称应当唯一 ? 菜单控件也可组成数组

? 可为菜单项指定一个快捷键

7.1.3 编写菜单控件的事件过程

应用举例：

2#P154[例7.2]设计一个包含加、减、乘、除算术运算及其清零功能的菜单及窗体，计算结果可以按八进制、十进制、十六进制显示（缺省以十进制显示），如下图所示。

32