前端之家收集整理的这篇文章主要介绍了
VB6.0让图片自适应Picture图片框大小，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
Picture的AutoSize属性设为True的话可以让图片框自动适应图片大小，但是图片不能适应图片框大小；
Image的Stretch属性设为True的话可以让图片自动适应图像框大小。
如果仅仅是为了显示的话，那么用Image图像框就可以满足需求了，但是我还想获取图片中某个点的颜色。Picture1.Point(x,y)可以获取Picture1的(x,y)坐标处的颜色（注意单位默认不是像素，而是Twip。单位可在Picture1的ScaleMode属性中设置，设为Pixel就是以像素位单位了），但是Image不能用Point这个方法。
先是用一个隐藏的Image或者Picture打开一个图片（注意如果是用Picture的话要把AutoRedraw属性设为True），然后在另一个可见的Picture上画图：Picture1.PaintPictureImage1.Picture,Picture1.Width,Picture1.Height，完成的功能就是吧Image1已经打开的图片画到Picture1上。
Image1.Stretch = True
Image1.Picture = LoadPicture("……")
Picture1.PaintPicture Image1.Picture,Picture1.Height
顺便说一下，使用Picture1.Point(x,y)返回的是一个24位数，共3个字节，低位的1个字节是R，中间的1个是G，高位的1个字节是B。
原文链接：https://www.f2er.com/vb/258713.html
