Нет ли простого способа установить текст в формате WPF StatusBar?

Question

Я хочу установить текст TextBlock в свой StatusBar, прежде чем пользователь будет ждать короткого момента, пока моя программа немного поработает.

Aparently, вместо того, чтобы делать миленькие функции вроде этого (который не работает):

Function Load(ByVal Id As Guid) As Thing 
    Cursor = Cursors.Wait 
    TextBlockStatus.Text = "Loading..." 
    TextBlockStatus.UpdateLayout() 
    Dim Found = From t In db.Thing _ 
       Where t.Id = Id _ 
       Select t 
    TextBlockStatus.Text = String.Empty 
    Cursor = Cursors.Arrow 
    Return Found 
End Function 

я должен использовать вместо этого урода:

Private WithEvents LoadWorker As BackgroundWorker 

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded 
    InitializeLoadWorker() 
End Sub 

Private Sub InitializeLoadWorker() 
    LoadWorker = New BackgroundWorker 
    LoadWorker.WorkerSupportsCancellation = False 
    LoadWorker.WorkerReportsProgress = False 
    AddHandler LoadWorker.DoWork, AddressOf LoadBackgroundWorker_DoWork 
    AddHandler LoadWorker.RunWorkerCompleted, AddressOf LoadBackgroundWorker_RunWorkerCompleted 
End Sub 

Sub Load(ByVal Id As Guid) 
    Cursor = Cursors.Wait 
    LoadWorker.RunWorkerAsync(Argument) 
End Sub 

Private Sub LoadBackgroundWorker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) 
    Dim Worker As BackgroundWorker = DirectCast(sender, BackgroundWorker) 
    Dim Id As Guid = DirectCast(e.Argument, Guid) 
    e.Result = From t In db.Thing _ 
       Where t.Id = Id _ 
       Select t 
End Sub 

Private Sub LoadBackgroundWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) 
    TextBlockStatus.Text = String.Empty 
    Cursor = Cursors.Arrow 
    Dim Found As Thing = DirectCast(e.Result, Thing) 
    'now do something with the found thing here instead of where Load() is called.' 
End Sub 

и нагрузка() Функция теперь Sub !!

Должен быть лучший способ справиться с такой простой ситуацией. Это не должно быть асинхронным.

Answer 1

Посмотрите на этот вопрос: Display Wait Screen in WPF.

Принятый ответ имеет способ делать то, что я думаю, вы хотите, без рабочего класса фона.

Из ссылки в ответ на другой вопрос, это может работать на VB.NET (я не пробовал, хотя)

Public Sub AllowUIToUpdate() 

    Dim frame As New DispatcherFrame() 

    Dispatcher.CurrentDispatcher.BeginInvoke(DispatcherPriority.Render, New DispatcherOperationCallback(AddressOf JunkMethod), frame) 

    Dispatcher.PushFrame(frame) 

End Sub 

Private Function JunkMethod(ByVal arg As Object) As Object 

    DirectCast(arg, DispatcherFrame).Continue = False 
    Return Nothing 

End Function