VB问题，在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。

Question

要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。

Answer 1

Private Sub File1_Click()
If File1.ListCount > 0 Then
' Command1.Enabled = True
Text1.Text = File1.Path + File1.FileName
Dim objPic As Picture
Set objPic = LoadPicture(Text1.Text)
Picture1.Picture = objPic
End If
End Sub

Private Sub Form_Load()
Drive1.Drive = "d:"
Dir1.Path = "d:\" ' Drive1.Drive
Dir1.Refresh
File1.Pattern = "*.jpg;*.bmp;*.gif|(*.bmp,*.gif,*.jpg)"
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub本回答被提问者采纳