第8章 节 文件 计算机等级考试之VB程序设计课件.pptVIP

例8-11　以二进制方式打开例8-8建立的文件“f:\VB例程\student.rec”，在窗体浏览。 Option Explicit Private Type student no As Integer 2字节 name As String * 8 8字节 sex As String * 2 2字节 math As Integer 2字节 physics As Integer 2字节 program As Intege End Type Private Sub Command1_Click() Dim s As student Open App.Path + “\student.rec” For _ BinaryAs #1 以二进制方式打开文件 While Not EOF(1) Get #1, , s If s.no 0 Then 检查记录完整性 Print s.no; s.name; s.sex; s.math; s.physics; s.physics; s.program End If Wend Close #1 End Sub 例8-12　复制文件。 由于按二进制格式打开的文件在读写时照搬每个字节的内容，所以非常适合拷贝文件。本例要求在两个文本框中分别输入源文件和目标文件的路径和名称，单击复制按钮完成文件的复制工作。 复制程序每次从源文件中读出10个字符，送入字符串变量Str中，接着把Str的内容写到目的文件中去。 当程序出错时，立即跳到标号OpenError处继续执行。这一处理主要是防止使用人员忘记在文本框中输入文件名。 界面设计请参见课本316页。 Private Sub cmdCopy_Click() Dim Str As String * 10 Dim num1 As Integer, num2 As Integer, msg As Integer On Error GoTo OpenError num1 = FreeFile Open txtSource.Text For Binary As #num1 num2 = FreeFile Open txtDestination.Text For Binary As #num2 Do While Not EOF(num1) Get #num1, , Str Put #num2, , Str Loop Close msg = MsgBox(“删除原文件吗？”, vbYesNo +_ vbQuestion + vbDefaultButton2, 复制完成) If msg = vbYes Then Kill txtSource.Text Exit Sub OpenError: MsgBox 请键入文件名,_ vbExclamation, 错误 Close End Sub 8.5.1 驱动器列表框 8.5.2 目录列表框 8.5.3 文件列表框 8.5 文件操作用的三个控件 驱动器列表框实际上是一个下拉的列表框（如下图），它用于提供系统当前拥有的所有磁盘驱动器给用户作出选择。因此，用户可以通过该控件来选择或输入所要操作的磁盘驱动器。 驱动器列表框使用工具箱中的图标 来绘制。驱动器列表框默认的名称为Drive1，2，… , 建议命名前缀为Drv。 8.5.1 驱动器列表框 Private Sub Command1_Click() Call make_ StudentFile2 Print Print 文件; StudentFile1.dat 已建立 End Sub 窗体模块代码： 在已有顺序文件之后添加记录，需使用Append模式打开文件。 例8-4 为例8-2建立的文件添加记录。 Private Sub Command2_Click() Dim answer As Integer answer=MsgBox(在file8_1.dat添加记录吗？,vbYesNo, 提示信息) If answer = vbYes Then Call appe_StudentFile1 Print Print