VB中的文件夹和文件路径的控制【VB学习笔记2020课堂版11】

知识要点：

1.认识和使用控件drivelistbox、dirlistbox、filelistbox

drivelistbox控制本地磁盘

通过drive属性来获取当前选中的盘符

dir1如果表文件夹列表控件，那么dir1.path就可以获取当前选择的文件夹。

如果要给当前控件指定一个文件位置，那么就可以通过赋值来设置，方式是dir1.path="路径"

dirlistbox控制磁盘中的文件夹

通过path属性来获取当前的盘符目录

filelistbox文件夹中的文件列表

通过path属性来设置或获取文件列表控件所属文件夹路径。

通过filename属性来获取选择的文件名称。

一个文件和路径=路径 & "\" & 文件名

2.change事件

三个控件可以选择，当选择改变的时候发生change事件。

3.loadpicture函数来加载图片路径

使用方法loadpicture(图片完整路径)

可以通过image控件来显示图片。

对图片控件的picture属性进行赋值。

如何自动跳过程序错误？

为了使得我们的程序不挂掉，使用on error resume next

指的是当程序发生错误时，跳过报错，继续执行后面的代码。

实验活动：

1.拖动控件到界面，完成设计

2.通过代码获取选择的文件路径

3.显示选择的图片

软件设计界面：

源代码分享：

Private Sub Dir1_Change()
'Print Dir1.Path
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
'Print "11111111111111111111111111"
'Print Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
End Sub