VB标签框显示图片

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:55:34
我想建立一个标签 一个驱动器 一个文件夹列表框 一个文件列表框。
用标签框显示文件夹列表框的图片 （怎么让文件列表框只有图片）

建一个Drive1，Dir1,File1,Label1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = ""
Dim i As Integer
For i = 0 To File1.ListCount - 1
Label1.Caption = Label1.Caption & File1.List(i) & vbCrLf
Next
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub