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

我是VB6的新手，我面临一个问题。我有一张大图。我想把它放在一个相当小的形式，以便它看起来很好的短文本

但是，当我在图片框中添加图片时，图片是从左上角添加的，而右下角部分则被切掉。有时我还需要重新调整图片框的大小。因此，我想知道如何使图像自动适应图片框，并在重新调整图片框大小时自动重新调整大小。我已经搜索了帮助，但在这方面找不到任何帮助。 我也尝试过使AutoSize和AutoRedraw选项为“真”，但仍然不起作用

有人能帮我吗？

假设这是一个VB6问题，而不是您标记的VB.NET

如果您只想显示图片，而不需要与

图片盒关联的任何其他属性、方法和事件，

您可以使用

图像

控件，并将其

拉伸

属性设置为

真。

如果您确实需要它成为一个

图片盒，

您可以通过添加第二个隐藏的、自动调整大小的

图片盒来实现，该图片盒设置为所需图片，然后使用类似这样的代码将其重新缩放到可见的
图片盒上。

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

将图片框属性的AutoSize属性设置为True，以自动拉伸图片框中加载的图片

Private Sub AutoSizeToPicture(Picture1 As PictureBox)
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True
    Picture1.PaintPicture Picture1.Picture, _
    0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
    0, 0, Picture1.Picture.Width / 26.46, _
    Picture1.Picture.Height / 26.46
End Sub

@阿基亚查克拉波蒂：嗯？它是VB6工具箱中的标准组件。你添加它的方式与添加任何其他控件的方式相同…嘿，我明白了。太棒了+1给你