-
本版专家分：448结帖率 100% -
当然PictureBox 容器尺寸大于图象时，图象不能覆盖PictureBox的全部空间。能否让图象随着控件而拉伸呢？
![]()
-
本版专家分：15962
-
- 蓝花 2004年8月 VB大版内专家分月排行榜第三
-
-
Picture1.AutoSize = True
把Picture1的AutoSize属性调整为True
-
本版专家分：6713 -
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
-
本版专家分：6713
-
楼上的
AutoSize 属性
返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。
AutoSize是控件适应图片，而非图片适应控件大小………
-
本版专家分：6713
-
让图片去适应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
-
本版专家分：6713
-
//不是让Picture去适应图片大小，而是让图片去适应picture控件的大小！！！
我上面的代码就是图片去适应Picutre控件的大小啊，楼主是没看见，还是咋地？？？
-
本版专家分：0 -
别人没明白你意思，我告诉你！把Picture的Stretch属性设为True就可以了。给分！！！
![]()
-
本版专家分：108326
-
- 进士 2004年 总版技术专家分年内排行榜第七
-
-
微软MVP
2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
-
-
红花
2004年9月 VB大版内专家分月排行榜第一
2004年8月 VB大版内专家分月排行榜第一
2004年7月 VB大版内专家分月排行榜第一
2004年6月 VB大版内专家分月排行榜第一
2004年5月 VB大版内专家分月排行榜第一
-
- 黄花 2004年2月 VB大版内专家分月排行榜第二
-
-
参考msdn中的PaintPicture方法
或者可以考虑使用image控件
-
本版专家分：6713
-
.//别人没明白你意思，我告诉你！把Picture的Stretch属性设为True就可以了。给分！！！
Picture有Stretch属性，我怎么 不知道，那是Image控件，楼上大哥！
-
本版专家分：15962
-
- 蓝花 2004年8月 VB大版内专家分月排行榜第三
-
-
使用image控件最简单
调整好image控件大小后设置Image1.Stretch = True
如果想要把缩放的图片放到Piucture里面,可以使用PaintPicture方法