请问怎样调整图片在PICTUREBOX中的位置。

Question

把Picture1的AutoReDraw属性设为True
这段代码可以加在Form_Load中Dim TempPic as IPictureDispSet TempPic=LoadPicture(……)
Picture1.PaintPicture TempPic, X坐标, Y坐标
Set TempPic=Nothing '释放

Answer 1

但是这个时候Picture1.picture可是一点东西都没有啊，空的！不会等于
tempic的。为什么？

Answer 2

Dim TempPic as StdPictureSet TempPic=LoadPicture(……)
Picture1.PaintPicture TempPic, X坐标, Y坐标
Set TempPic=Nothing '释放
什么是“Picture1.picture可是一点东西都没有啊，空的！”？不显示图片吗？不可能的。

Answer 3

不是不显示图片，是只是表面上的显示图片，而它的picture属性却并不是
tempic，就是说：picture1.picture=null ！
我用picture1.picture=picture1.image,但是image属性只是图象框显示的那部分图象（显示大图象时），或者是图片加上picturebox的底色构成的一幅新图片（显示小图象时）。这些事情闹的我一点斗志都没有了

Answer 4

你怎么知道picture属性是NULL？
picture属性应该得到的是picture.handle。是一个整数。

Answer 5

我说等于NULL只是一个比喻。我试过了,在实施paintpicture方法的前后，
picture1.picture.handle都是0,就是 nothing !如果这个时候你用savepicture picture1.picture, filepath ，
保管出错！

Answer 6

我也碰到这个问题，用savepicture函数保存时应该写
savepicture picture1.image,filepath
但是保存后的图片比实际图片要宽，多了一段以图片框背景颜色的图片，不知道是为什么。