多窗体和多文档界面

第九章多窗体和多文档界面9.1多窗体界面9.1.1窗体的生命周期通常VB窗体在应用程序中有以下4种状态：创建状态、加载状态、可见状态以及卸载状态9.1.2窗体的创建窗体创建状态开始的标志是Initialize事件，窗体创建时最先执行的代码应放在Form_Initialize事件过程中。9.1.3窗体的加载

Load事件标志着加载状态的开始。一旦窗体进入加载状态，Form_Load事件过程中的代码便开始执行。9.1.4窗体的显示(1)Show方法：显示一个窗体（当窗体没有Load，自动Load）

[窗体名称].Show[模式] 0－Modal：关闭才能对其他窗体进行操作。

1－Modeless，可以对其他窗体进行操作。

(2)Hide方法：隐藏窗体

[窗体名称.]Hide9.1.5窗体的卸载

窗体在卸载时可以是隐藏的，也可以是可见的。若没隐藏，则它将保持可见直到卸载完毕，内存和资源完全收回。

UnloadMe9.1.6结束应用程序

当应用程序只有一个窗体时，可以使用下面的语句来结束应用程序：

UnloadMe

如果应用程序有一个以上窗体，可以使用End语句来强行结束应用程序而不顾现存窗体或对象的状态。第十章文件10.1文件概述－文件种类1.顺序文件

文件中的记录按顺序存放从第一个记录的存储位置顺序访问文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。

2.随机文件可按任意次序读写文件(按记录号)每个记录的长度必须相同3.二进制文件文件是字节的集合允许程序按所需的任何方式组织和访问数据

1.打开文件

Open文件名[For模式]As[#]文件号[Len=记录长度] (1)模式

OUTPUT：写入操作；

INPUT：读出操作；

APPEND：追加内容到文件末尾。

(2)文件号

1～511，可以用FreeFile函数获得下一个可利用的文件号。

(3)记录长度

小于或等于32767的整数，它指定数据缓冲区的大小。

例如，打开C:\VB\SCORE.txt，供写入数据，指定文件号为#1。

OPEN"C:\VB\SCORE.txt"FOROUTPUTAS#1

output：每次写前入将以前的内容全部擦除。

append：将内容追加到文件的末尾。以output和append模式打开文件，如果文件不存在，将新建一个文件以input模式打开文件，如果文件不存在，则报错10.2顺序文件打开文件读出或写入关闭文件

2.写入命令

Print

#文件号，[输出列表][例10-1]

Write#文件号，[输出列表]

3.关闭文件

Close[[#]文件号][,[#]文件号]...

例如:Close#1例10-1：编写程序，用Print＃语句向文件file1.dat中写入数据，录入界面如图所示：程序代码：PrivateSubCommand1_Click()Open“c:\file1.dat”ForOutputAs#1’第一步：以output模式打开文件，文件号为#1studname=Text1.Textstudsex=Text2.Textstudage=Text3.TextPrint#1,studname,studsex,studage‘第二步：使用print方法向#1号文件写入内容Close#1’第三步：关闭#1号文件EndSub打开文件写入文件关闭文件完善实验，利用通用对话框，实现保存文件功能。PrivateSubFileSave_Click()Dimch1AsStringCommonDialog1.CancelError=FalseCommonDialog1.DialogTitle="保存"CommonDialog1.Filter="文本文件|*.txt|word文档|*.doc"CommonDialog1.ShowSavech1=CommonDialog1.FileNameIfch1<>""Then

Opench1ForOutputAs#1‘打开文件

Print#1,Text1.Text’写文件

Close#1‘关闭文件

EndIfEndSub

4.读顺序文件

INPUT

#文件号,变量列表

把读出的每个数据项分别存放到所对应的变量。

LINEINPUT#文件号,字符串变量

读一行到变量中，主要用来读取文本文件。

INPUT$(读取字符数,#文件号)

读取指定数目的字符。如：mystr$=input$(100,#1)从＃1号文件中读取100个字符，并赋值给变量mystr$。

5.函数

LOF(文件号)：返回文件的长度(总字节数)。

EOF(文件号)：返回读写位置。 指针在文件尾时，EOF函数为True，否则为False。INPUT$(读取字符数,#文件号)例10-2方法一：将内容一次性读入文本框，程序如下：Text1.Text=""Open“c:\1.txt”ForInputAs#1‘打开文件，若打开一个不存在的文件，则出错

Text1.Text=Input(LOF(1),1)‘返回文件内容，其中LOF(1)得到#1文件长度，第二个参数1是文件号Close#1 ’关闭文件注意：该方法只能用于读取西文字符的文本。打开文件读取文件关闭文件LINEINPUT#文件号,字符串变量例10-2方法二：将文本内容一行一行读入文本框，程序如下：

Text1.Text=""Open“c:\1.txt”ForInputAs#1‘打开文件

DoWhileNotEOF(1)’一行一行读取文件内容

LineInput#1,InputdataText1.Text=Text1.Text+Inputdata+vbCrLf'一行一行读取，需添加换行符

LoopClose#1 ‘关闭文件例10-2方法三：将内容一个字符一个字符读入文本框，程序如下：Text1.Text=""Open"c:\1.txt"ForInputAs#1DoWhileNotEOF(1)

Inputdata=Input(1,#1)Text1.Text=Text1.Text+Inputdata‘逐个字符读入，无需添加换行符

LoopClose#1

方法二、三可以输入中英文两种文字例10-2在将实验文件夹中的file2.dat文件用三种不同的方法读入到文本框中。运行界面如图所示：方法一：将内容一次性读入文本框，程序如下：PrivateSubCommand1_Click()Text1.Text=""Open"f:\sy\file2.dat"ForInputAs#1Text1.Text=Input(LOF(1),1)Close#1EndSub方法二：将内容一行一行读入文本框，程序如下：PrivateSubCommand1_Click()Text1.Text=""Open"f:\sy\file2.dat"ForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1EndSub方法三：把内容一个一个字符读入。程序如下：PrivateSubCommand1_Click()Text1.Text=""Open"f:\sy\file2.dat"ForInputAs#1DoWhileNotEOF(1)

Inputdata=Input(1,#1)Text1.Text=Text1.Text+InputdataLoopClose#1EndSub完善实验，利用通用对话框，实现打开文件功能。CommonDialog1.CancelError=FalseCommonDialog1.Filter="文本文件|*.txt|word文档|*.doc"CommonDialog1.Action=1ch=CommonDialog1.FileNameOpenchForInputAs#1DoWhileNotEOF(1)LineInput#1,InputdataText1.Text=Text1.Text+Inputdata+vbCrLf'一行一行读取，需添加换行符

LoopClose#110.3随机文件

1.打开

Open

文件名ForRandomAs#文件号[Len=记录长度] 2.写操作

Put[#]文件号，[记录号]，变量名

将一个记录变量的内容写到指定的记录位置处。 忽略记录号，则表示在当前记录后的位置插入一条记录。记录号是大于1的整数

3.读操作

Get[#]文件号，[记录号]，变量名

忽略记录号，则读出当前记录后的那一条记录。

1.打开

Open

文件名ForBinaryAs#文件号

2.写操作

Put[#]文件号，[位置]，变量名 写入长度等于变量长度的数据。

3.读操作

GET[#]文件号，[位置]，变量名 从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。10.4二进制文件10.5文件系统控件一．文件系统控件种类

1．驱动器列表框（DriveListBox）：用来显示当前机器上的盘符。

2．目录列表框（DirListBox）：用来显示当前盘上的所有文件夹。

3．文件列表框（FileListBox）：用来显示当前文件夹下的所有文件名。驱动器列表框目录列表框文件列表框二．文件系统控件的重要属性属性适用的控件作用示例Drive驱动器列表框包含当前选定的驱动器名Drive1.Drive="C"Path目录和文件列表框包含当前路径Dir1.Path="C:\WINDOWS"FileName

文件列表框包含选定的文件名MsgBoxFile1.FileNamePattern文件列表框决定显示的文件类型File1.Pattern="*.BMP"事件适用的控件事件发生的时机Change目录和驱动器列表框驱动器列表框的Change事件是在选择一个新的驱动器或通过代码改变Drive属性的设置时发生目录列表框的Change事件是在双击一个新的目录或通过代码改变Path属性的设置时发生PathChange

文件列表框当文件列表框的Path属性改变时发生PattenChange

文件列表框当文件列表框的Pattern属性改变时发生Click目录和文件列表框用鼠标单击时发生DblClick

文件列表框用鼠标双击时发生三．文件系统控件的重要事件

1.驱动器列表框

Drive属性：

[对象.]Drive[=drive]

Change事件： 重新设置Drive属性引发Change事件

2.目录列表框

Path属性：

[对象.]Path[=pathname]

Change事件： 重新设置Path属性引发Change事件3.文件列表框

Path属性： 显示该路径下的文件。 重新设置Path属性引发PathChange事件。

Pattern属性： 显示的文件类型。

[对象.]Pattern[=value]

例：filFile.Pattern="*.frm"，显示*.frm文件。 多个文件类型用分号；分界。例如："*.frm;*.frx"

重新设置Pattern属性引发PatternChange事件。

FileName属性：

[对象.]FileName[=pathname]

引用时只返回文件名。

Click、DblClick事件：

例如，单击输出文件名。

SubfilFile_Click()

MsgBox

filFile.FileName EndSub

例如，双击执行可执行程序：

SubfilFile_DblClick()

RetVal=Shell(filFile.FileName,1)

'

执行程序

EndSub例10-5设计如图所示的文件管系统。单击文件名时显示出文件路径及名称。在设计界面拖放驱动器、目录和文件列表框。1）窗体加载事件：PrivateSubForm_Load()Combo1.AddItem"所有文件（*.*）"Combo1.AddItem"可执行程序（*.exe）"Combo1.AddItem"文本文件（*.txt）"EndSub2）编写使驱动器列表框、目录框和文件列表框同步操作的事件过程：PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSub