image - 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