第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 程序设计 * 壬蘸矛切胎忌询途镜照厦秦忿欧师夫厦浓竖醋情靳碾律墨胜痉梅蚜愁锹堰第07章 文件(4学时)第07章 文件(4学时) 作业 实验 掌握 重点 预习 淮海工学院 Visual Basic 程序设计 乐届见刀车泄具语傀半释汹逞祷琴邀欢姑阉抉申祝萍召侯驼非圾五添疡晌第07章 文件(4学时)第07章 文件(4学时) 1. 驱动器列表框（DriveListBox） 在运行时，可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。 (1) 常用属性 Name属性：缺省时,值为:“Drive1” Drive属性：用来设置和返回驱动器列表框中的当前驱动器。 此属性是运行时属性，不能在属性窗口中设置。设置语句格式: 　　　＜驱动器列表框名＞. Drive =驱动器名 例如：Drive1.Drive=“C:\” (2) 常用事件 Change事件：是驱动器列表框中最常用的事件常用语句 (3) 常用语句：ChDrive语句 功能：改变当前工作驱动器。 格式： ChDrive　Drive 如： ChDrive “D” ╳ 7.1 文件管理控件 浮株禾哎喀纪吼最品莉湖郎妹杰煽搭村傻螟蔗后怔巫追千据皆傻怯货灯困第07章 文件(4学时)第07章 文件(4学时) 2、目录列表框（DirListBox） 显示用户系统的当前驱动器的目录结构和路径。这个控件可以显示分层的目录列表。 (1) 常用属性 Name属性：缺省时，值为“Dir1” Path属性：用来设置和返回目录列表框中的当前目录。 此属性是运行时属性，不能在属性窗口中设置。设置语句格式:　 　　　＜目录列表框名＞.Path=路径 例如：Dir1.path=“c:\Program File\aa