VB6:以像素为单位获取图像大小

Question

我在表格上放了一个图片框,上面加了一些图片:

View1.Picture = LoadPicture(App.Path & "\sample2.bmp")

当我试图获取Picture属性的宽度和高度时,我收到的值不是像素也不是缇.有人知道如何在Visual Basic 6中确定图像的大小(以像素为单位)吗？

Answer 1

他们处于himetrics状态.

使用

With View1
  MsgBox .ScaleX(.Picture.Width, vbHimetric, vbPixels)
  MsgBox .ScaleY(.Picture.Height, vbHimetric, vbPixels)
End With