は絶えずこれには、私と一緒に</p> <p>を負担してください、私はフォルダにさまざまなことを行い、基本的なマクロを作成したOutlookのVBAを使って、私の最初の時間です。時間

Question

上で「ステータスフォーム」ロックを更新しますこれにはしばらく時間がかかりますので、現在何をしているのかを示すステータスウィンドウを作ることにしました。私は単に問題は、それがビット（5-15秒）ウィンドウと展望ロックの残りのために実行した後ということである。この

Function UpdateStatus(Message As String) 
    StatusForm.StatusUpdate.Caption = Message 
    StatusForm.Repaint 
End Function 

と、ラベルの値のいずれかを設定しておきます。フォームはもはや更新されず、ウインドウタイトルに「（Not Responding）」が表示されます。

私は何とかUIスレッドをデッドロックしているような気がしますが、私はそれを回避する方法を失っています。驚くことではないが、それを更新することはできませんが、私はどこに見えるのか分かりません。

何か提案がありますか？

Answer 1

計算集約型のループにDoEventsを追加してみてください。こうすることでUIスレッドへの実行コードが生成され、バックグラウンドで計算量の多いものが実行されたときに他のことができるようになります。 Officeはシングルスレッドなので、マクロを実行しているときにUIをブロックできます。

サンプル：

Sub LockUI() 
    Dim x 
    x = Timer 
    Do While Timer - x < 5 
     'Blocks the UI for 5 seconds 
    Loop 
End Sub 

Sub LockUI2() 
    Dim x 
    x = Timer 
    Do While Timer - x < 5 
     'Doesn't block the UI 
     DoEvents 
    Loop 
End Sub