如何让图片随PictureBox控件的大小而改变，就是让PictureBox控件与图片的大小相吻合？

[pancult]

当然PictureBox 容器尺寸大于图象时，图象不能覆盖PictureBox的全部空间。能否让图象随着控件而拉伸呢？

[cso]

Picture1.AutoSize = True

把Picture1的AutoSize属性调整为True

[LGYAN]

Private Sub Command1_Click()
Dim a As New StdPicture
Set a = LoadPicture("c:\349.gif")
Picture1.PaintPicture a, 0, 0, Picture1.Width, Picture1.Height
End Sub

[LGYAN]

楼上的
AutoSize 属性

返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。

AutoSize是控件适应图片，而非图片适应控件大小………

[xd521]

AutoSize＝true

[xd521]

AutoSize＝true

[pancult]

不是让Picture去适应图片大小，而是让图片去适应picture控件的大小！！！

[pancult]

UP

[LGYAN]

让图片去适应picture控件的大小
Private Sub Command1_Click()
Dim a As New StdPicture
Set a = LoadPicture("c:\349.gif")
Picture1.PaintPicture a, 0, 0, Picture1.Width, Picture1.Height
End Sub

[LGYAN]

//不是让Picture去适应图片大小，而是让图片去适应picture控件的大小！！！

我上面的代码就是图片去适应Picutre控件的大小啊，楼主是没看见，还是咋地？？？

[sffshh]

别人没明白你意思，我告诉你！把Picture的Stretch属性设为True就可以了。给分！！！

[online]

参考msdn中的PaintPicture方法

或者可以考虑使用image控件

[LGYAN]

.//别人没明白你意思，我告诉你！把Picture的Stretch属性设为True就可以了。给分！！！


Picture有Stretch属性，我怎么 不知道，那是Image控件，楼上大哥！

[cso]

使用image控件最简单
调整好image控件大小后设置Image1.Stretch = True
如果想要把缩放的图片放到Piucture里面,可以使用PaintPicture方法

[sffshh]

:),没看清楚，走错地方了，我说的是Delphi