VB 文本框滚动条

2024-11-18 00:11:41

推荐回答（3个）

回答1：

先把Text1的Multiline设置为True，然后设置ScrollBars属性为0（无滚动条）/1（水平方向滚动）/2（垂直方向滚动）/3（水平和垂直方向均滚动）

是不是说每次新增内容后都要把光标移动到最末端？如果是这样，你可以这样设置：Text1.SelStart=Len(Text1.Text)

回答2：

不明白什么意思

回答3：

Private Sub Form_Load()
VScroll1.Min = 0
For i = 1 To 80 '测试
Text1 = Text1 & i & vbCrLf
Next i
End Sub
Private Sub VScroll1_Change()
Text1.SelStart = VScroll1.Value
End Sub
Private Sub Text1_Change()
VScroll1.Max = Len(Text1)
End Sub