如何获取图像尺寸

Question

如题。请问用什么命令可以得到图像尺寸？

Answer 1

Dim p As New StdPicture
Dim w As Long, h As Long
Set p = LoadPicture("D:\pic.jpg")
h = p.Height
w = p.Width
h = Me.ScaleX(h, vbHimetric, vbPixels)
w = Me.ScaleY(w, vbHimetric, vbPixels)
Debug.Print h, w

Answer 2

请问这样得到的h 和 w 是什么单位。 是和窗口设计界面的left,top属性的单位一样么？

Answer 3

从ScaleX中可以看到，是像素单位。