vba - 默认情况下，文本框不应滚动到末尾

默认情况下，我在VBA中的文本框滚动到底部。我不想要这个。我希望在用户窗体显示时滚动条保持在顶部。

解？

最佳答案

在UserForm的Initialize事件中，使用.SelStart将光标的起点设置为TextBox的起点。

例如。

Private Sub UserForm_Initialize()
    Dim sSample As String
    Dim i As Long

    For i = 1 To 10
        sSample = sSample & "Blah Blah" & i & vbNewLine
    Next i

    TextBox1.Text = sSample

    '~~> Set to starting point
    TextBox1.SelStart = 0
End Sub