二级特训-通用对话框控件.doc

通用对话框控件在VB中，对话框是一种特殊的窗口，它通过显示和获取信息与用户进行交流，一个对话框可以很简单，也可以很复杂，前面介绍的MsgBox和InputBox函数可以建立简单的对话框，即信息框和输入框。但是要定义的对话框较复杂时，将会花较多的时间和精力设计和书写代码，为此，Visual Basic 6.0提供了通用对话框控件，用其可以定义比较复杂的对话框（通用对话框）。要把通用对话框控件加到工具箱中，可按如下步骤操作：（1） 执行“工程”菜单中的“部件”命令，打开“部件”对话框。（2） 选择“控件”选项卡，如图1所示，在控件列表框中选择“Microsoft Common Dialog Control 6.0”。图1部件对话框（3） 单击“确定”按扭，通用对话框即被添加到工具箱中，如图2所示。在设计状态下，CommonDialog控件以图标的形式显示在窗体上，其大小不能改变，在程序运行时，控件本身被隐藏。图2通用对话框通用对话框的默认名称（Name属性）为CommonDialogX（X为1，2，3）。通用对话框控件为程序设计人员提供了几种不同类型的对话框，有文件对话框、打印对话框、字体对话框、颜色对话框等。利用这些对话框，可以获取所需要的信息，例如打开文件、打印、存盘、选择颜色等。对话框的类型可以通过Action属性设置，也可以使用说明性的Show方法来代替Action属性值。Action属性和Show方法如表1：表1 Action属性和Show方法Action属性Show方法说明1ShowOpen显示文件打开对话框2ShowSave显示另存为对话框3ShowColor显示颜色对话框4ShowFont显示字体对话框5ShowPrinter显示打印机对话框6ShowHelp显示帮助对话框通用对话框具有的主要共同属性为：（1）CancelError属性：通用对话框里有一个“取消”按扭，用于向应用程序表示用户想取消当前操作。当CancelError属性设置为True时，若用户单击“取消”按扭，通用对话框自动将错误对象Err.Number设置为32755（cdlCancel）以便供程序判断。若CancelError属性设置为False，则单击“取消”按扭时不产生错误信息。（2）DialogTitle属性：每个通用对话框都有默认的对话框标题，通过DialogTitle属性可由用户自行设计对话框标题上显示的内容。（3）Flags属性：通用对话框的Flags属性可以修改每个具体对话框的默认操作，其值可有3种形式，即符号常量、十六进制数和十进制数。（4）HelpCommand属性：指定Help的类型。（5）HelpContext属性：用来确定Help ID的内容，与HelpCommand属性一起使用，指定显示的Help主题。（6）HelpFile和HelpKey属性：分别用来指定Help应用程序的Help文件名和Help主题能够识别的名字。7.1.1 文件对话框的结构文件对话框有打开（Open）文件对话框和保存（Save）对话框，如图3所示为打开对话框，在该对话框中用户可以打开一个文件供程序调用。InitDirFileNameFilter 图3 打开对话框（1） DefaultEXT：设置对话框中默认文件类型，即扩展名。该扩展名出现在“文件类型”栏内。如果在打开或保存的文件名中没有给出扩展名，将自动将DefaultEXT属性值作为其扩展名。（2） DialogTitle：此属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“打开”，“保存”对话框的标题是“保存”。（3） FileName：该属性值为字符串，用于设置和得到用户所选的文件名（包括路径名）。（4） FileTitle：该属性用来指定对话框中所选择的文件名（不包括路径），该属性与FileName属性的区别是：FileName属性用来指定完整的路径，而FileTitle只指定文件名。（5） Filter：该属性用来过滤文件类型，使文件列表框中显示指定的文件类型。可以在设计时设置该属性，也可以在代码中设置该属性。Filter的属性值由一对或多对文本字符组成，每对字符串间要用“|”隔开，格式为： 文件说明1 | 文件类型1 |文件说明2 | 文件类型2例如要在打开对话框的“文件类型”列表框中显示如图3所示的文件类型，则Filter属性应设置为： CommonDialog1.Filter=文本文件 | *.txt | Word文档 | *.doc（6） InitDir：该属性用来指定打开对话框中的初始目录。如果要显示当前目录，则该属性不需要设置。【例1】编写程序，建立“打开”和“保存”对话框。根据上述方法在窗体上画一个通用对话框，以属性的默认值Name属性取默认值，即CommonDialog1，再建立两个命令按扭Command1和Command2，然后编写两个事件过程：Private Sub Command1_Click() CommonDialog1.FileName= CommonDialog1.Flags=vbOFNFileMustExist CommonDialog1.Filter=All Files | *.* | (*.exe) | *.exe | (*.TXT)| *.TXT CommonDialog1.FilterIndex=3 CommonDialog1.DialogTitle=Open File(*.EXE) CommonDialog1.Action=1 打开对话框 If CommonDialog1.FileName= Then MsgBox No file Selected,37, Checking Else Open Commondialog1.FileName For Input As #1 Do While Not EOF(1) Input #1,a$ Print a$ Loop End If End Sub Private Sub Command2_Click() CommonDialog1.CancelError=True CommonDialog1.DefaultExt=TXT CommonDialog1.FileName=lbw.txt CommonDialog1.Filter=Text files(*.txt) | *.TXT | ALL Files(*.* _) | *.* CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=Save File As (*.TXT) CommonDialog1.Flags=vbOFNOverwritePrompt Or vbOFNPathMustExist CommonDialog1.Acion=2 保存对话框End SubOpen对话框并不能真正“打开”文件，而仅仅是用来选择一个文件，至于选择以后的处理，包括打开、显示等，Open对话框是没有能力完成的，前半部分用来建立Open对话框，设置对话框的各种属性；“Else”之后的部分用来对选择的文件进行处理。7.1.2 “颜色”对话框 “颜色”对话框的方法是ShowColor，Aciton为3的通用对话框，如图4颜色对话框，在颜色对话框中提供了基本颜色和自定义颜色。“颜色”对话框的两个重要属性：Color属性和Flags属性。其中Color属性是“颜色”对话框最重要的属性，它返回或设置选定的颜色。当用户在调色板中设置了某颜色时，该颜色值赋给Color属性。Color属性用来设置初始颜色，并把对话框中选择的颜色返回给应用程序。图4颜色对话框表2 颜色对话框的Flags属性的取值符号常量十进制值作用vbCCRGBinit1使得Color属性定义的颜色在首次显示对话框时随着显示出来vbCCFullOpen2打开完整对话框，包括“用户自定义颜色”窗口vbCCPreventFullOpen4禁止选择“规定自定义颜色”按扭vbCCShowHelp8显示一个Help按扭【例2】在例.1的窗体上增加命令按扭Command3，用于打开颜色对话框，通过“颜色”对话框设置窗体（Form1）的背景颜色。代码如下：Private Sub Command3_Click() CommonDialog1.Flags=vbCCRGBinit CommonDialog1.Color=BackColor CommonDialog1.Action=3 Form1.BackColor= CommonDialog1.ColorEnd Sub为了设置或读取Color属性，必须将Flags属性设置为1（vbCCRGBinit）。7.1.3 “字体”对话框在Visual Basic中，字体通过字体（Font）对话框属性设置。利用通用对话框控件，可以建立一个字体对话框，并可以通过该对话框设置应用程序所需要的字体。字体对话框的主要属性：（1）CancleError，DialogTitle，HelpCommand，HelpContext，HelpFile和HelpKey见前面介绍。（2）Flags属性：其属性值见表。表3 字体对话框的Flags属性取值符号常数属性值作用cdlCFScreenFonts1只显示屏幕字体cdlCFPrinterFonts2只列出打印机字体cdlCFBoth3列出打印机和屏幕字体cdlCFEffects256允许中划线、下划线和颜色（3） Max和Min属性：字体大小用点来度量。在默认情况下，字体大小的范围为12048个点，用Max和Min属性可以指定字体大小的范围（在12048之间的整数）。但是在设置Max和Min属性之前，必须把Flags属性设置为8192。（4） FontBold，FontItalic，FontName，FontSise，FontStrikeThru，FontUnderLine这些属性可以在字体对话框中选择，也可以通过程序代码赋值。【例7.3】用字体对话框设置文本框中显示的字体。在窗体上建立通用对话框CommonDialog1、文本框Text1、和命令按扭Command1，如图5所示。在命令按扭中编写Click事件代码如下： 图5 初始界面 Private Sub Command1_Click() CommonDialog1.Flags=cdlCFBoth or cdlCFEffects 设置Flags CommonDialog1.ShowFont If CommonDialog1.FontName Then 如果选择了字体 Text1.FontName= CommonDialog1.FontName End If 下面设置文本框内的字体 Text1.FontSize=CommonDialog1.FontSize Text1.FontBold=CommonDialog1.FontBold Text1.FontItalic=CommonDialog1.FontItalic Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.FontUnderline=CommonDialog1.FontUnderline Text1.ForeColor=CommonDialog1.ColorEnd Sub7.1.4 “打印”对话框“打印”对话框是当Action为5时的通用对话框，可以通过“打印”对话框的名称框选择打印机，通过“打印”对话框的“属性”按扭设置打印机的属性。“打印”对话框并不能处理打印工作，仅仅是一个供用户选择打印参数的界面，所选参数存于各属性中，再通过编写程序来实现打印机操作。打印对话框的主要属性如下：（1）Copies属性：指定要打印的文档的拷贝数。（2）FromPage和ToPage属性：指定要打印的文档的页范围。（3）hDC属性：分配给打印机的句柄，用来识别对象的设备环境，用于API调用。（4）Max和Min属性：用来限制FromPage和ToPage的范围，其中Min指定所允许的起始页码，Max指定所允许的最后页码。【例7.4】在窗体上创建一个通用对话框、一个文本框和一个命令按扭，建立打印对话框，打印文本框中的信息。Private Sub Command1_Click() CommonDialog1.ShowPrinter For I = 1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Printer.EndDoc End Sub利用Printer对象开发的打印程序主要靠其提供的NewPage （打印新的一页，CurrentX、CurrentY置为新页的左上角，可完成多页功能。）、EndDoc （将打印任务加入打印机队列）、KillDoc （取消打印任务）控制打印过程的。一般情况下，打印程序完成多页打印时会多次执行NewPage，结束时执行一次EndDoc将打印任务加入打印机队列。如果你在NewPage后，立即使用EndDoc，VB则不会打印额外的空白页。如果希望显示空白页，则可在新的一页上只