Question

VB中如何用滚动条控制形状大小

Answer 1

以下代码用到的控件：shape1 hscroll1 vscroll1

Private Sub Form_Load()
VScroll1.Min = 10
VScroll1.Max = 1000
VScroll1.Value = 500
HScroll1.Min = 10
HScroll1.Max = 1000
HScroll1.Value = 500
End Sub

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

Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub

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

Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub