VB电子教材07.docx

编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第页共NUMPAGES37页第PAGE\*MERGEFORMAT232页共NUMPAGES\*MERGEFORMAT37页第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:”。Fori%=0ToDrive1.ListCount-1PrintDrive1.List(i%);Nexti%=2\*GB1⒉盘驱动器列表框控件常用事件运行时，当单击驱动器列表框中某一驱动器图标时，该驱动器的名就赋值给控件的Drive属性，同时引发Change事件。例7-1在窗体上设计一个盘驱动器列表框Drive1、一个标签Label1。当程序启动时，设置当前驱动器为C盘；选择盘驱动器列表框中的盘符，在标签上显示相应的当前驱动器信息。在窗体的Load事件中设置Drive属性的初值、编制事件过程Drive1_Change如下：PrivateSubForm_Load()Drive1.Drive="c:"Label1.Caption="当前驱动器为："+Drive1.DriveEndSubPrivateSubDrive1_Change()Label1.Caption="当前驱动器为："+Drive1.DriveEndSub界面设计和程序运行的情况分别如图7-1a和图7-1b所示。图7-1a例7-1之界面设计图7-1b例7-1之运行情况7.1.2目录路径列表框控件目录路径列表框控件在工具箱中的图标为。目录路径列表框控件用于显示当前驱动器中文件夹（目录）列表。如图7-2所示。其中，突出显示的为当前目录。目录路径列表框控件缺省的控件名称为：Dir1、Dir2、……=1\*GB1⒈目录路径列表框控件常用属性⑴Path属性（字符串类型）Path属性值为当前目录或所选择的目录