Question

vb中用picture控件载入图片怎么获得图片的长和宽 比如图片是1000*800 怎么取得1000 和800这两个数字

不是图片框的长宽

Answer 1

为获得一个图片的长度和宽度不用加载picturebox控件（用这个也可以），可以用StdPicture对象得到。

Private Sub Command1_Click()
Dim pic As StdPicture
Set pic = LoadPicture("c:\1.jpg")
Debug.Print ScaleX(pic.Width, 8, 3), ScaleY(pic.Height, 8, 3)
Set pic = Nothing
End Sub

可以百度HI找我。

Answer 2

Private Sub Command1_Click()
Picture1.ScaleMode = 3 '假设里面放了一张图片,修改里面大小模式为像素
Picture1.AutoSize = True
MsgBox "图片的宽为：" & Picture1.ScaleWidth
MsgBox "图片的高为：" & Picture1.ScaleHeight
End Sub

Answer 3

用Picture1.Picture.Width，Picture1.Picture.Height得到尺寸，
用Round(Picture1.Picture.Width / 26.4591, 0),Round(Picture1.Picture.Height / 26.4591, 0)
换算成像素