课堂案例通用对话框

通用对话框在使用windows应用程序时，用户往往可以看到打开、保存、颜色、字体等对话框VB提供了通用对话框控件来设计这些对话框通用对话框控件——MicrosoftCommonDialogControl把通用对话框控件添加到工具箱【工程】【部件】选中MicrosoftCommonDialogControl【确定】该控件图标通用对话框有6种不同形式的对话框，在显示通用对话框之前，应通过设置它的action属性或者调用show方法来选择对话框的类型P167例如：CommonDialog1.Action=1CommonDialog1.ShowOpen显示的对话框方法Action属性值“打开”对话框ShowOpen1“另存为”对话框ShowSave2“颜色”对话框ShowColor3“字体”对话框ShowFont4“打印机”对话框ShowPrinter5“帮助”对话框ShowHelp6实例操作一设计一个程序，界面如下图所示单击按钮时，弹出相应对话框单击窗体的关闭按钮时，弹出保存对话框（unload事件）实例操作二：初始化对话框的属性每种对话框都有自己特殊的属性，这些属性既可以在属性窗口中设置，也可以在代码中设置，还可以在“属性页”对话框中设置

操作：设置打开/保存对话框的初始化属性初始化路径：C:\文件类型包含“所有文件”和“文本文件”，默认时为文本文件如果要保存的文件和当前目录中的文件同名时，则会显示一个信息框，询问是否覆盖已有文件,显示一个“帮助”按钮默认扩展名：txt打开/保存对话框的有关属性在控件上单击右键，选择属性，弹出对话框对话框标题（DialogTitle）、文件名称（FileName）、初始化路径（InitDir）、过滤器（Filter）、（5）标志（Flags）、缺省扩展名（DefaultExt）、文件最大长度（MaxFileSize）、过滤器索引（FilterIndex）、取消错误（CancelError）

①“对话框标题”－DialogTitle

用途：用于设置对话框的标题；②

“文件名称”－FileName

用途：用来设置或返回要打开或保存的文件的路径及文件名。若在对话框中选择了一个文件并单击“打开”或“保存”按钮，则选择的文件（包含路径）,即为FileName属性的值；③“初始化路径”－InitDir

用途：用于指定打开对话框的初始路径，若没有指定该属性，则使用当前路径；

④“过滤器”－Filter用来指定对话框中显示的文件类型。用这个属性可以设置多个文件类型，提供给用户在对话框的“文件类型”的下拉列表中进行选择。若需设置多项时，可以用管道符（|）隔开格式：描述符1|过滤符1|描述符2|过滤符2|……

其中，描述符是显示在对话框中用户看到的信息，而过滤符是有严格规定的，由通配符和文件扩展名组成，例如：*.txt*.jpeg*.vbp⑤“过滤器索引”－FilterIndex

用途：当为对话框指定了一个以上的过滤器时，用于确定哪个过滤器作为缺省过滤器。第一个过滤器索引值为1，第二个为2，依此类推⑥“标志”－Flags

用途：用于确定对话框的一些特性，如是否允许同时选择多个文件等。参数值作用1显示“只读检查”复选框2保存时，如果同名，弹出消息框，提示是否覆盖原文件4不显示“只读检查”复选框8保留当前目录16显示“帮助”按钮256允许在文件中有无效字符512允许用户选择多个文件

⑦“缺省扩展名”－DefaultExt

用途：当对话框用于保存文件时，如果文件没有指定扩展名，则使用该属性指定的缺省扩展名，如：*.txt，*.doc等⑧“文件最大长度”－MaxFileSize

用途：用于指定文filename的最大长度，单位为字节；⑨“取消引发错误”－CancelError

用途：用于确定运行时在对话框中按”取消“时是否出错。选择该项，相当于CancelError设为true，按”取消“出错，否则，不出错。实例操作三：在打开对话框中选中一个文本文件打开，把文件内容显示在文本框中用户在文本框中选中一个文件并单击“确定”按钮，这时并没有执行打开文件的操作。基本思路：text1.text=选定文件内容问题：怎么读取外部文件的内容？这需要用到文件的操作文件的操作数据是以文件的方式保存在存储介质上的，需要读取数据时可以从外存储器调入内存（读操作），需要保存时可以由内存写到外存（写操作）。

在vb中文件的操作分为：——顺序文件，其操作如下：文件的打开——open文件的关闭——close文件的写操作——print、write文件的读操作——input、lineinput

在对文件进行操作前，必须用open语句先打开要操作的文件，操作完成之后用close语句关闭文件打开——Open语句功能：打开要操作的文件（注意：跟在windows下打开文件的内涵不同），仅仅表示可以对文件进行读写操作了语法格式如下：

Open<文件名>[For打开方式]As[#]<文件号>例如：Open"E:\VB\VB.txt"ForOutputAs#1表示打开E盘中的文本文件VB，并指定该文件的文件号为1Open语句参数解释文件名：指定打开的文件名（文件名用字符串表示），包括盘符、路径、文件主名及扩展名。例如：”E:\MF\Test.txt”。文件号：VB应用程序每打开一个文件，必须指定一个文件号，且不能与其它打开的文件占用的文件号重复。文件号的范围是1-511之间的整数。打开文件后，指定的文件号就与该文件相关联，程序通过文件号来对文件进行读、写操作，直到关闭文件。关闭文件后，该文件号被释放，可供打开其他文件时使用。打开方式方式：指定文件的打开方式，打开文件后，只能按指定的方式进行一种操作。打开一个顺序文件有三种方式可选：◆Input：打开文件后，从文件中读取数据◆Output：打开文件后，向文件中写入数据，即重写一个顺序文件◆Append：打开文件后，向文件末尾添加数据关闭——Close语句语法格式为：Close[#文件号][,#文件号]…

…例如：关闭前面打开的文本文件VBclose＃1关闭文件后，该文件号被释放，可供打开其他文件时使用。写操作在写操作之前必须先以output或者是Append方式打开文件1、print语句语法格式为：Print#

文件号[,

输出列表]输出列表：准备写入文件中的数据例如：Open"E:\VB\VB.txt"ForOutputAs#1

print#1,“abcd”，“efg”close#12、write语句：能够自动的在各个数据项之间加入逗号，并给字符串加上双引号,记录尾自动加回车换行符。上面的语句改为write，则文件中的内容是“abcd”，“efg”读操作在读操作之前必须先以iutput方式打开文件1、input语句：用于从打开的顺文件中读取数据赋值给指定的变量，每次应读出一整条纪录。语法格式为：Input#文件号,变量表例如：Open"E:\VB\VB.txt"ForiutputAs#1

input#1,str——str是字符串变量

close#12、lineinput语句：把文件中的一行读到一个字符串变量中，遇到回车符或换行符结束语法格式为：LineInput#文件号，字符串变量读操作3、input函数：从一个打开的顺序文件中返回指定个数的字符语法格式为：Input（读取的字符个数，[#]文件号）该函数读取文件中的任何字符，包括回车换行符。

例如：

Open"E:\VB\VB.txt"ForiutputAs#1Text1.text=input(10,#1)Close#1与文件操作相关的语句和函数

1、Lof函数：返回一个已打开的文件的长度。语法格式为：Lof（文件号）2、Eof函数：返回一个指示是否达到文件尾的逻辑值。到达文件尾时，该函数返回true，否则返回false语法格式为：Eof（文件号）3、FreeFile函数：返回供Open语句使用的下一个可用文件号。语法格式为：FreeFile(0/1)参数指定为0（或缺省）时返回1-255之间的文件号；指定为1返回256-511之间的文件号。操作三：显示文件内容1、打开文件

OpenCommonDialog1.FileNameForInputAs#12、读取文件内容当文件未结束时，每次读取一行，链接到str串后面3、关闭文件Close#14、显示内容：text1.text=str操作四：把文本框中的内容保存到文本文件中在文本框中修改文件内容，单击“保存文件”，弹出保存对话框。如果要保存的文件和当前目录中的文件同名时，则会显示一个信息框，询问是否覆盖已有文件（flagsP169）输入新文件名称，新建并保存文件1、打开文件2、把文本框中的内容写入文件把text1.text写入到filename指定的文件中3、关闭文件操作五：利用颜色对话框修改文本框中的内容的颜色文本框内容的颜色属性：ForeColor对话框中选定的颜色：colorFlags属性：P174操作六：利用字体对话框设置文本框中内容的字体Flags属性：

1使对话框只列举系统支持的屏幕字体。

2使对话框只列举打印机所支持的字体。

3使对话框列举可用的打印机与屏幕字体

4使对话框显示帮助按钮

256指定对话框使删除线、下划线与颜色生效在本实例中，在现实字体对话框之间，应把flag的值设置为1，2或3，否则会发生字体不存在的错误。Color：能够确定选定的颜色。若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256FontBold：确定是否选定了粗体FontItalic：确定是否选定了斜体FontStrikethru：确定是否选定了删除线，若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256FontUnderline：确定是否选定了下划线，若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256FontName：确定选定字体的名称FontSize：确定选定字体的大小除了color之外，文本框关于字体的所有属性名称跟通用控件相同（文本框的字体颜色属性时forecolor）操作七：显示帮助帮助对话框是当Action属性为6时的通用对话框，是一个标准的帮助对话框窗口界面。帮助对话框不能制作应用程序的帮助文件，只能将已制作好的帮助文件从磁盘中提取出来，并与界面连接起来，达到显示并检索帮助信息的目的。制作帮助文件需要用MicrosoftWindowsHel