vb调整图像大小以使其自动适合

Question

我是VB 6的新手,我遇到了一个问题.我的照片很大.我想把它放在一个非常小的形式,以便它与短文本看起来很好.

但是,当我在图片框中添加图片时,图片从左上角添加,右下部分被截断.有时我还需要重新调整图片框的大小.因此,我想知道如何使图像自动适应图片框,并在重新调整图片框大小时自动重新调整大小.我已经搜索过帮助但在这方面找不到任何帮助.我也尝试过将AutoSize和AutoRedraw选项设为'true',但它仍然没有用.

谁能帮帮我吗？

Answer 1

假设这是一个VB6问题,而不是VB.NET,因为你已经标记了它...

如果您只是想显示图片而不需要任何其他属性,那么与PictureBox,您相关的方法和事件可以使用Image控件并将其Stretch属性设置为True.

如果你确实需要它,PictureBox,你可以通过添加第二个隐藏的AutoSizing PictureBox来设置到所需的图片,然后使用这样的代码将其重新绘制到可见的PictureBox.

pbxShown.PaintPicture pbxHidden.Picture, _
        0, 0, pbxShown.ScaleWidth, pbxShown.ScaleHeight, _
        0, 0, pbxHidden.ScaleWidth, pbxHidden.ScaleHeight, _
        vbSrcCopy