VB程序设计题目！

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:27:13
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片列表框。要求程序运行后，驱动器列表框Drivel的默认驱动器设置为C盘，选择Filel中所列的图片文件（*.bmp和*.jpg），则相应的图片显示在图片框Picture中。
要求：写出控件重要属性设置和事件响应程序！

请添加 一个 DriveListBox 一个 DirListBox 一个 FileListBox 一个 PictureBox, 加如以下代码

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Picture1.Cls
End Sub

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

Private Sub File1_Click()
Picture1.Picture = LoadPicture(Dir1.Path & IIf(Right(Dir1.Path, 1) <> "\", "\", "") & File1.FileName)
End Sub

Private Sub Form_Load()
Drive1.Drive = "C:\"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
File1.Pattern = "*.jpg; *.bmp"
End Sub