Question

vb中如何利用水平滚动条改变textbox中字的大小

Answer 1

你选中文本框，在属性里找到ScrollBars，设置即可：0：无1：水平滚动条2：竖直滚动条3：水平+竖直滚动条但是前提是，你要先把MultiLine属性设置为True，才会生效。

Answer 2

Private Sub HScroll1_Change()

Text1.FontSize = HScroll1.Value

End Sub

Answer 3

Private Sub Form_Load()
With HScroll1
.Min = 1
.Max = 20
End With
End Sub

Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
End Sub

追问

还是调试不成功，我用的是vb2008版本

Answer 4

Private Sub Form_Load()
HScroll1.Min = 2
HScroll1.Max = 1000
End Sub

Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
End Sub

追问

还是调试不成功，我用的是vb2008版本