Question

VB题:使用滚动条的输入来调整Image控件尺寸的大小，垂直滚动条用来调整I

VB题:使用滚动条的输入来调整Image控件尺寸的大小，垂直滚动条用来调整Image控件的高度，水平滚动条用来调整宽度。
请附上代码和窗体运行界面，感激不尽。

Answer 1

Private Sub Form_Load()
  HScroll1.Max = Image1.Width
  HScroll1.Min = 0
  HScroll1.LargeChange = 100
  HScroll1.SmallChange = 50
  HScroll1.Value = 0
  Image1.Width = HScroll1.Value
  VScroll1.Max = Image1.Height
  VScroll1.Min = 0
  VScroll1.LargeChange = 60
  VScroll1.SmallChange = 30
  VScroll1.Value = 0
  Image1.Height = VScroll1.Value
End Sub

Private Sub HScroll1_Change()
  Image1.Width = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
  Image1.Width = HScroll1.Value
End Sub

Private Sub VScroll1_Change()
  Image1.Height = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
  Image1.Height = VScroll1.Value
End Sub