第9章 文件理.ppt

9.1.3 公共对话框的属性页 属性 1. FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2. FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 例: 编程将一文本文件的内容读到文本框 假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData + vbCrLf Loop Close #1 方法2：一次性读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData Loop Close #1 例: Print与Write语句输出数据结果比较。 Private Sub Form_Click() Dim Str As String, Anum As Integer Open D:\Myfile.dat For Output As 1 Str = ABCDEFG Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub 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：对象表达式，其值是目录列表框的对象名。 字符串表达式：用来表示路径名的字符串表达式。 例如，Dir1.Path= C:\Mydir。 缺省值是当前路径。 List、ListCount 和 ListIndex等属性，这些属性与列表框（ListBox）控件基本相同。目录列表框中的当前目录的ListIndex 值为-1。紧邻其上的目录具有 ListIndex 值为-2，再上一个的ListIndex值为-3，如图 2．重要事件——Change事件 与驱动器列表框一样，在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触发其Change事件发生。 9.3.3 文件列表框（FilelistBox） 文件列表框（FileListBox）控件用来显示 Path 属性指定的目录中的文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。 1．常用属性 （1）Path属性 用于返回和设置文件列表框当前目录，设计时不可用。 说明：当Path值的改变时，会引发一个PathChange事件。 （2）Filename属性 用于返回或设置被选定文件的文件名，