vb电子教本07文档.docVIP

第7章 文 件 通过前几章的学习，使我们了解，利用VB可以编写一些用于科学计算、图形处理等方面的程序。 不仅如此，VB还广泛地应用于编制如人事、财务、生产、教学等各方面的管理程序，在这类应用中，通常需要处理大量不同类型的数据信息，而这些数据信息常常需要独立存储在某种介质上（如磁盘等），以便需要时通过程序来加工处理，这种独立存储的数据集合就称为文件。因此，掌握文件的概念及其使用方法是VB程序设计的重要内容之一。 7.1 与文件操作有关的控件 在Windows应用程序中打开文件或保存文件时，通常需要打开一个对话框，用于选择文件所在的驱动器（盘）、文件夹（目录）、文件名。在VB中，使用盘驱动器列表框（DriveListBox）、目录路径列表框（DirListBox）以及文件列表框（FileListBox）这3种控件的组合，可以创建类似Windows资源管理器的文件操作对话框，用于选择文件。 7.1.1 盘驱动器列表框控件 盘驱动器列表框控件用于显示驱动器列表，工具箱中该控件图标为 。 该控件缺省的名称为：Drive1、Drive2、…… = 1 \* GB1 ⒈ 盘驱动器列表框控件常用属性 ⑴ Drive属性（字符串类型） 用来设置当前驱动器或返回所选择的驱动器名。Drive属性只能在程序运行时赋值，而不能通过属性窗口设置。为驱动器列表框的Drive属性赋值的语句格式为： 盘驱动器列表框名.Drive[=驱动器名] 格式中的“驱动器名”为指定的驱动器，也就是说使该驱动器成为当前驱动器；如果省略，则不改变当前驱动器。如果所指定的驱动器在系统中不存在，则产生错误。 程序运行时若选择驱动器，则Drive属性值改写为所选择的驱动器名。 如运行时单击驱动器列表框控件drive1中D:盘图标，则drive1.drive的值为d:。 值得注意的是：盘驱动器列表框中显示的驱动器名都是由系统自动生成的，用户只能通过列表框选择使用，不可以对Drive控件使用AddItem、RemoveItem等方法添加或删除列表项。 ⑵ List属性（字符串数组） List数组的每一个元素中的字符串，为1个驱动器名，数组下标从0开始。 ⑶ ListCount属性（正整数） ListCount属性值表示系统中盘驱动器的个数。 若系统有驱动器a:、c:、d:、e:、f:（光驱），则驱动器列表框控件drive1的ListCount属性值为5，执行下列语句后在窗体上输出的结果为“a: c: d: e: f:”。 For i%=0 To Drive1.ListCount - 1 Print Drive1.List(i%); Next i% = 2 \* GB1 ⒉ 盘驱动器列表框控件常用事件 运行时，当单击驱动器列表框中某一驱动器图标时，该驱动器的名就赋值给控件的Drive属性，同时引发Change事件。 例7-1 在窗体上设计一个盘驱动器列表框Drive1、一个标签Label1。当程序启动时，设置当前驱动器为C盘；选择盘驱动器列表框中的盘符，在标签上显示相应的当前驱动器信息。 在窗体的Load事件中设置Drive属性的初值、编制事件过程Drive1_Change如下： Private Sub Form_Load() Drive1.Drive = c: Label1.Caption = 当前驱动器为： + Drive1.Drive End Sub Private Sub Drive1_Change() Label1.Caption = 当前驱动器为： + Drive1.Drive End Sub 界面设计和程序运行的情况分别如图7-1a和图7-1b所示。 图7-1a 例7-1之界面设计 图7-1b 例7-1之运行情况 7.1.2 目录路径列表框控件 目录路径列表框控件在工具箱中的图标为 。 目录路径列表框控件用于显示当前驱动器中文件夹（目录）列表。如图7-2所示。 其中，突出显示的为当前目录。 目录路径列表框控件缺省的控件名称为：Dir1、Dir2、…… = 1 \* GB1 ⒈ 目录路径列表框控件常用属性 ⑴ Path属性（字符串类型） Path属性值为当前目录或所选择的目录名。 如果选中盘x的根目录，则Path属性为x:\；如果选中盘x的某一个子目录y（文件夹），则Path属性为x:\y。 请注意，Path属性值的最后一个字符是否为\，取决于是否选中根目录。 同Drive属性一样，Path属性只能用程序代码设置，而不能在设计时通过属性窗口设置。 为目录列表框的Path属性赋值的语句格式为：目