怎样得到图片的信息呀（比如宽和高）

Question

怎样得到图片的信息呀（比如宽和高）

Answer 1

Private Sub Command2_Click()
    Dim pic As New StdPicture
    Set pic = LoadPicture("d:\mc\804.jpg")
    Dim w As Long
    Dim h As Long
    w = pic.Width
    w = ScaleX(w, vbHimetric, vbPixels)
    Debug.Print "图片宽度为" + CStr(w) + "像素"
    h = pic.Height
    h = ScaleY(h, vbHimetric, vbPixels)
    Debug.Print "图片高度为" + CStr(h) + "像素"
    Set pic = Nothing
End Sub

Answer 2

楼主的意思是不是取得hBitmap的宽和高？不知道GZ

Answer 3

GetSystemMetrics(),SM_CXICON/SM_CYICON
得到默认icon的宽和高

Answer 4

楼主的意思是不是取得hBitmap的宽和高？
对呀
我想取的是jpg bmp gif文件的高和宽

Answer 5

上面我的代码用的是StdPicture对象，jpg bmp gif文件