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

Posted by Emily on November 23, 1999 at 15:27:01:

In Reply to: Re: 如何show出图片的大小和k数 posted by AP on November 20, 1999 at 18:47:46:

: : 我利用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)))

我试了可是他只show出我所拉出来的image框的大小
而我所要的是图档实际的大小

Follow Ups: