如何获得图形的高和宽？

Question

求教： 不使用控件，及其 ScaleX等等，有API函数吗？

Answer 1

dim p as picture
set p = loadpicture(图片路径)
图片的宽 = p.width
图片的高 = p.height

Answer 2

获得位图文件的信息 在Form中添加一个Picture控件和一个CommandButton控件,在Picture控件中加入一个位图文件,将下面代码加入其中: 
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" _ 
(ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) _ 
As Long 
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, _ 
ByVal dwCount As Long, lpBits As Any) As Long Private Type BITMAP 
bmType As Long 
bmWidth As Long 
bmHeight As Long 
bmWidthBytes As Long 
bmPlanes As Integer 
bmBitsPixel As Integer 
bmBits As Long 
End Type Private Sub Command1_Click() 
Dim hBitmap As Long 
Dim res As Long 
Dim bmp As BITMAP 
Dim byteAry() As Byte 
Dim totbyte As Long, i As Long 
hBitmap = Picture1.Picture.Handle res = GetObject(hBitmap, Len(bmp), bmp) '取得BITMAP的结构 totbyte = bmp.bmWidthBytes * bmp.bmHeight '总共要多少BYTE来存图 
ReDim byteAry(totbyte - 1) 
'将Picture1中的图信息存到ByteAry 
res = GetBitmapBits(hBitmap, totbyte, byteAry(0)) Debug.Print "Total Bytes Copied :"; res 
Debug.Print "bmp.bmBits "; bmp.bmBits 
Debug.Print "bmp.bmBitsPixel "; bmp.bmBitsPixel '每相素位数 
Debug.Print "bmp.bmHeight "; bmp.bmHeight '以相素计算图象高度 
Debug.Print "bmp.bmPlanes "; bmp.bmPlanes 
Debug.Print "bmp.bmType "; bmp.bmType 
Debug.Print "bmp.bmWidth "; bmp.bmWidth '以相素计算图形宽度 
Debug.Print "bmp.bmWidthBytes "; bmp.bmWidthBytes '以字节计算的每扫描线长度 
End Sub

Answer 3

有 API 函数吗？我并不想定义 picture ？ 再请教