『壹』 vb 编程 如何获取图片文件的DPI（分辨率） 值

'CommandBotton一个Picture控件一抄个
'把picture1的AutoSize属性设为True
'用Picture里装载那张你需要的图片
'然后
Private Sub Command1_Click()
i = MsgBox("图片的分辨率为:" + Str(Picture1.ScaleWidth / 15) + "X" + Str(Picture1.ScaleHeight / 15))
End Sub