第7章界面设计.docx

1、第7章 界面设计第七章 界面设计在Windows环境下，几乎所有的应用软件都通过菜单实现各种操作。本章介绍在VB中用户界面设计的工具和方法，包括：通用对话框、菜单、工具栏等。7.1 对话框控件在VB中，对话框是一种特殊的窗口，它通过显示和获取信息与用户进行交流，一个对话框可以很简单，也可以很复杂，前面介绍的MsgBox和InputBox函数可以建立简单的对话框，即信息框和输入框。但是要定义的对话框较复杂时，将会花较多的时间和精力设计和书写代码，为此，Visual Basic 6.0提供了通用对话框控件，用其可以定义比较复杂的对话框（通用对话框）。要把通用对话框控件加到工具箱中，可按如下步骤操作

2、：（1） （1） 执行“工程”菜单中的“部件”命令，打开“部件”对话框。（2） （2） 选择“控件”选项卡，如图7-1所示，在控件列表框中选择“Microsoft Common Dialog Control 6.0”。图7-1部件对话框（3） （3） 单击“确定”按扭，通用对话框即被添加到工具箱中，如图7-2所示。在设计状态下，CommonDialog控件以图标的形式显示在窗体上，其大小不能改变，在程序运行时，控件本身被隐藏。图7-2通用对话框通用对话框的默认名称（Name属性）为CommonDialogX（X为1，2，3）。通用对话框控件为程序设计人员提供了几种不同类型的对话框，有文件对话框

3、、打印对话框、字体对话框、颜色对话框等。利用这些对话框，可以获取所需要的信息，例如打开文件、打印、存盘、选择颜色等。这些对话框与Windows本身及商业程序具有相同的风格。对话框的类型可以通过Action属性设置，也可以使用说明性的Show方法来代替Action属性值。Action属性和Show方法如表7-1。表7-1 Action属性和Show方法Action属性Show方法说明1ShowOpen显示文件打开对话框2ShowSave显示另存为对话框3ShowColor显示颜色对话框4ShowFont显示字体对话框5ShowPrinter显示打印机对话框6ShowHelp显示帮助对话框通用对话

4、框具有的主要共同属性为：（1） （1） CancelError属性：通用对话框里有一个“取消”按扭，用于向应用程序表示用户想取消当前操作。当CancelError属性设置为True时，若用户单击“取消”按扭，通用对话框自动将错误对象Err.Number设置为32755（cdlCancel）以便供程序判断。若CancelError属性设置为False，则单击“取消”按扭时不产生错误信息。（2） （2） DialogTitle属性：每个通用对话框都有默认的对话框标题，通过DialogTitle属性可由用户自行设计对话框标题上显示的内容。 （3） Flags属性：通用对话框的Flags属性可以修改每

5、个具体对话框的默认操作，其值可有3种形式，即符号常量、十六进制数和十进制数。 （4）HelpCommand属性：指定Help的类型。 （5）HelpContext属性：用来确定Help ID的内容，与HelpCommand属性一起使用，指定显示的Help主题。 （6）HelpFile和HelpKey属性：分别用来指定Help应用程序的Help文件名和Help主题能够识别的名字。7.1.1 文件对话框的结构文件对话框有打开（Open）文件对话框和保存（Save）对话框，如图7-3所示为打开对话框，在该对话框中用户可以打开一个文件供程序调用。“保存”对话框有类似的结构，可以指定一个文件名来保存当前

6、文件。通用对话框用于文件操作时需要对下列属性进行设置。图7-3 打开对话框（1） （1） DefaultEXT：设置对话框中默认文件类型，即扩展名。该扩展名出现在“文件类型”栏内。如果在打开或保存的文件名中没有给出扩展名，将自动将DefaultEXT属性值作为其扩展名。（2） （2） DialogTitle：此属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“打开”，“保存”对话框的标题是“保存”。（3） （3） FileName：该属性值为字符串，用于设置和得到用户所选的文件名（包括路径名）。（4） （4） FileTitle：该属性用来指定对话框中所选择的文件名（不包括路径）

7、，该属性与FileTitle属性的区别是：FileName属性用来指定完整的路径，而FileTitle只指定文件名。（5） （5） Filter：该属性用来过滤文件类型，使文件列表框中显示指定的文件类型。可以在设计时设置该属性，也可以在代码中设置该属性。Filter的属性值由一对或多对文本字符组成，每对字符串间要用“|”隔开，格式为： 文件说明1 | 文件类型1 |文件说明2 | 文件类型2例如要在打开对话框的“文件类型”列表框中显示如图7-3所示的文件类型，则Filter属性应设置为： CommonDialog1.Filter=文本文件 | *.txt | Word文档 | *.doc（6）

8、 （6） InitDir：该属性用来指定打开对话框中的初始目录。如果要显示当前目录，则该属性不需要设置。【例7.1】编写程序，建立“打开”和“保存”对话框。根据上述方法在窗体上画一个通用对话框，以属性的默认值Name属性取默认值，即CommonDialog1，再建立两个命令按扭Command1和Command2，然后编写两个事件过程：Private Sub Command1_Click() CommonDialog1.FileName= CommonDialog1.Flags=vbOFNFileMustExist CommonDialog1.Filter=All Files | *.* | (

9、*.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 E

10、nd 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

11、=vbOFNOverwritePrompt Or vbOFN_PathMustExist CommonDialog1.Acion=2 保存对话框End SubOpen对话框并不能真正“打开”文件，而仅仅是用来选择一个文件，至于选择以后的处理，包括打开、显示等，Open对话框是没有能力完成的，前半部分用来建立Open对话框，设置对话框的各种属性；“Else”之后的部分用来对选择的文件进行处理。7.1.2 “颜色”对话框 “颜色”对话框的方法是ShowColor，Aciton为3的通用对话框，如图7-4颜色对话框，在颜色对话框中提供了基本颜色和自定义颜色。“颜色”对话框的两个重要属性：Color属

12、性和Flags属性。其中Color属性是“颜色”对话框最重要的属性，它返回或设置选定的颜色。当用户在调色板中设置了某颜色时，该颜色值赋给Color属性。Color属性用来设置初始颜色，并把对话框中选择的颜色返回给应用程序。图7-4颜色对话框表7-2 颜色对话框的Flags属性的取值符号常量十进制值作用vbCCRGBinit1使得Color属性定义的颜色在首次显示对话框时随着显示出来vbCCFullOpen2打开完整对话框，包括“用户自定义颜色”窗口vbCCPreventFullOpen4禁止选择“规定自定义颜色”按扭vbCCShowHelp8显示一个Help按扭【例7.2】在例7.1的窗体上增

13、加命令按扭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）对话框属性

14、设置。利用通用对话框控件，可以建立一个字体对话框，并可以通过该对话框设置应用程序所需要的字体。字体对话框的主要属性：（1）CancleError，DialogTitle，HelpCommand，HelpContext，HelpFile和HelpKey见前面介绍。（2）Flags属性：其属性值见表7-3。表7-3 字体对话框的Flags属性取值符号常数属性值作用cdlCFScreenFonts1只显示屏幕字体cdlCFPrinterFonts2只列出打印机字体cdlCFBoth3列出打印机和屏幕字体cdlCFEffects256允许中划线、下划线和颜色（3） （3） Max和Min属性：字体大小

15、用点来度量。在默认情况下，字体大小的范围为12048个点，用Max和Min属性可以指定字体大小的范围（在12048之间的整数）。但是在设置Max和Min属性之前，必须把Flags属性设置为8192。（4） （4） FontBold，FontItalic，FontName，FontSise，FontStrikeThru，FontUnderLine这些属性可以在字体对话框中选择，也可以通过程序代码赋值。【例7.3】用字体对话框设置文本框中显示的字体。在窗体上建立通用对话框CommonDialog1、文本框Text1、和命令按扭Command1，如图7-5所示。在命令按扭中编写Click事件代码如下： 图7-5 初始界面 Private Sub Command1_Click() CommonDialog1.Flags=cdlCF