缩放图片框内的图像

Question

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

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

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

我正在使用VB 6.

Answer 1

我在这里假设你在这里使用BMP或JPG文件。

简单的划痕方法是将Image控件放在PictureBox中，最初使用属性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

最简单的方法是使用两个pic盒，一个在另一个盒子里面。 “外部”框可以被视为“内部”框中的视口，您可以根据需要调整大小和位置。效果会相同，但编码要简单得多。