说明: 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
<wangzhe97> 上传 | 大小:759byte