【文件属性】:
文件名称:VB简单图片浏览
文件大小:759B
文件格式:VBP
更新时间:2018-09-05 04:13:50
VB
Form1.File1.Path = Form1.Dir1.Path
End Sub
Private Sub Drive1_Change()
Form1.Dir1.Path = Form1.Drive1.Drive
End Sub
Private Sub File1_Click()
Form1.Picture1.Picture = LoadPicture(Form1.File1.Path + "\" + Form1.File1.FileName)
End Sub