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

第二，使用文件控制来处理文件。

1.第一个例子(见教科书P324)

(1)设置初始表单属性。

设置属性
(name)form 1
border style 3-fixed dialog '无法更改表单大小
标题form1
enabled true '无法移动表单
height 3600
left 0
max button false
min button false
mobile false
picture(none)
startup position 2-center screen '表单位于屏幕中央[/br

(2)添加控件并设置其属性。

在表单中添加一个drivelistbox控件、一个dirlistbox控件和一个filelistbox控件，它们将实现不同的功能，并且相互协调。

(3)写代码。

程序的初始化代码:

私有子窗体_load()

Drive1.enabled=true

Dir1.enabled=true

1.文件。“enabled = true”设置控件的有效状态。

1 .模式= "*。将过滤器设置为仅显示可执行文件。

1.drive = "c: \ " '将控件的初始驱动器设置为驱动器c。

末端接头

程序说明:程序首先通过Drive1.enabled=true，Dir1.enabled=true，File1.enabled=true设置控件的有效状态，然后将文件的过滤器设置为“*。exe”并将控件的初始驱动器设置为“c:\”，以便只显示以“*”结尾的可执行文件。exe”就可以显示出来了。

三个控制同步:

私有子驱动1_change()

1.导演。path = drive1。“驱动器”更改驱动器，这样目录列表框的内容将随着所选驱动器的更改而更改。

末端接头

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

私有子目录1_change()

1.path = dir1。“路径”更改目录，以便目录列表框中的内容与所选文件夹不同。

末端接头

程序说明:在程序运行阶段，当目录发生变化时，会激活DirListBox控件的Dir1_change()事件，然后File1.path=Dir1.path会使FileListBox控件显示目录变化后的文件列表。

显示文件路径和文件名:

private file 1 _ click()
msgboxfile 1 . path & " \ " & file 1 . filename '输出文件路径和文件名。
结束Sub

(4)存储文件和运行程序。

2.第二个例子(见课本P329)

界面设计:

(1)设置初始表单属性。

设置属性
(name)form 1
border style 3-固定对话框
标题form 1
enabled true
height 3600
left 0
max button false
min button false
可移动false
图片(无)
startup position 2-中心屏幕
top 0
visible true
宽度5670

(2)添加CommonDialog控件并设置属性。

如果在表单上放置一个CommonDialog控件，首先将其添加到工具箱中，选择菜单【工程】/【零件】，会弹出一个对话框。选择Mocrosoft CommonDialog控件6.0，工具箱中会自动添加一个常用的对话框控件。其属性设置如下:

set
(name)common dialog 1
dialog title选择图像文件
filename *；bmp*.jpg*.以分号分隔的“gif”
Filter *。bmp*.jpg*.gif
InitDir c:'设置初始化文件目录
Left 4440
Top 0

(3)在窗体上添加其他控件并设置属性。

向窗体中添加一个Image控件和三个CommandButton控件。

(4)编写程序的初始化代码。

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

私有子窗体_Load()

命令1。启用=真

命令2。启用=真

命令3。启用=真

末端接头

说明程序窗体的Form_load()事件是在程序开始时执行的，所以添加代码初始化程序。这个程序中的初始化工作就是设置每个按钮的有效状态。

如果“属性”窗口中未设置Filename和filter属性，您也可以在以下代码中添加代码:

CommonDialog1.filter = "text (*。txt) | *。txt |图片(*。bmp) | *。bmp |图片(*。gif) | *。gif |图片(*。jpg) | *。jpg " '设置过滤器(注意分隔符)。

(5)响应按钮“打开文件”的点击事件

“打开文件”按钮的功能是显示一个对话框，您可以在其中选择一个图像文件。为了实现上述功能，下面的代码被添加到Command2_click()事件中:

私有子命令2_Click()

' CommonDialog1.showopen '显示“打开”对话框。

1.' image = load picture(common dialog 1 . filename)'在图像控件中显示图像。

末端接头

程序说明:在程序运行过程中，当你点击【打开文件】按钮时，Command2_Click()事件会被激活，然后执行其中的代码。首先CommandDialog1.showopen语句会显示“打开”对话框，然后选择一个有效的图片文件然后点击【确定】按钮，这样就可以点击image1.pcture = load picture(常用Dialog1。