Picture控件问题？急

Question

我用代码在Picture这个控件中添加一个JPG图片，怎样才能使这个图片的大小自动放大或缩小,至这Picture这个控件的大小一样呀？？
例：图片高：13000，宽15000
控件的高：130,宽50
怎样让图片自动缩小至130,50呢？　急!!

Answer 1

picture上放一个跟picture一样大的image 把图片load 到 image 上就可以了 image是可以让图片根据自己的大小缩放的

Answer 2

顶不名的方法
PICTURE的AUTOSIZE是让PICTURE改变大小的好象

Answer 3

dim p as stdPictureset p = loadpicture(...图片路径...)
picture1.paintpicture(p,0,0,picture1.width,picture1.height)

Answer 4

Dim p As StdPicture
Set p = LoadPicture("D:\my docunents\My Pictures\005.jpg")
Call Picture1.PaintPicture(p, 0, 0, Picture1.Width, Picture1.Height)