第六章 vb60对话框的设计.docx
《第六章 vb60对话框的设计.docx》由会员分享，可在线阅读，更多相关《第六章 vb60对话框的设计.docx（15页珍藏版）》请在冰豆网上搜索。
第六章vb60对话框的设计
第六章 对话框的设计
6.1预定义对话框
在应用程序中添加对话框最容易的方法是使用预定义对话框，因为不必考虑设计、装载或者显示对话框方面的问题。
然而，其控件在外观上要受到限制。
预定义的对话框总是模式的。
表6.1中列出了在VisualBasic应用程序中添加预定义对话框时所使用的函数。
6.1.1输入框InputBox函数用来产生要求输入数据的输入框；在输入框中显示提示文本、文本框和按钮；等待用户的输入或按下按钮，并返回用户在文本框中输入的内容。
如图6.1所示的输入框就是使用InputBox函数所产生的，用来提示用户输入要在窗体上显示的内容。
生成该输入框的代码如下所示：
Word=InputBox（“请输入要在窗体中显示的内容：
”、“输入”）
只需再做一点工作就可以将上面的文本输入框使用到程序中了。
实例6.1使用输入框。
在窗体中放置一个按钮控件，并设置它的Caption属性的值为“输入要显示的内容”，双击这个按钮控件打开它的代码窗口，编写如下代码：
PrivateSubCommandl_Click（）
word=InputBox（“请输入要在窗体中显示的内容:
”，“输入”）
Printword
EndSub
在该程序中，InputBox函数将产生一个输入框，并且该函数包含有两个参数，其中第一个参数是指输入框中的用户提示字符串，第二个参数是指输入框的标题：
InputBox（prompt[，title][，default][，spos][，ypos][，helpfile，context]）
InputBox函数语法中的各参数的含义如表6.2所示。
如果同时提供了Helpfile与Context，用户可以按F1键来查看与Context相应的帮助主题。
如果用户单击输入框中的【确定】按钮，则InputBox函数返回文本框中的内容。
如果用户单击【取消】按钮，则此函数返回一个长度为零的字符串（“”）。
如果要省略某些位置参数，则必须加入相应的逗号分界符。
例如，要指定实例6.1中输入框的位置，而缺省输入框的初始值，则语句如下：
word=InputBox（“请输入要在窗体中显示的内容：
”，“输入”，200，200）。
6.1.2消息框MsgBox函数用来产生一个消息框。
消息框用来显示简短的消息，并要求用户作出一定的响应。
例如，报告操作错误或向用户提示信息。
看完这些消息以后，可选取一个按钮来关闭该对话框。
创建该消息框的代码如下：
Msg=MsgBox（您没有在文本框中输入任何内容“48”提示）。
这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。
实例6.2使用消息框
这个程序包含一个文本框和一个按钮，在文本框中输入内容后单击按钮，则所输入的内容就显示在窗体中；如果在文本框中没有输入任何内容，则单击按钮后会弹出一个提示框，告诉用户没有在文本框中输入任何内容，如图6.4所示。
下面是编制这个小程序的具体过程。
首先，在窗体中放置一个文本框控件，设置它的Text属性的值为空，再放置一个按钮控件，设置它的Caption属性的值为“确定”.文本框与按钮的名称均使用系统默认的名称。
双击按钮控件，打开代码窗口，为按钮的Click事件编写如下代码：
PrivateSubCommandl_Click（）
IfText1.Text=“Then
Msg=MsgBox（“您没有在文本框中输入任何内容”，48，“提示”）
Else
PrintTextl.Text
EndIf
EndSub
在上面的程序段中，使用了一个分支结构来判断文本框中是否输入了内容。
运行该程序，直接单击【确定】按钮，则弹出如图5.4所示的消息枢。
再次运行程序，在文本框中输入内容后，单击【确定】按钮，则不会出现消息框，且在窗体中显示用户输入的内容。
MsgBox函数的一般格式如下：
InputBox（prompt][,buttons][,title][,helpfile,context]）
各参数的含义如表6.3所示。
通过为Buttons参数指定不同的值，消息框会呈现出不同样式。
所谓消息框的样式是指其上图标与按钮的不同组合。
在上例中指定Buttons参数的值为48.该值下的消息框上显示一个惊叹图标和一个确定按钮。
表6.4中列出了Buttons参数的设置值及其对应的消息框的样式。
第一组值（0~5）描述了对话框中显示的按钮的类型与数目；第二组值（17,32,48,74）描述了图标的样式：
第三组值（0,257,512）说明哪一个按钮是缺省值：
而第四组值（0,4097）则决定消息框的强制返回性。
将这些数字相加以生成buttons参数值的时候，只能由每组值取用一个数字。
例如，要使实例6.2的消息框中显示【确定】和【取消】按钮，并且【取消】按钮是缺省值，同时在消息框中显示一个信息图标。
buttons参数的值应该是321（1+257+74）。
在实例6.2中，Msg=MsgBox（您没有在文本框中输入任何内容“,48,提示”）赋值语句将MsgBox函数的值赋给变量Msg.MsgBox函数的返回值是根据用户单击哪个按钮而定的。
如表6.5所示的是按钮与对应的MsgBox函数的返回值。
在关闭应用程序时，系统常常会弹出一个消息框来提示用户是否真的要退出程序，如果户单击【是】按钮，则程序退出，如果用户单击的是【否】按钮，则程序不退出。
这里，我们编写一个程序来模拟上述的情形。
实例6.3使用消息框2。
在窗体中放置一个按钮控件，设置其Caption属性的值为“退出”,并采用系统默认的名称。
双击按钮控件打开【代码】窗口，将下列代码添加到Command1_Click事件过程中：
PrivateSubCommandl_Click（）
Msg=MsgBox（“是否真的退出程序”，37，“提示”）
Ifmsg=7ThenEnd
EndSub
在该段代码中，使用了一个If语句来判断用户的选择，如果用户选择了【是】按钮，则执行End语句，否则不执行任何语句。
运行该程序，单击窗体中的【退出】按钮，则弹出一个消息框询问用户是否退出程序。
单击【否】按钮，则消息框消失，窗体并不退出。
再次运行该程序，单击【是】按钮，则消息框消失，窗体也随着被关闭。
6.2通用对话框
在应用程序中，经常需要用到打开和保存文件、选择颜色和字体等对话框，它们都是Windows的通用对话框。
在VB中可以使用通用对话框控件来创建这些通用对话框，而不必费很大的劲去自己编写它们。
利用通用对话框控件可以创建如下通用对话框：
【打开】对话框
【保存】对话框
【颜色】对话框
【字体】对话框
【打印】对话框
注意：
通用对话框控件在VisualBasic和MicrosoftWindows动态链接库Commdlg.dll例程之间提供了接口。
为了使用控件创建对话框，要求Commdlg.dll必须MicrosoftWindows\System目录下。
在默认情况下，通用对话框控件并不显示在工具箱中，在使用它之前，用广需要自行将其添加到工具箱中。
第1章己经详细介绍了向工具箱中添加控件的方法。
其中控件列表中的MicrosoftCommonDialogControl就是通用对话框控件。
本节仅介绍这个控件的基本属性和方法。
6.2.1打开对话框的方法将通用对话框控件添加到窗体中后，如何在程序中打开指定类型的对话框呢？
通用对话框控件提供了两种打开对话框的方法。
一种方法是使用它的Action属性，通过为Action属性赋值，就可以打开对应类型的对话框。
Action属性的值及其对应的对话框如表6.6所示。
这里给出一个打开【打开】对话框的实例。
在窗体中添加一个按钮控件和一个通用对话框控件，设置按钮控件的Caption属性值为“打开”,名称使用默认值，如图6.7所示。
双击按钮控件打开【代码】窗口，输入如下代码：
PrivateSubCommandl_Click（）
CommonDialog1.Action=1
EndSub
单击工具栏中的【运行】按钮运行该程序，单击【打开】按钮，即可打开如图6.8所示的【打开】对话框。
另一个打开对话框的方法是使用通用对话框控件的方法，这种方法更直观。
通用对话框控件的方法与其对应的对话框如表6.7所示。
将上述程序中的代码CommonDialogl.Action=1替换为CommnonDialog1.Show-Open,运行程序，单击【确定】按钮，也可打开如图6.8所示的【打开】对话框。
注意：
对话框的类型不是在设计段设置，而是在运行时通过代码设置的。
通用对话框是一组标准的对话框，它们有标准的外观与功能，通过设置通用对话框控件的某些属性，可以部分地改变对话框的外观。
如设置DialogTitle属性，可以改变对话框的标题；Flags属性则可以用来设置对话框的外观。
6.2.2打开与保存对话框在应用程序中，常常需要执行打开或保存文件等操作，因此，也就常常需要调用【打开】对话框与【保存】对话框。
【打开】对话框与【保存】对话框很相似，大多数属性都是共同的，这里一同介绍。
对话框控件的【属性】窗口中所列的DefaultExt、Filter等属性是针对【打开】。
对话框与【保存】对话框而言的，表5.8中列出了这些属性的含义。
设置Filter属性的格式为：
描述符1|过滤符1|描述符2|过滤符2|……
描述符是将要显示在对话框【文件类型】下拉列表中的文字说明，这是用户所看到的，可以随意指定。
过滤符是由通配符和实际的文件扩展名组成的，如*.*表示所有文件，*.txt表示文本文件，*doc表示Word文档文件。
过滤符是系统用于区分各种文件类型的。
描述符与过滤符一一对应，缺一不可。
如果Filter属性的设置为：
Word文档|*.doc|文本文件|*.txt|位图文件|*.bmpl|则在对话框中只显示扩展名为doc,txt和bmp的文件。
在设置过滤器属性时，如有多个文件类型，则按序排号为1,2,3……，如FilterIndex=2,则在对话框的【文件类型】框中缺省显示的是描述符2。
Flags属性的值也可以是表6.9中两项或多项的相加。
例如，Flags=7则表示对话框同时具备Flags=2和Flags=4的特性。
也可以通过对话框控件的属性页来设置对话框的属性。
将鼠标移动到对话框控件上，单击右键，在弹出的快捷菜单中执行【属性】命令，则弹出如图6.9所示的【属性页】对话框。
【属性页】对话框中的各选项与对话框控件【属性】窗口中的属性是相对应的，如【文件名称】选项对应FileName属性。
通过【属性】窗口设置属性与通过属性页窗口设置属性是完全等同的。
还可以在程序运行阶段在代码中为各属性赋值，如下列语句将对话框的初始路径设置为：
c:
\windows:
CommandDialogl.InitDir=“c:
\windows”
实例6.4【打开】与【保存】对话框的使用
在该程序中，用户可以调用【打开】与【保存】对话框，并能获取用户打开或保存文件的路径以及名称。
可以使用两个通用对话框控释，分别调用【打一开】对话框与【保存】对话框。
通过它们的属性页，可以分别设置它们的属性，如对话框的初始路径、文件类型等。
也可以使用一个通用对话框控件来调用各对话框。
为了使【打开】与【保存】对话框的属性设置不同，应该在程序运行阶段在代码中为各属性赋值。
本例只使用一个通用对话框控件。
在窗体中放置两个标签控件、两个文本框控件、两个按钮控件和，一个通用对话框控件，其中各控件的属性设置如表6.10所示。
双击【打开】按钮，打开【代码】窗口，将下列代码添加到ComOpen_CLick事件过程中：
PrivateSubComOpen_Click（）
CommonDialog1.DialogTitle=“打开文件”
CommonDialog1.InitDir=“c:
\windows”
CommonDialog1.Filter=“图像文件|*.bmp|文本文件|*.txt|”
CommonDialog1.FilterIndex=2
CommonDialog1.Flags=528
CommonDialog1.Action=1
TexOpen.Text=CommonDialog1.FileName
EndSub
在该段代码中，前5行代码设置对话框的属性，从中可以看出，对话框的标题为“打开文件”，初始路径为c:
\windows。
能显示后缀为bmp和txt的文件，在【文件类型】栏中缺省显示的是“文本文件”，Flags=528表明它同时具有Flags=17和Flags=512的特性，在对话框中显示一个【帮助】按钮，并且允许用户同时选中多个文件。
同样，将下列代码添加到ComOpen_Click事件过程中：
PrivateSubComSave_Click（）
CommonDialog1.DialogTitle=“保存文件”
CommonDialog1.InitDir=“f:
\document”
CommonDialog1.Filter=“word文档|*.doc|”
CommonDialog1.Flags=7
CommonDialog1.Action=2
TexOpen.Text=CommonDialog1.FileName
EndSub
运行该程序，单击【打开】按钮，则弹出【打开文件】对话框，从中选择一个或多个文件，单击【确定】按钮后，【打开】文本框中将显示用户选择的文件名，若用户选择多个文件，则所选文件的文件名都显示在文本框中。
单击【保存】按钮，则打开【保存文件】对话框，在【文件名】文本框中输入文件名，单击【保存】按钮后，在【保存】文本框中将显示用户保存的文件名。
如果用户输入的文件名己经存在，则弹出消息框，提示用户此文件己经存在。
6.2.3【颜色】对话框通过使用【颜色】对话框，用户可方便地从中选取所需要的颜色。
单击通用对话框控件【属性页】对话框的【颜色】选项卡，如图6.13所示，从中可以设置【颜色】对话框的颜色（color）与标志（Flags）属性（也可以在【属性】窗口中设置）。
颜色（Color）属性用来设置或返回在【颜色】对话框中选定的颜色值，每个颜色值对应一种颜色。
如255对应红色，0对应黑色，17777215对应白色，……
【颜色】对话框的标志（Flags）属性有4种可能值，如表6.11所示。
实例6.5使用【颜色】对话框
在该程序中，用户可以通过【颜色】对话框来选取标签的背景色，并且能显示出所选颜色的颜色值。
在窗体中放置两个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。
其中各对象的属性如表6.12所示。
双击【设置颜色】按钮，将下列代码添加到ComColorClick事件过程中：
PrivateSubComColor_Click（）
DiaColor.Acttion=3
LabColor.BackColor=DiaColor.Color
TexColor.Text=DiaColor.Color
EndSub
运行该程序，单击【设置颜色】按钮，在弹出的【颜色】对话框中选择一种颜色，单击【确定】按钮，标签的背景色就变成了用户在【颜色】对话框中所选取的颜色了，如图6.15所示。
6.2.4【字体】对话框【字体】对话框也是Windows应用程序中常用的对话框，通过该对话框可以方便地设置文本的字体、字号以及文字的各种效果，如斜体、下划线等。
单击通用对话框控件【属性页】对话框的【字体】选项卡，从中可以设置【字体】对话框的有关属性〔也可以在【属性】窗口中设置）。
表6.13中列出了【字体】对话框各属性的含义。
实例6.6字体对话框的使用。
在该程序中，用户可以调用【字体】对话框来设置文本的字体、字号以及各种效果。
在窗体上放置一个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。
其中各对象的属性设置如表6.15所示。
双击【设置字体】按钮，打开【代码】窗口，将下列代码添加到ComFont_Click事件过程中：
PrivateSubComFont_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
TexFont.FontColor=DiaFont.Color
EndSub
在ComFont_Click事件过程中，第一行语句用来调用字体对话框，第二行语句是将用户在对话框中所选择的字体赋给文本框TexFont的FontName属性，其他语句的功能与此类似。
运行该程序，在文本框中输入一段文本，文本的字体、字号等特征由文本框的Font属性决定。
单击【设置字体】按钮，则出现【字体】对话框，可见，对话框中各项属性的初始值就是在属性页（或【属性】窗口）中设置的值，如默认的字体为在FilelName属性中设置的宋体。
从中选择字体、字号以及各种效果后，单击【确定】按钮，则文本框中的文本就以新的设置显示。
例如，选择字体为“幼圆”，字体样式为“斜体”，字号为“三号”，选中“下划线”效果，并且选择颜色为“红色”，单击【确定】按钮后，则文本框中文本的显示如图6.19所示。
6.3自定义对话框除了预定义对话框和通用对话框外，用户还可以根据实际需要自行定义对话框。
自定义对话框实际上就是在一个窗体上放置一些控件，以构成一个用来接受用户输入的界面。
这里给出一个设计自定义对话框的实例。
实例6.7自定义对话框。
在该实例中，用户可以通过对话框输入个人资料，并且输入的资料将显示在主窗体中。
该程序用到两个窗体，其中一个窗体用作主窗体，另一个窗体用作对话框。
设置主窗体为启动窗体，并且通过主窗体来调用对话框。
单击工具条中的【添加窗体】按钮，则出现如图6.20所示的【添加窗体】对话框，在该对话框中选择窗体类型为“对话框”，单击【打开】按钮即可为当前过程添加一个用于设计对话框的窗体。
在该窗体上放置了对话框中常用的【确定】和【取消】按钮。
下面就以这个窗体为基础设计自定义对话框。
在新建的对话框窗体中放置4个标签控件、1个文本框控件、2个单选项控样、1个组合框控件和1个框架控件，并且在框架控件中再放置4个复选框控件，如图6.21所示。
其中各控件的属性设置如表6.16所示。
升级会员 