VB第8章-文件及文件系统控件.pptxVIP

第8章 文件及文件系统控件;8.1什么是文件;8.1什么是文件;8.1什么是文件;8.2对顺序文件的读写;;8.2.1 顺序文件的打开和关闭;8.2.1 顺序文件的打开和关闭;;;;8.2.2 顺序文件的写操作;8.2.2 顺序文件的写操作;;Open “c:\d2.dat” For Output As #2 s0$=“This is a test about file” s1$ = “Visual ” s2$ = “Basic ” s3$ = “ ” s4$ = “Computer” Write #2, s0$ Write #2, s1$ Write #2, s2$ Write #2, s3$ Write #2, s4$ Close #2;;8.2.2 顺序文件的写操作;; 例如：有顺序文件d2.dat，内容如下： “Visual ” （第1个记录） “Basic ” （第2个记录） “ ” （第3个记录） “Computer ” （第4个记录）;8.2.3 顺序文件的读操作;8.2.3 顺序文件的读操作;8.2.3 顺序文件的读操作;8.2.3 顺序文件的读操作;;8.2.3 顺序文件的读操作;8.3 对随机文件的读写;8.3.1 随机文件的打开和关闭;8.3.1 随机文件的打开和关闭;8.3.2 对随机文件的写操作;8.3.2 对随机文件的写操作;Private Sub cmdPut_Click() Dim emp As employee Open App.Path \employee.dat For Random As #1 Len = len(emp) Title$ = 写记录到随机文件 Str1$ = 请输入职工编号 Str2$ = 请输入职工姓名 Str3$ = 请输入职工住址 For i = 1 To 3 emp.empNo = InputBox(Str1$, Title$) emp.name = InputBox$(Str2$, Title$) emp.address = InputBox$(Str3$, Title$) Put #1, i, emp Next i Close #1 End Sub;8.3.2 对随机文件的写操作;;8.3.3 对随机文件的读操作;;8.4 文件系统控件;8.4.1 驱动器列表框;8.4.1 驱动器列表框;8.4.1 驱动器列表框;8.4.2 目录列表框;8.4.2 目录列表框;8.4.2 目录列表框;8.4.3 文件列表框;8.4.3 文件列表框;;;8.4.3 文件列表框;8.4.3 文件列表框;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件设计用户界面;8.4.4 利用文件系统控件??计用户界面;8.4.4 利用文件系统控件设计用户界面;;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;8.4.5 文件系统控件的一些属性;