Question

我有一个带TextBox的UserForm和一个垂直滚动条。文本按以下方式附加到文本框：

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

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

我试过

UserForm1.TextBox1.CurLine = -1

和

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

Answer 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

Answer 2

尝试了所有并浪费了大量时间，并尝试了几乎所有方法，直到在Internet上的某个地方遇到了这个问题：

.HideSelection = False

那行得通！希望对别人也有帮助...

将文本框自动滚动到底部

2 个答案: