VB教程 全套课件 vb-9

《VB教程 全套课件 vb-9》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第九章文件（2学时）9.1文件系统控件9.2文件的读写9.3常用的文件操作语句和函数9.1驱动器、目录和文件列表框SubdrvDrive_Change()dirDirectory.Path=drvDrive.DriveEndSubSubdirDirectory_Change()filFile.Path=dirDirectory.PathEndSubSubForm_Load()Item=“所有文件(*.*)”cboType.AddItemItem+Space(20-Len(Item))+"*.*"Item="窗体文件(*.FRM)"

2、cboType.AddItemItem+Space(20-Len(Item))+"*.FRM"Item="位图文件(*.BMP)"cboType.AddItemItem+Space(20-Len(Item))+"*.BMP"cboType.ListIndex=2EndSubSubcboType_Click()filFile.Pattern=Mid(cboType.Text,21)EndSubSubfilFile_Click()┆EndSubSubfilFile_DblClick()┆EndSub例9.1示例程序1.驱动器列表框Dr

3、ive属性：[对象.]Drive[=drive]Change事件：重新设置Drive属性引发Change事件2.目录列表框Path属性：[对象.]Path[=pathname]Change事件：重新设置Path属性引发Change事件3.文件列表框Path属性：显示该路径下的文件。重新设置Path属性引发PathChange事件。Pattern属性：显示的文件类型。[对象.]Pattern[=value]重新设置Pattern属性引发PatternChange事件。例如：filFile.Pattern=“*.frm”，显示*.fr

4、m文件。FileName属性：[对象.]FileName[=pathname]引用时只返回文件名，相当于filFile.List(filFile.ListIndex)，需用Path属性得到其路径；设置时可带路径。Click、DblClick事件：例如，单击输出文件名。例如，双击执行可执行程序。SubfilFile_Click()SubfilFile_DblClick()MsgBoxfilFile.FileNameChDir(dirDirectory.Path)’改变当前目录EndSubRetVal=Shell(filFile.Fi

5、leName,1)’执行程序EndSub9.2文件的读写文件：存储在外部介质上数据的集合。按名存取1.记录由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：数据项2.文件及其种类文件是记录的集合顺序访问模式：顺序文件，记录可长可短随机访问模式：随机文件，记录的长度相同二进制访问模式：二进制文件（可认为记录长度为1）(1)顺序文件按顺序依次把记录写入文件；按顺序依次把记录读出来。文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。(2)随机文件随机文件可以直接访问文件中的任意一个记录。记录长度相同根据记

6、录号访问(3)二进制文件直接把二进制码存放在文件中。1.打开文件Open“文件名”[For模式]As[#]文件号[Len=记录长度](1)模式OUTPUT：写操作INPUT：读操作APPEND：追加到文件未尾(2)文件号1～511，可以用FreeFile函数获得下一个可利用的文件号。(3)记录长度小于或等于32767的整数，它指定数据缓冲区的大小。例如，打开C:VBSCORE，供写入数据，指定文件号为#1。OPEN"C:VBSCORE"FOROUTPUTAS#1一、顺序访问模式打开文件读出或写入关闭文件2.写入命令Prin

7、t#文件号，[输出列表]保存文本框假定文本框的名称为txtTest，文件名为TEST.DAT。方法1：把整个文本框的内容一次性地写入文件。Open"TEST.DAT"ForOutputAs#1Print#1,txtTest.TextClose#1方法2：把整个文本框的内容一个字符一个字符地写入文件。Open"TEST.DAT"ForOutputAs#1Fori=1Tolen(txtTest.Text)Print#1,Mid(txtTest.Text,i,1);NextiClose#1Write#文件号，[输出列表]紧凑格式。数据项

8、之间插入“,”，并加上双引号。例如，命令：Write#1,"One","Two",123内容："One","Two",1233.关闭文件Close[[#]文件号][,[#]文件号]...例如，Close#1,#2,#34.读顺序文件INPUT#文件