フォームにイミディエイトウィンドウのようなものを作成することは可能ですか?
テキストボックスにさまざまな更新を送信しようとしましたが、テキストボックスの更新速度は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]
コメントを追加