课件：VB文.ppt

* * * * * 可编辑 可编辑 第 8 章文 件 8.1 文件的界面设计 一、文件的三个主要控件 DriveListBox 驱动器列表框 DirListBox 目录列表框 FileListBox 文件列表框 回顾windows的资源管理器 二、控件的属性、事件、语句 1、 DriveListBox Name,drive (运行中的属性，选中的驱动器) Change事件 语句：chDrive (仅在OS一级) 2、 DirListBox Name,path (选中的文件夹，双击改变) Change事件 语句：chDri (仅在OS一级) 3、 FileListBox Name,path （本控件显示文件的路径） pattem(选中文件的类型) PathChange事件 语句：chDir (仅在OS一级) 三、三个控件组合协调工作 1、当驱动器列表框控件change事件发生： Dir1.path=Drive1.drive 2、当目录列表框控件的change事件发生： file1.path=dir1.path Private Sub Drive1_Change() Dir1.Path = Drive1.Drive File1.Pattern = *.* End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path TxtPath.Text = Dir1.Path File1.Pattern = *.* TxtFile.Text = File1.Pattern Drive1.Drive = Dir1.Path End Sub 8.2 程序设计中如何使用文件 一、文件的作用： 存放在外存长期保留，按名存取 文件的打开与关闭 二、文件处理步骤： 打开 OPEN； 读/写 (input/ print/write) 关闭 (close) 二、VB支持文件访问的类型： 顺序：文本文件（ASCII码） 随机：等长记录，二进制的信息 随时访问文件的任何地方 二进制：不等长记录，二进制的信息。 只能顺序访问。 三、有关文件的语句、函数 1、open 文件名 for 模式 _ ACCESS 存取类型 as #文件号 文件名：要打开的文件名 For 模式：output 、input、 append、 randem、binary Access 存取类型： read; write; read write As #文件号：1到511（必须惟一） Open ”A:\Exam.TXT FOR Output AS #5 Open ”C:\Exam.TXT FOR Append AS #5 Open ”D:\Exam.TXT FOR Input AS #5 如果文件“Exam”不存在 将产生“File Not Found”错误。 Open ”E:\Exam FOR Random AS #6 Open A:\Binary FOR Binary AS #6 Open 语句的注意事项 2、关闭文件语句 close 与 reset 3、锁定与解锁语句 为什么要此语句？ 如何使用？ 注意不同文件类型对应锁定的不同范围 THANK YOU SUCCESS * * 可编辑 文件操作的函数 1.eof（文件号） 测试该文件号对应的文件指针是否到文件尾部。返回：True或False 2.freefile() 3.filelen(文件号) 4. LOF(文件号) 文件已经打开 8.3 顺序文件的操作 1、open “a:\ccc.txt” for output_ As #10 或 open “a:\ccc.txt” for append_ As #12 2、写语句有两条： print #10 x,y,z 或 write #10 x,y,z Print与write 语句的异同点 1、它们都适用于顺序文件。 2、write语句输出的数据分隔的比较清楚。如：数值数据之间有逗号；输出的字符串两边有双引号。 3、print 语句输出的数据之间是空格；字符串是紧凑格式。 4、建议：write语句与以后VB程序的input语句（读语句）连用。 Open “Test Dat” FOR Output AS #10 Print #10， 1 ， 2 ， 3 Print #10， ”We” ； ”study” ； ”VB6.0” Close 10 Open “Test.Dat”