Question

VB 用一滚动条控制文本框的大小

text1, vscroll1(max(100),min(0)),labelx(显示滚动条数值)

Answer 1

Private Sub Form_Load()
Text1.Width = 0: Text1.Height = 0
End Sub
Private Sub VScroll1_Change()
Text1.Width = VScroll1.Value * 100
Text1.Height = VScroll1.Value * 100
Label1 = VScroll1.Value
End Sub

Answer 2

可参考以下代码修改：
Private Sub VScroll1_Scroll()
Text1.Width = 300 + VScroll1.Value * 30
Label1.Caption = VScroll1.Value
End Sub