VB超级大大虾帮帮迷你小菜鸟
题目是这样的:编写一个程序,用一个窗体包含一个图象框,一个驱动器列表框,一个目录列表框和一个文件列表框,完成功能是;通过驱动器,目录和文件列表框指定图形文件,然后利用LoadPicture函数将该图形文件显示在图象框中.请问这几个代码怎么编?
参考答案:新建一窗体,添加drivelistbox,dirlistbox,filelistbox,picturebox各一个,其中picturebox的autosize属性设为true
代码如下:
Private Sub Dir1_Change()
Me.File1.FileName = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Picture1.Picture = loadPicture(Dir1.Path + "\" + File1.FileName)
End Sub
说明:双击显示图片