vb6 - 缩放图片框内的图像

Question

我有一个图片框控件和 2 个命令按钮。我在图片框内显示了一张图片。

单击放大和缩小按钮时是否可以缩放图像？

或者我什至可以放一个滚动条。是否可以根据滚动条的移动来缩放图像？

我正在使用 VB 6。

Answer 1

我假设您在这里使用的是 BMP 或 JPG 文件。

简单的临时方法是在 PictureBox 中放置一个 Image 控件，最初使用属性 Stretch = False。最初，它将位于左上角。将 Picture 属性设置为您的图片对象后，将调整 Image 控件的大小以适合图像。将控件的原始宽度和高度保存在变量中。现在设置 Stretch = True。您可以通过使用调整图像大小来放大

img.Move 0, 0, sngWidth * sngMagFactor, sngHeight * sngMagFactor

其中 sngMaxFactor = 4！或者你想放大多少。

通过以下方式恢复到原始大小：

img.Move 0, 0, sngWidth, sngHeight

您还可以通过更改 Move() 方法中的 Left 和 Top 参数来平移缩放的图像。

Answer 2

使用两个图片框可能是最简单的，一个在另一个里面。“外”框可以被认为是“内”框的视口，您可以根据需要调整其大小和位置。效果将是相同的，但编码要简单得多。