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

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

 我来答

1个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

数学与计算机编程
2017-06-05 · TA获得超过2159个赞

知道大有可为答主

回答量：2312

采纳率：80%

帮助的人：544万

我也去答题访问个人页

关注

展开全部

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