# Re: 如何show出图片的大小和k数

Posted by AP on November 20, 1999 at 18:47:46:

In Reply to: 如何show出图片的大小和k数 posted by Emily on November 18, 1999 at 12:57:54:

: 我利用image去捉图..
: 我要如何show出图片的大小和k数呢
Dim x As New StdPicture
Set x = LoadPicture(Filename)
宽 = CInt(ScaleX(x.Width, vbHimetric, vbPixels))
高 = CInt(ScaleY(x.Height, vbHimetric, vbPixels))
或
Image1 = LoadPicture(Filename)
xx =Image1.Width
yy =Image1.Height
宽=CStr(CInt(ScaleX(xx, vbTwips, vbPixels)))
高=CStr(CInt(ScaleY(yy, vbTwips, vbPixels)))

Follow Ups:

- Re: 如何show出图片的大小和k数 Emily 15:27:01 11/23/99 (0)