VB教学课件第2章【医药版】.pptVIP

第二章 文件 (1) 顺序文件 记录可长可短；换行符、英文逗号、空格都可以作为记录间的分割符。按顺序依次把记录写入文件；按顺序依次把记录读出来。一般用来存储一些不经常修改的数据。 第二节 顺序文件 顺序文件练习 例2-2 下面程序的运行结果是什么？ Private Sub Command1_Click() Open C:\temp\test.txt For Output As #1 Print #1, Visual Basic 6.0, 666.88, Date, 200100 Write #1, Visual Basic 6.0, 666.88, Date, 200100 Print #1, Visual Basic 6.0; 666.88; Date; 200100 Write #1, Visual Basic 6.0; 666.88; Date; 200100 Close #1 End Sub 第二节 顺序文件 顺序文件练习 例2-3 通过下面程序读取上题生成的文件，运行结果是什么？ Private Sub Command1_Click() Dim str1 As String: Dim str2 As String Dim num1 As Single: Dim dnum1 As Date Dim blnum1 As Boolean Open C:\temp\test.txt For Input As #1 Line Input #1, str1 Print str1 Input #1, str2, num1, dnum1, blnum1 Print str2：Print num1：Print dnum1：Print blnum1 Close #1 End Sub 2.1.1 文件系统控件 4）Click、DblClick事件： 单击时一般表示选中某个文件，输出该文件名的方法： Sub File1_Click( ) Print selFile End Sub 其中：selFile是前面得到的包含完整路径的文件名 双击某个文件一般表示执行该文件，执行某个文件的方法：P32 ① 对于可执行程序文件（*.exe）： Sub File1_DblClick( ) i = Shell(selFile, 1) 执行可执行程序 End Sub ② 对于普通文件(*.txt、*.jpg等等)： Sub File1_DblClick( ) i = Shell(可以打开该类型的程序+ +selFile, 1) 打开普通文件 End Sub 代码总结 文件列表框(FileListBox) 用于列出某目录下指定类型的文件,属于特殊的列表框; 重要属性: Path显示该路径（目录）下的文件 Pattern指定显示文件类型 例如：File1.Pattern = *.frm，显示*.frm文件。 同时显示多个文件类型用分号；分界。例如： *.frm;*.vbp FileName文件名（不含路径） 重要事件： Click\DblClick 文件系统控件（4-3） 若想得到包含完整路径的文件名，需要利用文件列表框path属性。 文件系统控件（4-3） 如何得到包含完整路径的文件名？（假如文件列表框叫做File1） 分两种情况： （1）选中了某个文件夹下的文件 File1.Path =“c:\VB” （2）选中了某个驱动器下的文件 File1.Path =“c:\” fn=File1.Path “\” File1.FileName 对么？ 若想在这两种情况下，均可获得包含完整路径的文件名，语句如下： Dim selFile As String If Right(File1.Path, 1) = “\” Then ‘选中的是某个驱动器下的文件 selFile = File1.Path File1.FileName Else selFile = File1.Path