vb作业：在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。跪求大神帮忙！！

Question

在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3-1所示。
注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-01.vbp，窗体文件名为vbxk3-01.frm，文件夹名为vbxk3-01。又没会的大神！帮忙做下发我邮箱:[email protected] 谢谢

Answer 1

在file1的属性页里的pattern属性里输入 *.jpg;*.bmp ;*.gif
然后填写如下代码
Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

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

Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Text1.Text = Dir1.Path & "\" & File1.FileName
End Sub

Private Sub Form_Load()
Drive1.Drive = "d"
End Sub

Answer 2

试试这个，VB6下通过。

本回答被提问者和网友采纳