自动滚动文本框到底部

Posted 2023-05-07

【中文标题】自动滚动文本框到底部

【英文标题】：Scroll textbox to the bottom automatically

【发布时间】：2017-07-04 08:15:32

【问题描述】：

我有一个带有文本框和垂直滚动条的用户窗体。文本以下列方式附加到文本框：

 UserForm1.TextBox1.Value = UserForm1.TextBox1.Value & "**Opened file " & i & "**" & vbNewLine

当要显示的文本过多时，滚动条不会向下滚动以显示添加的文本。我需要在宏运行的过程中看到该文本。

我试过了

UserForm1.TextBox1.CurLine = -1

和

UserForm1.TextBox1.CurLine = UserForm1.TextBox1.LineCount-1

【问题讨论】：

这是已回答的问题 [***.com/a/6608631/6648862](***.com/a/6608631/6648862)

Auto scroll to bottom with a textbox的可能重复

【参考方案1】：

这是来自

的答案

Auto scroll to bottom with a textbox

AppendText "Bla de bla bla."



sub AppendText(strText As String)
    with txtStatus
        .setfocus '//required
        .value = .value & strText & vbNewLine
        .selstart = len(.Value)
    end with
end sub

【参考方案2】：

尝试了所有并浪费了很多时间并尝试了几乎所有东西，直到在互联网上的某个地方遇到这个：

.HideSelection = False

这很有效！希望这对某人也有帮助...