2

我是 VB 6 的新手，我遇到了一个问题。我有一张大图。我想把它放在一个很小的形式中，这样它看起来很短的文本。

但是，当我在图片框中添加图片时，图片是从左上角添加的，而右下部分被切断。有时我还需要重新调整图片框的大小。所以我想知道如何使图像自动适合图片框，并在我重新调整图片框大小时自动调整大小。我已经寻求帮助，但在这种情况下找不到任何帮助。我还尝试将 AutoSize 和 AutoRedraw 选项设置为“true”，但它仍然无法正常工作。

谁能帮帮我吗？

4

3 回答 3

6

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

如果您只想显示图片并且不需要与 a 关联的任何其他属性、方法和事件，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
于 2012-09-01T12:14:45.363 回答
0

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

于 2014-04-19T05:54:11.497 回答
0

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

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
于 2018-09-22T13:32:46.607 回答