是否可以在表单上创建类似于立即窗口的内容?
我尝试将各种更新发送到文本框,但是文本框的更新速率似乎比Debug.Print
直接窗口的更新速度慢得多。
最好告诉用户在等待处理某些内容时当前正在执行哪些操作(并且不要跳过某些操作,因为它们的处理速度似乎比更新速率所允许的快)。
在过去,我一直使用单一的多行文本框的滚动状态窗口尝试,但它似乎是不相称挑剔的,当它来选择的文本状态(.SelText
,.SelLength
,.SelLength
)。最后,我只用了五(5)个单行文本框控件,然后自己“滚动”了它们。
在下面的截图文本框控件被命名为txtStatus4
,txtStatus3
,... txtStatus0
(从上到下)
和更新状态“窗口”(实际上是一个框架控件)的代码是
Private Sub UpdateStatus(StatusText As String)
Dim i As Long
For i = 4 To 1 Step -1
Me.Controls("txtStatus" & i).Value = Me.Controls("txtStatus" & i - 1).Value
Next
Me.txtStatus0.Value = StatusText
Me.Repaint
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句