VB简单图片浏览

时间:2018-09-05 04:13:50
【文件属性】:

文件名称: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


网友评论