第六章 vb60对话框的设计.docx

1、第六章 vb60对话框的设计第六章对话框的设计6.1 预定义对话框在应用程序中添加对话框最容易的方法是使用预定义对话框，因为不必考虑设计、装载或者显示对话框方面的问题。然而，其控件在外观上要受到限制。预定义的对话框总是模式的。 表6.1中列出了在Visual Basic应用程序中添加预定义对话框时所使用的函数。6.1.1 输入框InputBox函数用来产生要求输入数据的输入框；在输入框中显示提示文本、文本框和按钮；等待用户的输入或按下按钮，并返回用户在文本框中输入的内容。 如图6.1所示的输入框就是使用InputBox函数所产生的，用来提示用户输入要在窗体上显示的内容。 生成该输入框的代码如下

2、所示： Word=InputBox（“请输入要在窗体中显示的内容：”、“输入”） 只需再做一点工作就可以将上面的文本输入框使用到程序中了。 实例6.1使用输入框。 在窗体中放置一个按钮控件，并设置它的Caption属性的值为“输入要显示的内容”，双击这个按钮控件打开它的代码窗口，编写如下代码： Private Sub Commandl_Click() word=InputBox(“请输入要在窗体中显示的内容:”，“输入”) Print word End Sub 在该程序中，InputBox函数将产生一个输入框，并且该函数包含有两个参数，其中第一个参数是指输入框中的用户提示字符串，第二个参数是指

3、输入框的标题： InputBox（prompt，title，default，spos，ypos，helpfile，context）InputBox函数语法中的各参数的含义如表6.2所示。 如果同时提供了Helpfile与Context，用户可以按F1键来查看与Context相应的帮助主题。 如果用户单击输入框中的【确定】按钮，则InputBox函数返回文本框中的内容。如果用户单击【取消】按钮，则此函数返回一个长度为零的字符串（“”）。 如果要省略某些位置参数，则必须加入相应的逗号分界符。例如，要指定实例6.1中输入框的位置，而缺省输入框的初始值，则语句如下： word =InputBox（“请

4、输入要在窗体中显示的内容：”，“输入”， 200，200）。6.1.2 消息框MsgBox函数用来产生一个消息框。消息框用来显示简短的消息，并要求用户作出一定的响应。例如，报告操作错误或向用户提示信息。看完这些消息以后，可选取一个按钮来关闭该对话框。 创建该消息框的代码如下： Msg=MsgBox（您没有在文本框中输入任何内容“48”提示）。 这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。 实例6.2使用消息框 这个程序包含一个文本框和一个按钮，在文本框中输入内容后单击按钮，则所输入的内容就显示在窗体中；如果在文本框中没有输入任何内容，则单击按钮后会弹出一个提示框

5、，告诉用户没有在文本框中输入任何内容，如图6.4所示。下面是编制这个小程序的具体过程。 首先，在窗体中放置一个文本框控件，设置它的Text属性的值为空，再放置一个按钮控件，设置它的Caption属性的值为“确定”.文本框与按钮的名称均使用系统默认的名称。双击按钮控件，打开代码窗口，为按钮的Click事件编写如下代码： Private Sub Commandl_Click() If Text1.Text=“Then Msg = MsgBox(“您没有在文本框中输入任何内容”，48，“提示”） Else Print Textl.Text End IfEnd Sub 在上面的程序段中，使用了一个分支

6、结构来判断文本框中是否输入了内容。运行该程序，直接单击【确定】按钮，则弹出如图5.4所示的消息枢。再次运行程序，在文本框中输入内容后，单击【确定】按钮，则不会出现消息框，且在窗体中显示用户输入的内容。 MsgBox函数的一般格式如下： InputBox（prompt,buttons,title,helpfile,context）各参数的含义如表6.3所示。 通过为Buttons参数指定不同的值，消息框会呈现出不同样式。所谓消息框的样式是指其上图标与按钮的不同组合。在上例中指定Buttons参数的值为48.该值下的消息框上显示一个惊叹图标和一个确定按钮。 表6.4中列出了Buttons参数的设置

7、值及其对应的消息框的样式。 第一组值（05）描述了对话框中显示的按钮的类型与数目；第二组值（17,32,48,74）描述了图标的样式：第三组值（0,257,512）说明哪一个按钮是缺省值：而第四组值（0,4097）则决定消息框的强制返回性。将这些数字相加以生成buttons参数值的时候，只能由每组值取用一个数字。例如，要使实例6.2的消息框中显示【确定】和【取消】按钮，并且【取消】按钮是缺省值，同时在消息框中显示一个信息图标。buttons参数的值应该是321（1+257+74）。 在实例6.2中，Msg = MsgBox（您没有在文本框中输入任何内容“,48,提示”）赋值语句将MsgBox函

8、数的值赋给变量Msg.MsgBox函数的返回值是根据用户单击哪个按钮而定的。如表6.5所示的是按钮与对应的MsgBox函数的返回值。 在关闭应用程序时，系统常常会弹出一个消息框来提示用户是否真的要退出程序，如果户单击【是】按钮，则程序退出，如果用户单击的是【否】按钮，则程序不退出。这里，我们编写一个程序来模拟上述的情形。实例6.3使用消息框2。 在窗体中放置一个按钮控件，设置其Caption属性的值为“退出”,并采用系统默认的名称。双击按钮控件打开【代码】窗口，将下列代码添加到Command1_Click事件过程中： Private Sub Commandl_Click() Msg=MsgBo

9、x(“是否真的退出程序”，37，“提示”) If msg=7 Then End End Sub 在该段代码中，使用了一个If语句来判断用户的选择，如果用户选择了【是】按钮，则执行End语句，否则不执行任何语句。 运行该程序，单击窗体中的【退出】按钮，则弹出一个消息框询问用户是否退出程序。单击【否】按钮，则消息框消失，窗体并不退出。再次运行该程序，单击【是】按钮，则消息框消失，窗体也随着被关闭。6.2 通用对话框在应用程序中，经常需要用到打开和保存文件、选择颜色和字体等对话框，它们都是Windows的通用对话框。在VB中可以使用通用对话框控件来创建这些通用对话框，而不必费很大的劲去自己编写它们。

10、 利用通用对话框控件可以创建如下通用对话框： 【打开】对话框 【保存】对话框 【颜色】对话框 【字体】对话框 【打印】对话框 注意：通用对话框控件在Visual Basic和Microsoft Windows动态链接库Commdlg.dll例程之间提供了接口。为了使用控件创建对话框，要求Commdlg.dll必须Microsoft WindowsSystem目录下。 在默认情况下，通用对话框控件并不显示在工具箱中，在使用它之前，用广需要自行将其添加到工具箱中。第1章己经详细介绍了向工具箱中添加控件的方法。其中控件列表中的Microsoft Common Dialog Control就是通用对话

11、框控件。本节仅介绍这个控件的基本属性和方法。6.2.1 打开对话框的方法将通用对话框控件添加到窗体中后，如何在程序中打开指定类型的对话框呢？通用对话框控件提供了两种打开对话框的方法。一种方法是使用它的Action属性，通过为Action属性赋值，就可以打开对应类型的对话框。Action属性的值及其对应的对话框如表6.6所示。 这里给出一个打开【打开】对话框的实例。在窗体中添加一个按钮控件和一个通用对话框控件，设置按钮控件的Caption属性值为“打开”,名称使用默认值，如图6.7所示。 双击按钮控件打开【代码】窗口，输入如下代码： Private Sub Commandl_Click（） Co

12、mmonDialog1.Action=1 End Sub 单击工具栏中的【运行】按钮运行该程序，单击【打开】按钮，即可打开如图6.8所示的【打开】对话框。另一个打开对话框的方法是使用通用对话框控件的方法，这种方法更直观。通用对话框控件的方法与其对应的对话框如表6.7所示。 将上述程序中的代码CommonDialogl.Action =1替换为CommnonDialog1.Show-Open,运行程序，单击【确定】按钮，也可打开如图6.8所示的【打开】对话框。 注意：对话框的类型不是在设计段设置，而是在运行时通过代码设置的。 通用对话框是一组标准的对话框，它们有标准的外观与功能，通过设置通用对话

13、框控件的某些属性，可以部分地改变对话框的外观。如设置DialogTitle属性，可以改变对话框的标题；Flags属性则可以用来设置对话框的外观。6.2.2 打开与保存对话框在应用程序中，常常需要执行打开或保存文件等操作，因此，也就常常需要调用【打开】对话框与【保存】对话框。 【打开】对话框与【保存】对话框很相似，大多数属性都是共同的，这里一同介绍。 对话框控件的【属性】窗口中所列的DefaultExt、Filter等属性是针对【打开】。 对话框与【保存】对话框而言的，表5.8中列出了这些属性的含义。 设置Filter属性的格式为： 描述符1|过滤符1|描述符2|过滤符2| 描述符是将要显示在对

14、话框【文件类型】下拉列表中的文字说明，这是用户所看到的，可以随意指定。过滤符是由通配符和实际的文件扩展名组成的，如*.*表示所有文件，*.txt表示文本文件，*doc表示Word文档文件。过滤符是系统用于区分各种文件类型的。描述符与过滤符一一对应，缺一不可。 如果Filter属性的设置为： Word文档|*.doc|文本文件|*.txt|位图文件|*.bmpl|则在对话框中只显示扩展名为doc,txt和bmp的文件。在设置过滤器属性时，如有多个文件类型，则按序排号为1,2,3，如FilterIndex=2,则在对话框的【文件类型】框中缺省显示的是描述符2。 Flags属性的值也可以是表6.9中

15、两项或多项的相加。例如，Flags=7则表示对话框同时具备Flags=2和Flags=4的特性。 也可以通过对话框控件的属性页来设置对话框的属性。将鼠标移动到对话框控件上，单击右键，在弹出的快捷菜单中执行【属性】命令，则弹出如图6.9所示的【属性页】对话框。 【属性页】对话框中的各选项与对话框控件【属性】窗口中的属性是相对应的，如【文件名称】选项对应FileName属性。通过【属性】窗口设置属性与通过属性页窗口设置属性是完全等同的。 还可以在程序运行阶段在代码中为各属性赋值，如下列语句将对话框的初始路径设置为： c:windows: CommandDialogl.InitDir=“c:wind

16、ows” 实例6.4【打开】与【保存】对话框的使用 在该程序中，用户可以调用【打开】与【保存】对话框，并能获取用户打开或保存文件的路径以及名称。 可以使用两个通用对话框控释，分别调用【打一开】对话框与【保存】对话框。通过它们的属性页，可以分别设置它们的属性，如对话框的初始路径、文件类型等。也可以使用一个通用对话框控件来调用各对话框。为了使【打开】与【保存】对话框的属性设置不同，应该在程序运行阶段在代码中为各属性赋值。本例只使用一个通用对话框控件。 在窗体中放置两个标签控件、两个文本框控件、两个按钮控件和，一个通用对话框控件，其中各控件的属性设置如表6.10所示。双击【打开】按钮，打开【代码】窗

17、口，将下列代码添加到ComOpen_CLick事件过程中： Private Sub ComOpen_Click() CommonDialog1.DialogTitle=“打开文件” CommonDialog1.InitDir=“c:windows” CommonDialog1.Filter=“图像文件|*.bmp|文本文件|*.txt|” CommonDialog1.FilterIndex=2 CommonDialog1.Flags=528 CommonDialog1.Action=1 TexOpen.Text=CommonDialog1.FileNameEnd Sub 在该段代码中，前5行代

18、码设置对话框的属性，从中可以看出，对话框的标题为“打开文件”，初始路径为c:windows 。能显示后缀为bmp和txt的文件，在【文件类型】栏中缺省显示的是“文本文件”，Flags=528表明它同时具有Flags=17和Flags=512的特性，在对话框中显示一个【帮助】按钮，并且允许用户同时选中多个文件。 同样，将下列代码添加到ComOpen_Click事件过程中： Private Sub ComSave_Click() CommonDialog1.DialogTitle=“保存文件” CommonDialog1.InitDir=“f:document” CommonDialog1.Fil

19、ter=“word文档|*.doc|” CommonDialog1.Flags=7 CommonDialog1.Action=2 TexOpen.Text=CommonDialog1.FileNameEnd Sub 运行该程序，单击【打开】按钮，则弹出【打开文件】对话框，从中选择一个或多个文件，单击【确定】按钮后，【打开】文本框中将显示用户选择的文件名，若用户选择多个文件，则所选文件的文件名都显示在文本框中。单击【保存】按钮，则打开【保存文件】对话框，在【文件名】文本框中输入文件名，单击【保存】按钮后，在【保存】文本框中将显示用户保存的文件名。如果用户输入的文件名己经存在，则弹出消息框，提示用

20、户此文件己经存在。6.2.3 【颜色】对话框通过使用【颜色】对话框，用户可方便地从中选取所需要的颜色。单击通用对话框控件【属性页】对话框的【颜色】选项卡，如图6.13所示，从中可以设置【颜色】对话框的颜色（color）与标志（Flags）属性（也可以在【属性】窗口中设置）。颜色（Color）属性用来设置或返回在【颜色】对话框中选定的颜色值，每个颜色值对应一种颜色。如255对应红色，0对应黑色，17777215对应白色， 【颜色】对话框的标志（Flags）属性有4种可能值，如表6.11所示。 实例6.5使用【颜色】对话框 在该程序中，用户可以通过【颜色】对话框来选取标签的背景色，并且能显示出所选

21、颜色的颜色值。 在窗体中放置两个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。其中各对象的属性如表6.12所示。双击【设置颜色】按钮，将下列代码添加到ComColor Click事件过程中： Private Sub ComColor_Click() DiaColor.Acttion=3 LabColor.BackColor=DiaColor.Color TexColor.Text=DiaColor.ColorEnd Sub 运行该程序，单击【设置颜色】按钮，在弹出的【颜色】对话框中选择一种颜色，单击【确定】按钮，标签的背景色就变成了用户在【颜色】对话框中所选取的颜色了，如图6.1

22、5所示。6.2.4【字体】对话框【字体】对话框也是Windows应用程序中常用的对话框，通过该对话框可以方便地设置文本的字体、字号以及文字的各种效果，如斜体、下划线等。 单击通用对话框控件【属性页】对话框的【字体】选项卡，从中可以设置【字体】对话框的有关属性也可以在【属性】窗口中设置）。表6.13中列出了【字体】对话框各属性的含义。 实例6.6字体对话框的使用。 在该程序中，用户可以调用【字体】对话框来设置文本的字体、字号以及各种效果。 在窗体上放置一个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。其中各对象的属性设置如表6.15所示。双击【设置字体】按钮，打开【代码】窗口，将下

23、列代码添加到ComFont_Click事件过程中： Private Sub ComFont_Click() DiaFont.Action=4 TexFont.FontName=DiaFont.FontName TexFont.FontSize=DiaFont.FontSize TexFont.FontBold=DiaFont.FontBold TexFont.FontItalic=DiaFont.FontItalic TexFont.FontUnderline=DiaFont.FontUnderline TexFont.FontStrikethru=TexFont.FontStrikethru

24、 TexFont.FontColor=DiaFont.ColorEnd Sub 在ComFont_Click事件过程中，第一行语句用来调用字体对话框，第二行语句是将用户在对话框中所选择的字体赋给文本框TexFont的FontName属性，其他语句的功能与此类似。 运行该程序，在文本框中输入一段文本，文本的字体、字号等特征由文本框的Font属性决定。单击【设置字体】按钮，则出现【字体】对话框，可见，对话框中各项属性的初始值就是在属性页（或【属性】窗口）中设置的值，如默认的字体为在FilelName属性中设置的宋体。从中选择字体、字号以及各种效果后，单击【确定】按钮，则文本框中的文本就以新的设置显

25、示。例如，选择字体为“幼圆”，字体样式为“斜体”，字号为“三号”，选中“下划线”效果，并且选择颜色为“红色”，单击【确定】按钮后，则文本框中文本的显示如图6.19所示。6.3 自定义对话框除了预定义对话框和通用对话框外，用户还可以根据实际需要自行定义对话框。自定义对话框实际上就是在一个窗体上放置一些控件，以构成一个用来接受用户输入的界面。这里给出一个设计自定义对话框的实例。 实例6.7自定义对话框。 在该实例中，用户可以通过对话框输入个人资料，并且输入的资料将显示在主窗体中。该程序用到两个窗体，其中一个窗体用作主窗体，另一个窗体用作对话框。设置主窗体为启动窗体，并且通过主窗体来调用对话框。 单击工具条中的【添加窗体】按钮，则出现如图6.20所示的【添加窗体】对话框，在该对话框中选择窗体类型为“对话框”，单击【打开】按钮即可为当前过程添加一个用于设计对话框的窗体。在该窗体上放置了对话框中常用的【确定】和【取消】按钮。下面就以这个窗体为基础设计自定义对话框。 在新建的对话框窗体中放置4个标签控件、1个文本框控件、2个单选项控样、1个组合框控件和1个框架控件，并且在框架控件中再放置4个复选框控件，如图6.21所示。其中各控件的属性设置如表6.16所示。