新Visual Basic程序设计 教学课件 刘瑞新 VB10.pptVIP

* * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 本章主要内容： ● 用户定义类型 ● 文件系统控件 ● 传统的文件操作 第10章 用户定义类型和文件操作 10.1 用户定义类型 例如，假设某校的学生成绩如表10-1示。 表10-1 学生成绩表 学 号 姓 名 性别 出生日期 语 文 数 学 总 分 2005101 张雨利 男 1986年10月23日 70 80 150 2005106 李方 男 1985年6月6日 80 85 165 2005103 孙英 女 1986年2月3日 90 92 182 10.1.1 创建用户定义类型 用户可以用Type语句来定义自己的数据类型，其格式为： [Public | Private] Type 〈用户类型名〉 〈字段名1〉 As 〈类型名1〉 [〈字段名2〉 As 〈类型名2〉] … [〈字段名n〉 As 〈类型名n〉] End Type 例如，要建立一个学生成绩处理程序，由于每一位学生都需要学号、姓名、学分和平均成绩等数据项（字段），则可以使用Type语句来定义一个名称为studentrec的记录。 Type studentrec stunum As String * 7 学号元素为7个字符的定长字符串 names As String * 8 姓名元素为8个字符的定长字符串 credit As Integer 学分元素为整型 avg As Single 平均成绩为单精度型 End Type 10.1.2 建立和使用用户定义类型变量 1. 建立用户定义类型变量 用户数据类型定义后，可以用Dim、Redim、Static建立一个具有这种数据类型的变量。例如定义一个具有studentrec类型的变量stu： Dim stu AS studentrec 用户定义数据类型也可以作为数组元素的数据类型。例如，定义一个拥有20个记录元素的数组student： Dim student(1 To 20) As studentrec 2. 使用用户定义类型变量 如果要存取用户数据类型变量中的某个字段的数据，其格式如下： 〈用户数据类型变量名〉.〈字段名〉 例如，要存取用户数据类型变量stu中names这个字段的数据，要写为s。 【例10-1】 10.1.3 用户定义类型数组 如果一个数组中元素的数据类型是用户定义类型，则称其为用户定义类型数组或记录数组（Array of records）。存取记录数组元素中某个字段数据的语法为： 〈记录数组元素〉.〈字段名〉 例如，存取第2、第6位学生的平均分数，要写为： student(2).avg student(6).avg 【例10-2】 10.2 文件系统控件FSO（File System Object） 1. 驱动器列表框 DriveListBox的外观与组合框相似，提供一个下拉式驱动器清单。具有显示当前系统中所有有效磁盘驱动器的功能，具有在设计模式下不可用的Drive属性，用来判断用户在列表框中选择的驱动器名称。运用ChDrive语句可以将指定的驱动器设为当前驱动器。如： ChDrive Drive1.Drive ‘ 将用户在列表框中选择的驱动器设为 当前驱动器 ChDrive D 将D:设为当前驱动器 2. 目录列表框 DirListBox的外观与列表框相似，具有显示当前所选驱动器分层目录清单（目录树）的功能。它具有在设计模式下不可用的Path属性，用来读取或指定当前工作目录。如： Dir1.Path = Drive1.Drive 将用户在驱动器列表框中选取的驱动器设为当前工作目录 Dir1.Path = c:\windows 将当前目录设为c:\windows 运用ChDir语句可以改变当前的目录或文件夹。如： ChDir Dir1.Path 将用户