第07讲 文件(4学时).ppt

第7章 文件 7.1 文件管理控件 7.2 文件处理 7.3 示例 示例:学生成绩录入示例 请演示文件示例文件夹中的程序 录入：把成绩写入文件 Private Sub Cmdinput_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Open App.Path + \考试成绩.txt For Append As #10 number = xh.Text score1 = Val(bs.Text) score2 = Val(js.Text) Text1 = Text1 number Str(score1) Str(score2) return1 Write #10, number, score1, score2, score1 + score2 Close #10 xh.Text = CStr(Val(number) + 1) End Sub 从文件中读出成绩: Private Sub CmdDwj_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer, score3 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Text2 = Open App.Path + \考试成绩.txt For Input As #10 Do Input #10, number, score1, score2, score3 Text2 = Text2 number Str(score1) Str(score2) Str(score3) return1 Loop Until EOF(10) Close #10 End Sub 作业 本章后练习题 第4题 (第156页） 实验 实验10： 实验10-2 实验10-4 掌握 驱动器列表框 Drive属性 Change事件 目录列表框 Path属性 Change事件 文件列表框 filename,listIndex属性 Click事件 三个文件控件的同步 文件的基本概念，顺序文件的处理 重点 三个文件控件的同步 顺序文件的处理 预习 第9章 图形处理与多媒体应用 * Visual Basic 程序设计 * 作业 实验 掌握 重点 预习 淮海工学院 Visual Basic 程序设计 1. 驱动器列表框（DriveListBox） 在运行时，可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。 (1) 常用属性 Name属性：缺省时,值为:“Drive1” Drive属性：用来设置和返回驱动器列表框中的当前驱动器。 此属性是运行时属性，不能在属性窗口中设置。设置语句格式: 　　　＜驱动器列表框名＞. Drive =驱动器名 例如：Drive1.Drive=“C:\” (2) 常用事件 Change事件：是驱动器列表框中最常用的事件常用语句 (3) 常用语句：ChDrive语句 功能：改变当前工作驱动器。 格式： ChDrive　Drive 如： ChDrive “D” ╳ 7.1 文件管理控件 2、目录列表框（DirListBox） 显示用户系统的当前驱动器的目录结构和路径。这个控件可以显示分层的目录列表。 (1) 常用属性 Name属性：缺省时，值为“Dir1” Path属性：用来设置和返回目录列表框中的当前目录。 此属性是运行时属性，不能在属性窗口中设置。设置语句格式:　 　　　＜目录列表框名＞.Path=路径 例如：Dir1.path=“c:\Program File\aa (2) 常用事件：Change事件 (3) 常用命令: ChDir语句 功能：设置当前工作目录 格式：ChDir 路径　　　　　如：ChDir “C:\Windows” ╳ 7.1 文件管理控件 3. 文件列表框（FileListBox） 在运行时列出由文件列表框控件的Path属性指定目录中的文件。