《(电子行业企业管理)VB电子讲义07精品》由会员分享，可在线阅读，更多相关《(电子行业企业管理)VB电子讲义07精品（35页珍藏版）》请在金锄头文库上搜索。
1、229第7章 文 件第7章 文 件通过前几章的学习，使我们了解，利用VB可以编写一些用于科学计算、图形处理等方面的程序。不仅如此，VB还广泛地应用于编制如人事、财务、生产、教学等各方面的管理程序，在这类应用中，通常需要处理大量不同类型的数据信息，而这些数据信息常常需要独立存储在某种介质上（如磁盘等），以便需要时通过程序来加工处理，这种独立存储的数据集合就称为文件。因此，掌握文件的概念及其使用方法是VB程序设计的重要内容之一。7.1 与文件操作有关的控件在Windows应用程序中打开文件或保存文件时，通常需要打开一个对话框，用于选择文件所在的驱动器（盘）、文件夹（目录）、文件名。在VB中，使用盘
2、驱动器列表框（DriveListBox）、目录路径列表框（DirListBox）以及文件列表框（FileListBox）这3种控件的组合，可以创建类似Windows资源管理器的文件操作对话框，用于选择文件。7.1.1 盘驱动器列表框控件盘驱动器列表框控件用于显示驱动器列表，工具箱中该控件图标为 。该控件缺省的名称为：Drive1、Drive2、 盘驱动器列表框控件常用属性 Drive属性（字符串类型）用来设置当前驱动器或返回所选择的驱动器名。Drive属性只能在程序运行时赋值，而不能通过属性窗口设置。为驱动器列表框的Drive属性赋值的语句格式为：.Drive=驱动器名格式中的“驱动器名”为指
3、定的驱动器，也就是说使该驱动器成为当前驱动器；如果省略，则不改变当前驱动器。如果所指定的驱动器在系统中不存在，则产生错误。程序运行时若选择驱动器，则Drive属性值改写为所选择的驱动器名。如运行时单击驱动器列表框控件drive1中D:盘图标，则drive1.drive的值为d:。值得注意的是：盘驱动器列表框中显示的驱动器名都是由系统自动生成的，用户只能通过列表框选择使用，不可以对Drive控件使用AddItem、RemoveItem等方法添加或删除列表项。 List属性（字符串数组）List数组的每一个元素中的字符串，为1个驱动器名，数组下标从0开始。 ListCount属性（正整数）List
4、Count属性值表示系统中盘驱动器的个数。若系统有驱动器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% 盘驱动器列表框控件常用事件运行时，当单击驱动器列表框中某一驱动器图标时，该驱动器的名就赋值给控件的Drive属性，同时引发Change事件。例7-1 在窗体上设计一个盘驱动器列表框Drive1、一个标签Label1。当程序启动时，设置当前驱动器为C盘
5、；选择盘驱动器列表框中的盘符，在标签上显示相应的当前驱动器信息。在窗体的Load事件中设置Drive属性的初值、编制事件过程Drive1_Change如下：Private Sub Form_Load()Drive1.Drive = c:Label1.Caption = 当前驱动器为： + Drive1.DriveEnd SubPrivate Sub Drive1_Change()Label1.Caption = 当前驱动器为： + Drive1.DriveEnd Sub界面设计和程序运行的情况分别如图7-1a和图7-1b所示。图7-1a 例7-1之界面设计 图7-1b 例7-1之运行情况7.1
6、.2 目录路径列表框控件目录路径列表框控件在工具箱中的图标为 。目录路径列表框控件用于显示当前驱动器中文件夹（目录）列表。如图7-2所示。其中，突出显示的为当前目录。目录路径列表框控件缺省的控件名称为：Dir1、Dir2、 目录路径列表框控件常用属性 Path属性（字符串类型）Path属性值为当前目录或所选择的目录名。如果选中盘x的根目录，则Path属性为x:；如果选中盘x的某一个子目录y（文件夹），则Path属性为x:y。请注意，Path属性值的最后一个字符是否为，取决于是否选中根目录。同Drive属性一样，Path属性只能用程序代码设置，而不能在设计时通过属性窗口设置。为目录列表框的Pat
7、h属性赋值的语句格式为：.Path=目录路径名图7-2 文件夹（目录）列表运行时单击目录列表框中某一文件夹（目录）图标时，该目录被突出显示，表示被选中。选中目录则改变目录列表框的ListIndex属性，但是没有改变其Path属性，若要改变Path属性值为所选中的目录路径，应当执行语句：.Path = .List(.ListIndex) List属性（字符串数组）List(0)、List(1)、.、List(ListCount-1)中的字符串为目录路径列表框中所选目录下所有的目录名，该数组由系统自动生成。 ListCount属性（正整数）ListCount属性值为List数组中的元素个数，即所选
8、目录之下1级目录的数量。如在图7-2中，若VB98目录下的子目录已全部显示，则Dir1.ListCount属性值为5。若执行语句：For i%=0 To Dir1.ListCount - 1 Print Dir1.List(i%)Next i%窗体上输出结果为：c:Program FileMicrosoft Visual StudioVB98Setupc:Program FileMicrosoft Visual StudioVB98Templatec:Program FileMicrosoft Visual StudioVB98Tsqlc:Program FileMicrosoft Visua
9、l StudioVB98Wizardsc:Program FileMicrosoft Visual StudioVB98新文件夹 ListIndex属性（整数）该属性取值范围为 -nListCount-1，当前目录所对应的ListIndex属性值为-1，当前目录的上1级目录所对应的ListIndex属性值为-2，其中的n反映了当前目录在目录层次中的深度。Path属性值也可以通过在事件过程的程序代码中重新定义Dir控件的ListIndex属性来选择设置： Dir1.ListIndex=2 选当前目录下1级目录中的第3个目录为当前目录（文件夹） Dir1.ListIndex=0 选当前目录下1级目
10、录中的第1个目录为当前目录。 Dir1.ListIndex=-2 选当前目录上1级目录为当前目录。 Dir1.ListIndex=-3 选当前目录上2级目录为当前目录。若要改变的当前目录不存在，则显示出错信息。如在图7-2中，假定当前所选文件夹是VB98：执行语句“Dir1.ListIndex=2”后文件夹Tsql被突出显示；执行语句“Dir1.ListIndex=0”后文件夹Setup被突出显示；执行语句“Dir1.ListIndex=-3”后文件夹Program Files被突出显示，等等。 目录路径列表框控件常用事件 Change事件每次重新设置或选择改变目录路径列表框的Path属性时，
11、都将引发Change事件。运行时双击目录路径列表框的列表选项，可改变Path属性值为当前目录名，并执行Change事件。 Click事件单击选中目录路径列表框控件Dir1的某个目录名，则选中该目录，但Dir1.Path属性没有改变，可以在事件过程Dir1_Click中写入语句“Dir1.Path = Dir1.List(Dir1.ListIndex)”，则可以在选择目录的同时改变Dir1.Path属性为所选目录的路径。在窗体的Load事件中可以设置Path属性的初值。例7-2 目录路径列表框示例。 界面设计：在窗体上建立目录路径列表框控件Dir1、三个标签控件（Label1、Label2、La
12、bel3）以及一个列表框控件List1。程序启动时，设置初始当前目录为C:WINDOWS；程序运行后，通过鼠标双击Dir1中的列表选项，改变当前目录，同时在三个标签控件上分别显示当前目录、当前ListIndex和ListCount的值，在List1中显示当前目录的所有下一级目录的目录路径信息。程序的运行情况如图7-3所示。图7-3 双击“My Documents”文件夹后的显示 过程设计编写Form_Load和Dir1_Change事件过程如下：Private Sub Form_Load() 设置Dir1控件的初始路径Dir1.Path = C:WINDOWSEnd Sub 双击控件Dir1时
13、执行下列事件过程Dir1_ChangePrivate Sub Dir1_Change()Label1.Caption = 当前目录： + Dir1.PathLabel2.Caption = ListIndex= + Str(Dir1.ListIndex)Label3.Caption = ListCount= + Str(Dir1.ListCount)List1.ClearFor i% = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(i%)Next i%End Sub在双击Dir1前，目录列表框中突出显示的是C:WINDOWS目录；双击“My
14、Documents”文件夹后，所选目录和Dir1.Path均改变为“c: My Documents”。将下列Click事件过程与上述过程Dir1_Change相比较，可知要实现同样的功能，其中的语句“Dir1.Path = Dir1.List(Dir1.ListIndex)”是必不可少的。 单击控件Dir1时执行该事件过程Private Sub Dir1_Click() Dir1.Path = Dir1.List(Dir1.ListIndex)Label1.Caption = 当前目录： + Dir1.PathLabel2.Caption = ListIndex= + Str(Dir1.ListIndex)Label3.Caption = ListCount= + Str(Dir1.ListCount)List1.ClearFor i% = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(I%)Next i%End Sub在实际应用中，目录路径列表框Dir1与盘驱动器列表框Drive1有着紧密的关系。一般情况下，改变盘驱动器列表框中的驱动器名后，目录路径列表框中的目录也要随之改变为该驱动器上的目录。要实现这样的同步变化，可以在盘驱动器列表框的Change事件中设置如下命令： Dir1.Path = Drive1.Drive
