如何在 WPF 中“DoEvents”？

Question

我看过C#版本如下：

Application.Current.Dispatcher.Invoke(
          DispatcherPriority.Background,
          new Action(delegate { }));

但是我不知道如何将空委托放入 VB.NET，因为 VB.NET 似乎不支持匿名方法。想法？

编辑：可能是这个？

Application.Current.Dispatcher.Invoke(
  DispatcherPriority.Background,
  New Action(Sub()

             End Sub))

Answer 1

VB.NET 确实支持匿名委托，但仅作为单语句函数。 （VB10在.NET 4中添加了多语句匿名函数和匿名Subs）

为了提供上下文，DoEvents 旨在允许单线程环境在工作完成时更新 UI 并处理其他 Windows 消息。从另一个线程调用DoEvents（或者，正如您在这里所做的那样，通过在调度程序上执行“null”函数间接这样做）应该没有任何好处，因为 UI 线程应该自行更新。

不过，为了回答您的问题，最简单的选择是这样的：

Application.Current.Dispatcher.Invoke(DispatcherPriority.Background, _
    New Action(Function() 7))

但是，再一次，我看不出这实际上会完成什么。

如果您正在寻找的只是如何在 UI 线程上执行代码（如 Windows 窗体中的 Control.Invoke），那么 Dispatcher.Invoke（您正在使用的）是正确的，您将只需将您的内联匿名方法转换为谨慎的函数并将它们作为委托传递。可能有一些你可以匿名离开。例如，如果您所做的只是更新进度条，您可以这样做：

Application.Current.Dispatcher.Invoke(DispatcherPriority.Background, _
    New Action(Function() progressBar.Value = 100))

这是可行的，因为所有赋值都返回存储在赋值左侧的值。但是，您不能只调用这样的子程序（除非SomeFunctionName 返回值，否则以下代码不会编译）：

Application.Current.Dispatcher.Invoke(DispatcherPriority.Background, _
    New Action(Function() SomeFunctionName(params)))

换句话说，C# 代码中的任何匿名委托：

• 不止一个陈述
• 不返回值（意味着它只是对方法的一次调用，而不是函数）

然后您必须为这些函数创建函数并将委托传递给这些函数，而不是像在 C# 中那样内联代码。

Answer 2

如果您想在 UI 上刷新某些内容，您可以简单地调用此方法：

System.Windows.Forms.Application.DoEvents

我们在 WPF Window 和 XBAP 应用程序中使用它。

Answer 3

这里有两个问题，所以我要添加两个答案。在这里，我正在回答“如何在 WPF 中执行 DoEvents”。 Bea Stollnitz 在her blog 上对此进行了介绍，这是 VB 中的代码：

publicShared Sub WaitForPriority(priority As DispatcherPriority)
    Dim frame As New DispatcherFrame()
    Dim dispatcherOperation As DispatcherOperation = Dispatcher.CurrentDispatcher.BeginInvoke(priority, New DispatcherOperationCallback(ExitFrameOperation), frame)
    Dispatcher.PushFrame(frame)
    If dispatcherOperation.Status <> DispatcherOperationStatus.Completed Then
        dispatcherOperation.Abort()
    End If
End Sub

Private Shared Function ExitFrameOperation(obj As Object) As Object
    (DirectCast(obj, DispatcherFrame)).[Continue] = False
    Return Nothing
End Function

Answer 4

或简单地使用调度程序为 WPF 制作一个 Doevents()：

    'The WPF equivalent of DoEvents!!
Public Sub DoEvents()
    Dispatcher.Invoke(New Action(Function()
                                     Return Nothing
                                 End Function), DispatcherPriority.ContextIdle, Nothing)
End Sub

Answer 5

使用 Function 关键字：

Application.Current.Dispatcher.Invoke(DispatcherPriority.Background, New Action(Function() Do ... End Function))