forms - 使用文本框自动滚动到底部

Question

我有一个由 ms access 制作的 mdb 文件。它里面有一个表格，表格里面有一个大文本框。

制作此文本框的目的是通过在文本框中添加消息来显示某些工作的进度:

txtStatus.value = txtStatus.value & "Doing something..." & vbCrLf
txtStatus.value = txtStatus.value & "Done." & vbCrLf

但问题是，当文本高度 > 文本框高度时，新消息不会自动显示。文本框有一个滚动条，但我必须手动滚动它。每当新文本弹出时，我想自动滚动到底部。

我试图在 On Change 属性中添加此代码(从互联网复制)，但代码失败，它什么也没做:

Private Sub txtStatus_Change()
    txtStatus.SelStart = Len(txt) - 1
End Sub

我希望有一些简单而美丽的方法来实现这一目标。我不想添加一些仅在某些计算机上工作的代码，因为它依赖于 Windows 平台的内核/等。

Answer 1

您可以通过调用 sub 来实现；

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