第11章 对话框与菜单程序设计

第11章对话框及菜单程序设计

本章要求：

了解自定义对话框的使用。

掌握通用对话框的建立和常用属性、常用方法；

掌握利用菜单设计器来建立、修改菜单项的方法；

本章重点：通用对话框的使用、菜单的建立与使用本章重点：通用对话框的使用、动态菜单概述：“对话框”可以被看作一种特殊的窗体，它的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。

VB提供了三种解决方案：

系统预定义的对话框（InputBox和MsgBox）

用户自定义对话框

通用对话框控件。

11．1对话框程序设计

11.1.1 由普通窗体创建自定义对话框对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。

1．BorderStyle属性

窗体的BorderStyle属性值设置为3（VbFixedDoubleialog）此目的是取消最大化和最小化按钮。

2．ControlBox属性属性值为True时窗体显示控制菜单框，为False时不显示。

例11-1 建立一个用户登录对话框

运行结果如下：

11.1.2 使用对话框模板窗体创建对话框

Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等，

11.1.3 通用对话框程序启动时，一般没有通用对话框控件，因此，为了使用通用对话框，需要把通用对话框控件添加到工具箱，操作如下：

1．打开通用对话框

通用对话框可以提供6种形式的对话框，通过设置Action 属性值或调用Show 方法来建立不同类型的对话框。如下表：

打开通用对话框的方法与Action 属性设置

工程/部选定Microsoft

CommDialog Control 6.0

确

选定部件标

如果在过程中显示某种类型的对话框，只需要在过程中输入： 通用对话框控件名.[方法名]或者通用对话框控件名.action=[属性值]即可。

通用对话框的属性页 在设计时，可能通过属性窗口设置通用对话框的属性设置控件属性，通常使用通用对话框的属性页设置相关属性。

类型

Action 属

方法

“打开”对话框 1

ShowOpen “另存为”对话框 2 ShowSave “颜色”对话框 3 ShowColor “字体”对话框 4 ShowFont “打印”对话框 5 ShowPrinter “帮助”对话框

6

ShowHelp

Dialog FileN

Fil

FilterI

Defaul

注：加入通用对话框后，选中，而后在属性设计页选Custom，则出现属性对话框设置属性窗口。

打开对话框可以用来指定文件所在驱动器、文件夹及文件名等。如果要显示打开对话框，则只需要在过程中输入:

通用对话框控件名.showopen或者通用对话框控件名.action=1

例11-2 显示图片示例

Private Sub Command1_Click()

With CommonDialog1

.FileName = ""

.Filter = "位图格式（*.bmp）|*.bmp|GIF格式(*.gif)|*.gif|JPEG格式|*.jpg"

.FilterIndex = 3

.DialogTitle = "选择图片"

.ShowOpen

End With

If CommonDialog1.FileName <> "" Then

Label1.Caption = CommonDialog1.FileName

Image1.Picture = LoadPicture(CommonDialog1.FileName) End If

End Sub

运行结果如图：

2. 另存为”对话框使用通用对话框控件的ShowSave方法，或将Action属性赋值为2，可以在运行时显示“另存为”对话框。

属性

例11-2a：把文本框中内容写入到指定的文件

Dim str As String

Private Sub Command1_Click()

CommonDialog1.Action = 2

CommonDialog1.Filter = "文本文件(*.txt)|*.txt" Open CommonDialog1.FileName For Output As #1

str = Text1

Write #1, str

Close #1

End Sub

3.“颜色”对话框

颜色对话框是当Action值为3时的通用对话框。如下图：重要属性：

Color：用来返回或设置选定的颜色

例11-3 动态设置文本框的背景颜色

Private Sub cmdcolor_Click()

Text1.Text = "西江月顷在黄州，春夜行蕲水中。过酒家饮酒，醉。乘月至一溪桥上，解鞍曲肱，醉卧少休。及觉已晓。乱山攒拥，流水铿然，疑非人世也。书此语桥柱上。照野弥弥浅浪，横空隐隐层霄。障泥未解玉骢骄，我欲醉眠芳草。可惜一溪风月，莫教踏碎琼瑶。解鞍欹枕绿杨桥，杜宇一声春晓。" CommonDialog1.Action = 3

Text1.BackColor = CommonDialog1.Color

End Sub

Private Sub Command1_Click()

CommonDialog1.Action = 3

Text1.ForeColor = CommonDialog1.Color

End Sub

运行结果为：

4. “字体”对话框