第11章 对话框设计

1、11.1 用窗体定制对话框11.2 通用对话框顺序结构第11章 对话框设计11.1 用窗体定制对话框用窗体定制对话框用窗体作为对话框比较自由，可根据需要在窗体对话框中添加任何控件，以接收输入信息或显示消息。通过设置窗体和控件对象的属性来定义对话框的外观，编写代码来组织控件之间的逻辑关系，以实现所需要的功能。 11.1.1 创建窗体对话框创建窗体对话框 创建一个窗体对话框和一般窗体的建立方法完全一样，可按下面步骤：（1）打开“工程”菜单，单击“添加窗体”，在弹出的“添加窗体”对话框中选择“对话框”或者是“窗体”，点击“打开”新建一个窗体对象。（2）按需要定制窗体的外观。即向窗体中添加所需的控件。

2、对于要求输入的对话框，应至少放置一个文本框用于接收数据。 （3）设置窗体或控件对象的属性。 （4）编写事件过程，组织各对象之间的关系。 11.1.2 显示窗体对话框显示窗体对话框 对话框就是窗体，因此可以象窗体一样进行显示。 显示或关闭窗体对话框有多种方法，相关语句、方法和属性如下：（1）Load语句：Load 窗体对象名 将窗体装入内存，但不显示。（2）UnLoad语句：UnLoad 窗体对象名 将窗体从内存中卸载。（3）Show方法：窗体对象名.Show vbModal 显示已装载或未装载的窗体。虽然Show方法也能装载窗体，但预先用Load语句装入更好，这样可以提高程序的反应速度。（4）

3、Hide方法：窗体对象名.Hide 将窗体从屏幕上隐去。（5）Visible属性： 窗体对象名.Visible = True 显示已装载的窗体。 窗体对象名.Visible = False 将窗体从屏幕上隐去。 对话框有两种类型，即模式对话框和无模式对话框。 模式对话框：在可以继续操作应用程序的其他部分之前，必须被关闭（隐藏或卸载）。 无模式对话框：允许在对话框与其他窗体之间转移焦点而不用关闭对话框。当对话框正在显示时，可以在当前应用程序的其他地方继续工作，无模式对话框较少使用。 11.1.2 显示窗体对话框显示窗体对话框 【例例11-111-1】建立一个通过输入磁盘上的路径及可执行文件名执行

4、指定程序的对话框，并且能够控制运行后对话框的风格。 (1) 设计界面如图所示： (2) 设置对话框边界风格：11.1.2 显示窗体对话框显示窗体对话框 属性属性值NameRunformCaption运行ControlBoxTrueBorderStyle3-Fixed DialogMaxButtonFalseMinButtonFalse11.1.2 显示窗体对话框显示窗体对话框 (3)设置控件属性 :控件Name属性Caption属性Text属性文本框Rtext无空白标签Label1文件名无框架Frame1选项无单选按钮1Noption常规无单选按钮2Maxoption最大化无单选按钮3Mino

5、ption最小化无命令按钮Cmdrun运行无(4) 编写代码如下：Private Sub Cmdrun_Click() Dim Retval As String On Error GoTo ERRORHANDLER If NOption Then Retval = Shell(RText.Text, 1) If MaxOption Then Retval = Shell(RText.Text, 3) If MinOption Then Retval = Shell(RText.Text, 2) Exit SubERRORHANDLER: MsgBox (不能运行该程序) Resume Next

6、End Sub 11.1.2 显示窗体对话框显示窗体对话框 11.2 通用对话框通用对话框VB提供的CommonDialog（公共对话框）控件可以在窗体上创建6种标准对话框，它们分别为打开（Open）、另存为（Save AS）、颜色（Color）、字体（Font）、打印（Printer）和帮助（Help）。CommonDialog是ActiveX控件，在使用之前需要先将其添加到控件工具箱中。打开“工程”|“部件”，在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0”（不同系统，版本会不同），点击确定即可将CommonDialog控件添加到控件工具箱

7、中。如图所示：1CommonDialog控件的基本属性 CommonDialog控件的基本属性主要有：(1) Action属性：该属性决定打开何种类型的标准对话框，取值如下表所示。该属性不能在属性窗口内设置，只能在程序中赋值。11.2 通用对话框通用对话框Action属性值描 述0没有操作（无对话框显示）1显示“打开”对话框2显示“另存为”对话框3显示“颜色”对话框4显示“字体”对话框5显示“打印”对话框6显示“帮助”对话框 （2）Name属性：CommonDialog控件的名称属性。 （3）DialogTitle属性：标题属性，用于设置通用对话框标题文本。 （4）CancelError属性：

8、设置选取“取消”按钮时是否产生出错信息。默认值为False，当该属性设置为 True 时，无论何时选取“取消”按钮，均产生 32755 (cdlCancel) 号错误。对话框打开后，为了防止用户没有输入任何信息便使用取消操作，则可用此属性设置出错警告。 （5）Flags属性：用于设置对话框外观及工作方式。对于每种对话框都有许多不同的设置值。 11.2 通用对话框通用对话框 11.2 通用对话框通用对话框 2. CommonDialog控件的方法在程序中要使用CommonDialog控件的标准对话框，除了使用CommonDialog控件的Action属性设置对话框的类型外，还可以使用Common

9、Dialog控件的方法。这些方法如下表所示：方方 法法 所显示的对话框所显示的对话框ShowOpen显示“打开”对话框ShowSave显示“另存为”对话框ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”或“打印选项”对话框ShowHelp调用 Windows 帮助引擎11.2.1 打开对话框打开对话框 在程序运行时，CommonDialog控件的Action属性为1或者是调用了它的ShowOpen方法，系统就会弹出“打开”对话框，如图所示。 对于“打开”对话框，常用的属性如下： CancelError：返回或设置一个值，该值指示当选取“取

10、消”按钮时是否出错。 DefaultExt：用于设置或返回对话框缺省的文件扩展名。该属性值是一个文件扩展名字符串，如”*.txt”、”*.doc”等。当保存一个没有指定扩展名的文件时，系统自动加缺省扩展名。 DialogTitle：返回或设置对话框的标题。 Filename：返回或设置用户所选择的文件的完整路径和文件名称。 FileTitle：返回用户选择文件的文件名称，包括扩展名，但不包括路径。 Filter：设置或返回在对话框的文件类型列表框中显示的文件匹配表达式。语法格式为：对象名.Filter = “描述字符串1 | 匹配表达式1 | 描述字符串2 |匹配表达式2” FilterInd

11、ex：返回或设置“打开”或“另存为”对话框中一个缺省的过滤器。 Flags：返回或设置标志选项。 InitDir：返回或设置初始目录。 MaxFileSize：返回或设置使用 CommonDialog 控件时，被打开的文件名的最大尺寸。 11.2.1 打开对话框打开对话框 【例【例11-211-2】用命令按钮的Click事件显示文件打开对话框，在对话框内只允许显示文本文件，初始目录为 C:Windows。当选定一个文本文件后，单击“打开”按钮，在标签上显示所选择的文件名称，若单击“取消”按钮，则显示“放弃操作”。 在窗体上加入名为CommonDialog1的通用对话框、名为Command1的命

12、令按钮和名为Label1的标签，在命令按钮的Click事件中编程： Private Sub Command1_Click() On Error GoTo nofile 设置错误陷阱 CommonDialog1.InitDir = C:Windows 设置初始目录 CommonDialog1.Filter = 文本文件|*.txt 过滤文件类型 CommonDialog1.CancelError = True 控制取消按钮 以上三行代码可在设计时直接设置 CommonDialog1.ShowOpen 或用Action=1显示文件打开对话框 Label1.Caption = CommonDialo

13、g1.FileName 显示选择的文件名 Exit Sub 正常退出本过程 nofile: 以下为错误处理 If Err.Number = 32755 Then 单击取消按钮 Label1.Caption = 放弃操作 Else Label1.Caption = 其他错误 End If End Sub 11.2.1 打开对话框打开对话框 11.2.2 另存为对话框另存为对话框 程序运行时，CommonDialog控件的Action属性为2或者是调用了它的ShowSave方法，系统就会弹出“另存为”对话框，它为用户在存储文件时提供了一个标准的用户界面。实际上“另存为”对话框和“打开”对话框除了标

14、题栏上的文字不同之外，其它内容与用法均相同，如图所示：【例【例11-311-3】编写一个应用程序，当点击“另存为”对话框中的“另存为”按钮(Command1)时，将文本框（Text1）里的内容写入一个文本文件。程序界面如图所示。 程序代码如下： Private Sub Command1_Click() CommonDialog1.Filter = 文本文件|*.txt|所有文件|*.* CommonDialog1.FileName = * .txt CommonDialog1.DefaultExt = txt CommonDialog1.Action = 2 Open CommonDialog

15、1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub 11.2.2 另存为对话框另存为对话框 11.2.3 颜色对话框颜色对话框 程序运行时，CommonDialog控件的Action属性为3或者是调用了它的ShowColor方法，系统就会弹出“颜色”对话框，它为用户提供颜色的选择，如图所示。 颜色对话框除有通用对话框的基本属性外，还有一个重要的属性就是Color，它用来返回或设置用户指定的颜色值。 【例【例11-411-4】编写一个应用程序，用“颜色”对话框设置一个文本框的背景颜色。程序设计界面和运行界面如图所示。

16、 11.2.3 颜色对话框颜色对话框 程序代码如下：Private Sub Command1_Click()CommonDialog1.Action = 3Text1.BackColor = CommonDialog1.ColorEnd Sub11.2.4 字体对话框字体对话框 程序运行时，CommonDialog控件的Action属性为4或者是调用了它的ShowFont方法，系统就会弹出“字体”对话框。如图所示：持的字体；cdlCFScreenFonts（1）：使对话框只列出系统支持的屏幕字体。如果不设置Flags属性，将会显示一个信息框，提示没有安装的字体，并产生一个运行错误。 在使用Sh

17、owFont方法前，必须先设置CommonDialog控件的Flags属性为下列三个常数或值中的一个：cdlCFBoth（3）：使对话框列出可用的打印机和屏幕字体；cdlCFPrinterFonts（2）：使对话框只列出由 hDC 属性指定的打印机支 【例【例11-511-5】编写一个应用程序，用“字体”对话框设置文本框（Text1）中文字的字体。程序设计界面如图所示。程序代码如下：Private Sub Command1_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 Text1

18、.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderlineEnd Sub11.2.4 字体对话框字体对话框 11.2.5 打印对话框打印对

19、话框 程序运行时，CommonDialog控件的Action属性为5或者是调用了它的ShowPrinter方法，系统就会弹出“打印”对话框，它为用户一个选择打印参数的界面，如图所示。 对于“打印”对话框，除了基本属性外还有几个重要属性： Copies：返回或设置需要打印的份数。 Max、Min：返回或设置打印范围允许的最大和最小值。FromPage、ToPage：返回或设置起始页（From）和终止（To）页文本框的值。当 cdlPDPageNums标志被设置时才有效。 例例11-611-6编写一个应用程序，用“打印机”对话框打印文本框（Text1）的内容。程序界面如图11-15所示。 程序代码

20、如下：Private Sub Command1_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iEnd Sub11.2.5 打印对话框打印对话框 11.2.6 帮助对话框帮助对话框 程序运行时，CommonDialog控件的Action属性为6或者是调用了它的ShowHelp方法，系统就会弹出“帮助”对话框，它可以为用户制作应用程序的联机帮助。使用ShowHelp方法前，必须将CommonDialog控件的HelpFile和HelpCommand属性设置为

21、其相应的一个常数或值。否则，Winhlp32.exe就不能显示帮助文件。 对于“帮助”对话框，有以下几个重要属性： HelpCommand：返回或设置需要的联机帮助的类型。 HelpFile：确定 Microsoft Windows Help 文件的路径和文件名，应用程序使用这个文件显示 Help 或联机文档。 HelpKey：返回或设置标识请求的帮助主题的关键字。 HelpContext：返回或设置请求的帮助主题的上下文 ID。 11.3 综合应用程序设计综合应用程序设计 例例11-711-7 模拟Windows中的写字板的功能，编写一个简易的文本编辑器。它具有新建、打开、编辑、保存、另存为

22、等，以及设置字体、字号、颜色、对齐方式等功能。该编辑的文件格式为RTF文件(*.rtf)或者文本文件(*.txt)。在用户界面中，添加如下控件：工具栏ToolBar1，状态栏StatusBar1，RTF文本框RichTextBox1，通用对话框CommonDialog1，图象列表ImageList1，定时器Timer1，菜单栏。设计界面如图 所示：注意：界面中RTF文本框RichTextBox控件，类似于通用对话框控件CommonDialog一样，需要手工地添加到工具箱后才能使用。方法是打开“工程”|“部件”，在“部件”对话框中，选中“Microsoft Rich Textbox Contro

23、l 6.0(SP4)”，点击“确定”即可将RTF文本框控件添加到控件工具箱中。 步骤一步骤一：菜单栏的属性设置：在菜单编辑器中设置如下表所示的各个菜单项和属性值。11.3 综合应用程序设计综合应用程序设计 标题（Caption）名称（Name）说明文件File主菜单项新建New菜单项1打开Open菜单项2保存Save菜单项3另存为SaveAs菜单项4退出Quit菜单项5标题（Caption）名称（Name）说明格式Format主菜单项字体Font菜单项1颜色Color菜单项2对齐方式Alignment菜单项3左对齐LeftAlignment子菜单项1居中对齐CenterAlignment子菜单项2右对齐RightAlignment子菜单项3文件菜单属性设置文件菜单属性设置格式菜单属性设置格式菜单属性设置步骤二步骤二：图像列表的属性设置：右键