VB题目，求代码，只能用VB软件做。

显示全部楼层 · 2011-5-19 12:49:40

在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3-1所示。

千问 · 2011-5-19 12:49:40

添加完所有控件后把文件列表控件的Pattern属性改为：*.bmp;*.jpg;*.gif
之后在窗体中添加如下代码：
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub

PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub

PrivateSubFile1_Click()
selectedfile=File1.Pathdefds123\"\\\"defds123File1.FileName
Picture1.Picture=LoadPicture(selectedfile)
Text1.Text=selectedfile
EndSub

PrivateSubForm_Load()
Drive1.Drive=\"d:\"
EndSub