|
二、利用文件控件来处理文件
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)显示图像。
（6）响应其余按钮单击事件
按钮"清除"的作用是清除在Image控件中显示的图像文件，为了实现上述功能，可以在Command3_Click()事件中添加代码
Private Sub Command3_Click()
Image1.Picture=LoadPicture(""）
End Sub
按钮“退出”的作用是结束程序的运行，返回设计阶段，所以在Command1._click()事件中添加下列代码：
Private Sub Command1_click()
End '结束运行
End sub
（7）存储文件，运行程序
[程序演示] [程序下载]
|
