Question

vb题求解答10. 将Image图像装入图片，利用水平和垂直滚动条改变图像控件的大小来实现对图片进行任意大小的缩放，如图

Answer 1

提示：

将垂直滚动条的：最大值属性，Max设置为Image的最大高度值，Min设置为Image的最小高度值，

在垂直滚动条的Change事件里编写代码如下：

Private Sub VScroll1_Change()

Image1.Height = VScroll1.Value

End Sub

水平原理相似！