2015计算机二级教程.pptVIP

第12章 处理文件 Visual Basic 程序设计教程 · 为什么要引入了数据文件 · 文件标识符 · 文件分类：程序文件和数据文件 · 数据文件按存储方法的不同，可分为以下三种类型： 1．顺序文件 2．随机文件 3．二进制文件 · 数据文件的操作形式 【例12-1】设计一个如图12.1所示的界面，该窗体上有1个驱动器列表框、1个文件夹列表框、1个文件列表框和一个文本框。当启动窗体后，用户在驱动器列表框选择驱动器后，文件夹列表框显示选中驱动器下的文件夹，用 户双击相应的文件夹，在文件列 表框中显示该文件夹下的所有文 本文件（.txt），用户双击相应的文件就可以在文本框中显示该文件内容。 ·VB提供了三种文件系统控件，它们是：驱动 器列表框（DriveListBox）、文件夹列表框（DirListBox）和文件列表框(FileListBox)。 12.3.1 驱动器列表框 ·驱动器列表框是下拉式列表框，用来显示当 前系统中所有有效的驱动器(包括远程连接的驱动器)。通过这个下拉列表框用户可以选择驱动器。 ·1．属性 2．常用事件:Change事件。 12.3.2 文件夹列表框 ·文件夹列表框以树形展开方式显示某个驱动器或文件夹内的各个子文件夹名，并用打开的文件夹图标来表示选定的文件夹，称当前目录。 ·属性 Path:用来设置当前文件夹名或返回所选择的文件夹名. List:该属性的类型为字符串数组，它的每一个列表项的内容是选定磁盘或文件夹下的各子文件夹名 ListCount:表示当前文件夹下的子文件夹个数。 ListIndex:它取值的有效范围为-n～ListCount-1。 其中，-1是当前选定文件 夹在List属性列表中的序 号，从0～ListCount-1则 为它的子文件夹在List属 性(数组)中的序号(下标)，而当前文件夹的父文件 夹是绝对值大于1的负数，如图12.3所示。 ·常用事件 Chang事件。当鼠标双击新文件夹或改变Path属性时，触发Change事件，Change事件发生后，改变了文件夹列表框的Path属性，即改变了当前文件夹。 Click事件。当鼠标单击文件夹时，触发Click事件，Click不会改变文件夹列表框中的当前文件夹，但它会改变文件夹列表框的ListIndex属性，因此要在Click事件中改变当前文件夹，可用以下代码实现。 Private Sub Dir1_click() Dir1.Path = Dir1.List(Dir1.ListIndex) End Sub ·Keypress事件。按Windows系统的惯例，在程序中可用两种方法改变选定的路径，即用鼠标双击列表框内的某个文件夹名，或先用光标键把列表框内的光标条移到指定文件夹上，然后按回车。后一种方法的实现，必须由控件的KeyPress事件来完成。例如： Private Sub Dir1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex) End If End Sub 12.3.3 文件列表框 ·文件列表框用于显示当前文件夹下的文件。 ·属性 ·常用事件 Click事件 DblClick事件 Pathchange事件 Patternchange事件 Private Sub Combo1_Click() If Combo1.Text = 所有文件(*.*) Then File1.Pattern = *.* ElseIf Combo1.Text = 文本文件(*.TXT) Then File1.Pattern = *.TXT ElseIf Combo1.Text = 图形文件(*.bmp;*.jpg) Then File1.Pattern = *.bmp;*.jpg End If End Sub 其中Sub Combo1_Click()内的程序代码也可以写成： ·M=InStr(1,Combo1.Text,() ·N=InStr(1,Combo1.Text,)) ·File1.Pattern = Mid(Combo1.Text,M+1,N-M-1) ·VB提供了许多与文件操作有关的语句和函数，使用户可以在应用程序中很方便地对文件和文件夹进行删除、复制和获取文件有关属性等操作，这里简单介绍常用的几个语句。 1. ChDrive 语句 格式：ChDrive drive 功能：改变当前驱动器