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

Answer 2

将AutoSize属性设置为图片框属性的True

Answer 3

代码以自动拉伸图片框中的已加载图片，

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

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

3 个答案: