缩放图片框内的图像

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 

您也可以通过改变Left和Top参数在Move（）方法平移缩放图像。

Answer 2

这可能是最简单的使用两个PIC盒，一个在另一个内。 '外部'框可以被认为是'内部'框中的视口，您可以根据需要调整大小和位置。效果将是相同的，但编码更简单。