第9章文件管理.ppt

.wy = Val(Text1(3).Text) .sx = Val(Text1(4).Text) End With Open xsda2.dat For Random As #1 Len = Len(da) 打开随机数据文件 lastrec = LOF(1) / Len(da) Put #1, lastrec + 1, da Close #1 Call Form_Load Text1(0).SetFocus End Sub 编写“删除”命令按钮Command3的Click事件代码： Private Sub Command3_Click() Dim lastrec As Integer recnum = List1.ListIndex + 1 Open rec.tem For Random As #1 Len = Len(da) 打开临时随机文件 Open xsda2.dat For Random As #2 Len = Len(da) 打开随机数据文件 lastrec = LOF(2) / Len(da) For n = 1 To lastrec If n recnum Then Get #2, n, da Put #1, , da Else Get #2, n, da With da Text1(0).Text = .xh Text1(1).Text = .xm Text1(2).Text = .yw Text1(3).Text = .wy Text1(4).Text = .sx End With End If Next Close #1 Close #2 Kill xsda2.dat Name rec.tem As xsda2.dat Call Form_Load Text1(0).SetFocus End Sub 编写列表框List1的Click事件代码： Private Sub List1_Click() If List1.ListIndex –1 Then Command3.Enabled = True Else Command3.Enabled = False End If End Sub 9.2.3 访问二进制文件 1. 创建和打开二进制文件 打开和创建一个二进制文件都是用同一个Open语句来实现，其格式如下： Open〈文件名〉For Binary As〈文件号〉 2. 读写二进制文件 Get #〈文件号〉,〈字节数〉,〈变量名〉 忽略记录号，则读出当前记录后的那一条记录 Put #〈文件号〉,〈字节数〉,〈变量名〉 将一个记录变量的内容写到指定的记录位置处。忽略记录号，则表示在当前记录后的位置插入一条记录。 3. 关闭二进制文件 Close #〈文件号〉 9.3 文件系统控件 VB提供了3种可直接浏览系统目录结构和文件的控件： 驱动器列表框、目录列表框、文件列表框。 驱动器列表框 文件列表框 目录列表框 9.3.1 驱动器列表框（DriveListBox） 驱动器列表框（DriveListBox） 控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出计算机拥有的所有磁盘驱动器，供用户选择 1．重要属性 Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计时不可用。返回或设置运行时选择的驱动器, 默认值为当前驱动器. 使用格式： object.Drive [= 字符串表达式] 例如： Drive1.drive=“D:” 2．重要事件——Change事件 在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生。 9.3.2 目录列表框（DirListBox) 目录列表框（DirListBox） 控件用来当前驱动器目录结构及当前目录下的所有子文件夹（子目录）。供用户选择其中一个目录为当前目录。 1．常用属性 Path属性是目录列表框控件的最常用的属性，用于返回或设置当前路径。该属性在设计时是不可用的。 使用格式：Object.Path [= 字符串表达式] 其中： Object：对象表达式，其值是目录列表框的对象名。 字符串表达式：用来表示路径名的字符串表达式。