Question

二级vb试题，让图像框中的图片随着滚动条变化而变化，代码怎么写

二级vb试题，让图像框中的图片随着滚动条变化而变化，代码怎么写题目要求有一个水平滚动条和一个垂直滚动条，上下限都为1--3，当水平滚动条value为2时，图片宽度在原图片宽度上放大二倍，为3时放大3倍。垂直滚动条同理。





Answer 1

Dim P_x%, P_y%
Private Sub Form_Load()
    P_x = Picture1.Width
    P_y = Picture1.Height
End Sub

Private Sub HScroll1_Change()
    Picture1.Width = P_x * HScroll1.Value
End Sub

Private Sub VScroll1_Change()
    Picture1.Height = P_x * VScroll1.Value
End Sub

追问

这个你运行了吗？可以不？

我运行过了，不可用，我以前也是这样写的，这样写首先逻辑上就有错误value从3变成2就不行了。如果单单从小变到大，也不能正确运行