VB考试教程：利用文件控件来处理文件

文章作者 100test 发表时间 2007:03:26 17:26:12
来源 100Test.Com百考试题网

二、利用文件控件来处理文件

1、第一个示例（见教材P324）

（1）设置初始窗体属性

属性	设置
(name)	form1
borderstyle	3-fixed dialog不能改变窗体大小
caption	form1
enabled	true 不能移动窗体
height	3600
left	0
maxbutton	false
minbutton	false
moveable	false
picture	(none)
startupposition	2-centerscreen 窗体位于屏幕中心
top	0
visible	true
width	5670
windowstate	0-normal

（2）添加控件，设置其属性 　

向窗体添加一个drivelistbox控件，一个dirlistbox控件 一个filelistbox控件，它们将实现相应不同的功能，同时它们又相互协调。

如图：

　　

（3）编写代码

程序的初始化代码：

Private Sub Form_load()

Drive1.enabled=true 　

Dir1.enabled=true

File1.enabled=true 　　设置控件的有效状态

File1.pattern="*.exe"　设置过滤器，使之只显示可执行文件

Drive1.drive="c:\" 　　设置控件的初始驱动器为C盘

End Sub

程序说明：程序首先通过Drive1.enabled=true，Dir1.enabled=true，File1.enabled=true来设置控件的有效状态，然后设置文件的过滤器为"＊.exe"和控件的初始驱动器为"c:\"，这样只有在c盘下面的以"＊.exe"结尾的可执行文件才能够显示出来。

三控件同步：

Private Sub Drive1_change()

Dir1.path=Drive1.Drive 改变驱动器，使目录列表框中的内容跟着所选驱动器的变化而变化

End Sub

程序说明：在程序的运行阶段，改变驱动器时，就会激活DriveListBox控件的Drive1_Change()事件，然后通过Dir1.path=Drive1.Drive来使DriveListBox控件显示改变驱动器后的目录。

Private Sub Dir1_change()

File1.path=Dir1.path 改变目录，使目录列表框中的内容跟着所选文件夹的不同而不同

End Sub

程序说明：在程序的运行阶段，改变目录时，就会激活DirListBox控件的Dir1_change()事件，然后通过File1.path=Dir1.path来使FileListBox控件显示改变目录后的文件列表。

显示文件路径和文件名：

Private Sub File1_Click()
MsgBox File1.Path &. "\" &. File1.FileName 输出文件路径和文件名。
End Sub

（4）存储文件，运行程序

[程序演示] [程序下载]

2、第二个示例（见教材P329）

界面设计：

（1）设置初始窗体属性

　

属性	设置
(name)	form1
borderstyle	3-fixed dialog
caption	form1
enabled	true
height	3600
left	0
maxbutton	false
minbutton	false
moveable	false
picture	(none)
startupposition	2-centerscreen
top	0
visible	true
width	5670
windowstate	0-normal

（2）添加CommonDialog控件，设置属性

如果在窗体上放置一个CommonDialog控件，首先把它添加到工具箱上，选择菜单[工程]/[部件] ,就会弹出对话框，选择Mocrosoft Common Dialog Control6.0项，在工具箱中就会自动的添加一个CommonDialog控件。它的属性设置如下：

属性	设置
（name)	CommonDialog1
DialogTitle	选择一个图像文件
Filename	*.bmp.*.jpg.*.gif 用分号隔开
Filter	*.bmp.*.jpg.*.gif
InitDir	c: 设置初始化文件目录
Left	4440
Top	0

（3）在窗体上添加其它控件，设置属性

在窗体上添加一个Image控件和三个CommandButton控件。

（4）编写程序的初始化代码　　

在程序的设计阶段，双击窗体，在窗体的Form_load()事件中添加下列代码：

Private Sub Form_Load()

Command1.Enabled=tru

Command2.Enabled=true

Command3.Enabled=true

End Sub

程序说明 窗体的Form_load()事件在程序的运行初期就被执行，所以在其中添加代码对程序进行初始化，在本程序中初始化的工作在于设置各个按钮的有效状态。

如果没在属性窗口中设置过滤器Filename、Filter的属性，也可在这段代码中添加代码：

CommonDialog1.Filter = "Text(*.txt)|*.txt|Picture(*.bmp)|*.bmp|Picture(*.gif)|*.gif|Picture(*.jpg)|*.jpg" 设置过滤器（注意分隔符）。

（5）响应按钮"打开文件"的单击事件

按钮"打开文件"的作用是显示一个对话框，并且可以在其中选择一个图像文件，为了实现以上功能，所以在Command2_click()事件中添加如下代码：

Private Sub Command2_Click()

CommonDialog1.showopen 显示"打开"对话框

Image1.picture=LoadPicture(CommonDialog1.Filename) 在Image控件中显示图像

End Sub

程序说明：在程序的运行过程中，单击按钮[打开文件]时，Command2_Click()事件就被激活，然后开始执行其中的代码，首先通过CommandDialog1.showopen语句来显示"打开"对话框，选中一个有效的图像文件后单击[确定]按钮，就可通过Image1.Pcture=LoadPicture(CommonDialog1.Filename)显示图像。