Dim ML As String '路径
If Right(App.Path, 1) = "\" Then '判断是否为根目录
ML = App.Path
Else
ML = App.Path + "\"
End IfImage3.Picture = LoadPicture(ML+ f(A) + ".jpg")
Image3.Picture = LoadPicture(app.path +"\" + f(A) + ".jpg")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024