《Visual Basic概述》-第6章 对话框

6.1添加通用对话框通用对话框是标准控件，使用时，需要将控件添加到工具箱。将通用对话框控件添加到工具箱的方法有以下两种。(f)选择“工程”/“部件”命令，或用鼠标右键单击控件工具箱，再从弹出菜单中选“部件”项。打开“部件”选项，在控件选项卡(页)中选中“MicrosoftCommonDialogControl6.0"，单击“确定”按钮，即可将“通用对话框”控件添加到控件，在工具箱中出现它的图标。(2)用鼠标右键单击工具箱，在弹出的快捷菜单中执行“部件”命令。后续操作同上。下一页返回6.1添加通用对话框完成后，就可以像使用标准控件一样使用通用对话框控件。用通用对话框工具在窗体上可以创建6种标准对话框窗口，分别为“Open(打开)”、“SaveAs(另存为)”、“Color(颜色)”、“Font(字体)”、“Print(打印)”及“Help(帮助)”窗口。设计时在工具箱中选择通用对话框工具图标，双击或拖动到窗体上显示，图标的大小不变。程序执行时，通用对话框图标在窗体上不显示。直到在程序中需要调用时，用属性设置分别调出所需的对话框。6.1.1通用对话框的公共属性通用对话框有两种打开方法。(1)通过如表6-1所示设置通用对话框的Action属性。下一页返回上一页6.1添加通用对话框(2)通过如表6-1所示的属性分别打开对应的对话框。这样，在程序中用语句“CommonDialog1.Action=1”或“CommonDialog1.ShowOpen”即可以打开“Open”通用对话框。注意，当打开“Font"(字体)设置和“Help"(帮助)设置时，需先设置一些必需的其他属性才可完成。通用对话框除了以上重要属性外，还有“DialogTitle”和“CancelError”两个常用属性。其中，"DialogTitle”是对话框的标题，为“空”时调用通用对话框的缺省标题，可以由用户任意设定;"CancelError”表示用户在与对话框进行信息交互时，单击"Cancel”按钮进行取消操作的效果，True选项会出现错误警告，False(缺省)选项不出现错误标志。下一页返回上一页6.1添加通用对话框如以下程序行，可以使“CancelError"为“True”时显示“对话框标题!”，"CancelError”为“False”时调用“Open"对话框:PrivateSubFormLoad()IfCommonDialog1.CancelError=TrueThenMagBox(”‘对话框标题!”)ExitSubEndIfCommonDialog1.Action=1EndSub下一页返回上一页6.1添加通用对话框6.1.2"Open"(打开)和“SaveAs"(另存为)对话框通过使用通用对话框控件的ShowOpen和ShowSave方法(或Action值的设定)可显示Open和“SaveAs”对话框。两个对话框均可用以指定驱动器、目录、文件扩展名和文件名。除对话的标题不同外，两者外观上基本相似。在运行时，当用户选择一个文件关闭对话框时，FileName属性即为选定的文件名。可以设置Filter属性，这样对话框就只显示某种文件类型，如文本文件。该属性的值必须为文本字符串，可以由一组或多组元素组成。每组分别表示不同的文件类型，用“|”符号分隔。Filter属性的具体含义是:在对话框中返回或者设置要显示文件的过滤器。下一页返回上一页6.1添加通用对话框可以设置一个过滤器，如:“*.rtf(所有的rtf文件)|*.rtf;也可以设置几个过滤器，如:“*.rtf|*.rtf|*.txt|*.txt”就有两个过滤器，每个过滤器都是由两部分构成的，这两部分之间用“|”隔开，前面部分是说明性文字，后面部分起到真正的过滤作用，例如第一个过滤器的两部分分别是“*.rtf(所有:tf文件)”和“*.rtf”，其中“*.rlf(所有:tf文件)”是说明性文字，而真正起到过滤作用的是“*.rtf”。如文件类型下拉列表框中列出以下几种文件供用户选择:(1)*.DOC。Word编辑的文件。(2)*.TXT。扩展名为.TXT的文本文件。下一页返回上一页6.1添加通用对话框(3)*.*。所有类型文件。那么，Filler属性的值可设为“CommonDialog1.Filter=”Word文档|*.DOC|文本文件|*.TXT|所有文件|*.*|””。FilterIndex用来确定缺省的过滤器。Flags属性可用来改变对话框的元素，进行许多设置。当诸如覆盖文件之类的动作发生时，还可用来提示用户。当"Action"属性设为1时，打开Open标准对话框，如图6-1所示。

"Open”对话框其实只是替用户找到文件名而已，它只提供给用户一个打开文件的界面，返回一些参数，并不能打开文件。打开(或其他处理)文件的操作还需通过编写程序完成。下一页返回上一页6.1添加通用对话框例6-1用命令按钮的click事件显示“打开”对话框，在对话框内只允许显示位图文件，初始目录为“c:\windows”。当选定一个位图文件后，单击“打开”按钮，则在标签上显示选定的位图文件名;单击“取消”按钮，则在标签上显示“单击”了“取消”按钮，放弃操作。代码如下:Privatesubcommond1click()OnerrorgotoLCommondialog1.initdir=”c:windows"Commondialog1.filter=”位图文件(.bmp|*.bmp)"Commondialog1.filtercancelerror=true下一页返回上一页6.1添加通用对话框Commondialog1.showopen

‘显示于打开对话框(也可用Commondialog1.action=1)Label1.caption=Commondialog1.filename

‘显示选择的文件名EndsubL:’错误处理

Iferr.number=32755then

‘单击取消按钮

Label1.caption=“取消，放弃操作!”Exitsub下一页返回上一页6.1添加通用对话框ElseLabel1.caption=”其他错误!”EndifEndsub"SaveAs”对话框可以用来指定文件所要保存的驱动器、文件夹和文件名以及文件扩展名，其中，FileNatne返回要保存的文件位置和名称。"SaveAs”对话框和“Open”对话框除了标题不一样外，其他功能基本相同。另外，SaveAs对话框有一个DefaultExt属性，该属性值为1~3个字符确定的扩展名，表示所存文件的缺省扩展名，在用户没有给定文件扩展名时，VB采用DefaultExt指定的缺省扩展名。下一页返回上一页6.1添加通用对话框6.1.3"Color"(颜色)对话框“颜色”对话框的主要功能是让用户选择所需要的颜色，或自行调配特殊的色彩。它返回颜色值，该值记录在“Color"属性中。"Color”对话框的另一个重要属性是Flags，表6-2列出了其设置值。这些常数在对象浏览器的MicrosoftCommonDialog控件对象库中列出，也可以定义所选择的标志。使用“Or”运算符可以为一个对话框设置多个标志。例如:CommonDialog1.Flags=&H8&Or&H4&下一页返回上一页6.1添加通用对话框将所希望的常数值相加也能产生同样的结果，如CommonDialog1.Flags=&Hc

‘相当于&H8和&H4运行结果如图6-2所示，效果是显示了对话框中的帮助按钮，并且将对话框中的自定义按钮设置为无效。例6-2用“颜色”对话框最重要的属性，返回或没置用户选定的颜色。当用户在调色板中选中某种颜色时，该颜色赋值给color属性。程序代码如下:PrivateSubCommand1Click()CommonDialog1.cancelerror=false下一页返回上一页6.1添加通用对话框CommonDialog1.showcolor‘也可用commondialog.action=3Text1.forecolor=CommonDialog.ColorEndSub6.1.4"Font"(字体)对话框Font(字体)对话框提供了标准字体的标准对话框界面，让用户选择需要的字体、字的大小和字的一些修饰等，如图6-3所示。下一页返回上一页6.1添加通用对话框在使用ShowFont方法前，必须先设置CommonDialog控件的Flags属性为下列3个常数或值中的一个:cd1CFScreenFonts或&H1(屏幕字体)、cd1CFPrinterFonts或&H2(打印机字体)以及cd1CFBoth或&H3(既可以是屏幕字体又可以是打印机字体)。设置这个值，将给ShowFont提供显示字体的字库标准，如果不设置Flags，将会显示一个信息框，提示“没有安装的字体。”并产生一个运行错误。"Font”对话框上的常用属性包括:字体名(fontname)、字体大小(fon-tsize)、粗体(fontbold)、斜体(fontItalic),删除线(FontStrikethru)、下划线(FontUnderline).下一页返回上一页6.1添加通用对话框例6-3用“字体”对话框设置文本框的字体，要求字体对话框内出现删除线、下划线、颜色元素控制。分析:在窗体上放置一个通用对话框、一个文本框和一个命令按钮，在命令按钮的Click事件中编写如下的代码:PrivateSubCommand1Click()CommonDialog1.Flags=cdlcfllotherorcdlcfeffectsCommonDialog1.showfontText1.fontname=CommonDialog1.fontname下一页返回上一页6.1添加通用对话框Text1.Fontsize=CommonDialog1.fontsizetext1.fontbold=CommonDialog1.fontboldtext1.fontitalie=CommonDialog1.fontitalietext1.FontStrikethru=CommonDialog1.FontStrikethrutext1.FontUnderline=CommonDialog1.FontUnderlinetext1.forecolor=CommonDialog1.colorEndSub下一页返回上一页6.1添加通用对话框6.1.5Printer(打印)对话框“打印”对话框允许用户设置打印输出的打印范围、打印质量和打印份数等打印属性，并且会显示目前的打印机，如图6-4所示。用户可以通过设置表6-3所示的属性来控制Printer对话框。例6-4在窗体中添加一个命令按钮command1，用于调试“打印”对话框，打印文本框中的信息。程序代码如下:PrivateSubCommand1Click()下一页返回上一页6.1添加通用对话框CommonDialog1.showprinter‘打开打印对话框，也可用CommonDialog1.action=1

Fori=1tocommondialog.copiesPrinter.printtext1.text‘打印文件框中的内容NextiPrinter.enddocEndsub用print方法将打印的内容发送到printer对象(printer对象表示所安装的打印机)就可实现打印，enddoc方法结束printer对象的操作。下一页返回上一页6.1添加通用对话框6.1.6"Help"(帮助)对话框“帮助”对话框可以用于在界面上制作标准的Help对话框。如果用户对该对话框进行操作，可提供应用程序的在线帮助，但该窗口不能制作应用程序的帮助文件，只能将已制作好的帮助文件从磁盘中提取出来，并与界面连接，达到显示并检索帮助信息的目的。创建帮助文件需要用microsoftwindowshelpcompiler，即help编辑器生成帮助文件。帮助所涉及到的常用属性如表6-4。例6-5用文件“帮助”对话框调用notepad.hlp文件，首先进入“将时间和口期添加到文档”的帮助信息页面，如图6-5所示。下一页返回上一页6.1添加通用对话框程序代码如下:PrivateSubCommand1Click()WithCommonDialog1·helpcommand=cdlhelpcontents·helnfile="c:\windows\help\notepad.hlp"·helpkey=”将时间和日期添加到文档”

·showhelp下一页返回上一页6.1添加通用对话框EndwithEndsub说明:在调用的计算机内存在“记事本”的帮助文件时，要使用ShowHelp方法显示帮助文件，应先设置HelpCommand和HelpFile属性，再用ShowHelp等方法显示指定的帮助文件。返回上一页6.2

使用内部对话框设计对话框InputBox是一个输入函数对话框，它的功能是在对话框中显示提示，等待用户输入文字或单击按钮，然后返回包含文本框内容的字符串。格式为:InputBox(prompt[，title][，default][，xpos][,ypos][，helpfile，context])InputBox函数的语法具有以下几个命名参数:(1)Prompt必需的。作为对话框消息出现的字符串表达式。prompt的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。下一页返回6.2

使用内部对话框设计对话框(2)Title可选的。显示对话框标题栏中的字符串表达式。如果省略title，则把应用程序名放入标题栏中。(3)Default可选的。显示文本框中的字符串表达式，在没有其他输入时作为缺省值。如果省略default，则文本框为空。(4)Xpos和Ypos可选的。数值表达式，必须成对出现，用于定义输入对话框的位置。Xpos指定对话框的左边与屏幕左边的水平距离。如果省略xpos，则对话框会在水平方向居中。Ypo指定对话框的上边与屏幕上边的距离。如果省略ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。下一页返回上一页6.2

使用内部对话框设计对话框(6)Helpfile可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供helpfile，则必须提供context。(7)Context可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供context，则也必须要提供helpfile。说明:如果同时提供了helpfile与context，用户可以按“F1”来查看与context相应的帮助主题。某些主应用程序，例如，MicrosoftExcel，会在对话框中自动添加一个“Help”按钮。下一页返回上一页6.2

使用内部对话框设计对话框如果用户单击"OK”按钮或按下“ENTER"键，则InpulBox函数返回文本框中的内容。如果用户单击"Cancel"，则此函数返回一个长度为零的字符串(””)。由于inputbox返回的都是string，如果要运算，就要把string转换成intrger或者其他数值形式:1=Cdbl(InputBox(”1=”))s=Cdbl(InputBox(”s=”))a=Cdbl(InputBox(”a=”))b=Cdbl(InputBox(”b=”))下一页返回上一页6.2

使用内部对话框设计对话框CDbI()函数用于进行从其他数据类型到Double子类型的国际公认的格式转换。例如，十进制分隔符和千位分隔符的识别取决于系统的区域设置。因此，在这里最好定义1,s、a,b,d为double型。例6-6编写一个计算变速运动的程序。要求运行程序后，单击窗口可以输入车辆的初速度、加速度、行驶时间，计算并输出车辆行驶的距离。程序代码如下:Private