通过模态WinFormVSTO将线程回输到Office

问题描述

我的行为难以重现，但始终会通过几个用户（通常是相同的用户，但并非总是如此）回击：在VSTO加载项（此处为Excel）上，使用{{1 }}，依次Excel.Shape，然后.Duplicate，然后.Copy，然后在DifferentSpreadsheet.Paste或Exception处抛出.Copy。 / p>

我尝试过的事情

我在这里分享我的经验，不仅是为了演示该主题，还包括在有人遇到类似问题的情况下。我被困了几个月，很乐意拯救任何经历同样的事情。

第一个解决方法是在.Paste和Threading.Thread.Sleep(TimeSpan>0)之间插入.Copy。我认为这是由于.Paste的 70％而解决的，由于剪贴板的比赛条件。

第二种解决方法是要求所有用户关闭Office剪贴板。该工具是微软几十年前开发的，取得了相当有限的成功。但他们最近似乎试图通过为所有Office 365用户静默激活它来促使用户使用它。陷阱是，即使关闭“ Office剪贴板”面板，它也会继续收集并似乎锁定对新创建的对象的访问，直到Office（此处为Excel）将UI线程放回。这解决了Exceptions的 25％。

但是我们仍然有 5％情况，我们不知道发生了什么。这5％可能是来自一家公司的少数用户，该公司的其他数十名用户没有任何问题，并且所有计算机的配置方式均类似。但是它也可能是偶尔出现过一次随机问题的用户，以前从未遇到过该问题，并且在再次尝试后再也无法获得它。 在怀疑Office剪贴板发生的事情是Office需要取回其UI线程以便可以释放对象之后，我开始使代码异步，目的是在Exceptions之前await Task.Delay(TimeSpan)并且在.Copy之前。烦人的部分是，这涉及到重新键入代码负载，使整个堆栈从Click事件到复制/粘贴一系列.Paste返回Async Function或Task，等等;而我所需要的只是在一个或两个特定位置放回线程。换句话说，这影响了巨大的对象块，一直扩展到整个堆栈，并且不可避免地会影响维护。

当前解决方案

因此，我实现了一个通过Tasks(Of T)调用的WinForm。该WinForm具有一个.ShowDialog，该Windows.Forms.Timer在所需的持续时间之后。勾选时，将Ticks d WinForm。 它就像魔术一样工作，即使激活了Office剪贴板，我们现在也有0％的错误。但是，对我来说，这看起来像是骇客/气味，我想实现一些更简洁的方法。

除了等待.Close之外，还有其他选择吗？

为了自己寻找替代方案，有人可以帮助我了解Task.Delay背景下发生的情况吗？我高度怀疑那里有一些异步，但是我很困惑地了解.Net如何在等待模态形式的响应时知道在哪里继续。

源代码和用法示例

.ShowDialog

解决方法

我不确定它是否会对您有所帮助，但我将向您展示如何在自己的自动化代码中进行抽水等待。这需要有一个活动的Dispatcher，因为它依靠Dispatcher.PushFrame来抽取消息，直到准备继续。

Function WaitForEvent(ByVal eventHandle as EventWaitHandle,Optional ByVal timeout As Integer = Timeout.Infinite) As Boolean
    Dim isEventSignaled As Boolean = False

    Dim frame = New DispatcherFrame()

    Dim t = New Thread(Sub()
                           isEventSignaled = eventHandle.WaitOne(timeout)
                           frame.Continue = False
                       End Sub)
    t.Start()
    Dispatcher.PushFrame(frame)

    Return isEventSignaled
End Function

您可能只需要进行固定的等待（例如在Task.Delay上进行Async Sub），而不是寻找要发出信号的事件；就我而言，我有一个.NET事件处理程序（用于COM事件），它将Windows事件翻转为已发出信号。

（对上一个段落中哪个“事件”感到困惑的歉意，这里讨论了三种不同的“事件”！）