如何得到一个JPG\BMP\GIF等图片文件的像素大小?

Question

如题!!!

Answer 1

Private Sub Form_Load()
Picture1.AutoSize = True
Picture1.ScaleMode = 3
Picture1.Picture = LoadPicture("the path of image ")
Debug.Print "the size of picture"
Debug.Print Picture1.ScaleWidth & "x" & Picture1.ScaleHeight
End Sub

Answer 2

Private Sub Form_Load()
    dim tPic as stdPicture
    dim PicW as long, picH as long     set tPic = LoadPicture("文件名")
    
    PicW = ScaleX(tPic.Width, vbHimetric, vbPixels)
    PicH = ScaleY(tPic.Height, vbHimetric, vbPixels)    debug.print "该图像尺寸为:",picw, picH
End Sub

Answer 3

Image1.Width 的数值也是像素吗?

Answer 4

要把form1的ScaleMode 属性设为3-Pixel
然后用Image1.Width得到的才是象素