Question

在VB程序设计中怎样用Hscroll对Shape的大小进行改变

Answer 1

具体还要看你要怎么改变了。下面是一个例子，改变shape的宽度。稍微修改下就可以了，我想你应该会自己修改的。

Private Sub Form_Load()
HScroll1.Value = Shape1.Width '让滚动条的值等于 shape 的宽度
HScroll1.SmallChange = 15 '每按一下增加的值
HScroll1.Max = 2000 '设置最大值
End Sub

Private Sub HScroll1_Change()
Shape1.Width = HScroll1.Value 'shape 的宽度等于滚动条的值
End Sub