正确处理来自不同线程的对模块中函数的调用

我目前有一个。NET应用程序，其中函数（在窗体中）调用公共函数（位于模块中）。表单函数（WriteValueToTag）将一些值传递给模块函数（WriteToPLC），并返回True或False。模块函数（WriteToPLC）始终从WriteValueToTag调用（从未直接调用），并且仅在表单中使用。但是，表单上有一个第三方控件，它在调用WriteValueToTag函数时引发事件。因此，它是在一个独立于主UI窗体的线程上调用的

我遇到的问题是（根据我的日志记录）这个函数有时似乎是从不同的线程同时调用的。参数值出现不同步导致错误。这两个函数都不更新表单上的任何数据或控件（所以我不检查Invoke.Required等）。我不确定是应该在函数中进行此检查，还是应该使用thread在自己的线程中启动WriteToPLC函数。开始）？我曾尝试在WriteToPLC模块函数的整个内容周围放置SyncLock，但这似乎没有帮助。

如何处理模块中接收参数的公共函数的调用，这些参数可以在任何时候从不同的线程调用，以便它为每个调用它的线程唯一地运行？任何示例或链接都会有所帮助。非常感谢。

模块中的函数声明如下：

Public Function WriteToPLC(ByRef PLC As Logix.Controller, ByRef PLCTag As Logix.Tag) As Boolean

调用它的形式中的子例程声明是：

Private Function WriteValueToTag(ByVal PLCTagValue As Object, ByRef PLCTagName As Logix.Tag) As Boolean

在这里，WriteToPLC被称为传递适当的值。

我想确保在使用Invoke时保留ByRef参数，所以我不确定WriteValueToTag函数的以下代码是否正确：

Delegate Function DelegateWriteValueToTag(ByVal PLCTagValue As Object, ByRef PLCTagName As Logix.Tag)
Private Function WriteValueToTag(ByVal PLCTagValue As Object, ByRef PLCTagName As Logix.Tag) As Boolean
    ''Dim writeLock As New Object
    Dim tagName As Logix.Tag = PLCTagName 'remember PLCTagName since it's a ByRef param
    If (InvokeRequired) Then
        Dim newDelegate As New DelegateWriteValueToTag(AddressOf WriteValueToTag)
        Dim eventArgs() As Object = {PLCTagValue, tagName}
        Log.Debug("Calling Function WriteValueToTag() via InvokeRequired")
        Dim result As Boolean
        result = CType(Invoke(newDelegate, eventArgs), Boolean)
        PLCTagName.Value = tagName.Value 'put value back in since PLCTagName param is passed ByRef
        Return result
    Else
        Try
            Log.Debug("Entering Function WriteValueToTag()")
            Log.Debug("  writing value {0} to tag {1}", PLCTagValue, tagName.Name)
            PLCTagName.Value = PLCTagValue
            Return(WriteToPLC(mPLC, PLCTagName))
        Catch ex As Exception
            HandleError(ex, False)
            Return False
        End Try
    End If
End Function

这是调用WriteValueToTag以保留ByRef参数的正确方法吗？我想知道，由于我使用"eventArgs（）"来传递变量，这是一个对象，这是否会传递对该对象的引用（即使Invoke的参数声明为ByVal）。如果这是真的，我是否仍然需要声明任何局部变量tagName来存储该值，然后在Invoke之后将其设置回？

还想知道它是否会像这样简单：

 If (InvokeRequired) Then
        Dim newDelegate As New DelegateWriteValueToTag(AddressOf WriteValueToTag)
        Dim eventArgs() As Object = {PLCTagValue, PLCTagName}
        Log.Debug("Calling Function WriteValueToTag() via InvokeRequired")
        Dim result As Boolean
        result = CType(Invoke(newDelegate, eventArgs), Boolean)
        PLCTagName.Value = PLCTagValue 'retain PLCTagName.Value as it's passed ByRef and Invoke will not change it
        Return result

private void WriteValueToTag(object PLCTagValue, ref Logix.Tag PLCTagName)
{
    Logix.Tag tagName = PLCTagName;
    this.Invoke((MethodInvoker)(() => WriteValueToTagImpl(PLCTagValue, ref tagName)));
    PLCTagName = tagName;
}
private void WriteValueToTagImpl(object PLCTagValue, ref Logix.Tag PLCTagName)
{
    // original method body here
}

Private Function WriteValueToTag(ByVal PLCTagValue As Object, ByRef PLCTagName As Logix.Tag) As Boolean
    Dim tagName As Logix.Tag = PLCTagName 'remember PLCTagName since it's a ByRef param
    Dim result As Boolean
    Invoke(CType(
    (
        Sub()
            Try
                Log.Debug("Entering Function WriteValueToTag()")
                Log.Debug("  writing value {0} to tag {1}", PLCTagValue, tagName.Name)
                tagName.Value = PLCTagValue
                result = WriteToPLC(mPLC, tagName)
            Catch ex As Exception
                HandleError(ex, False)
                result = False
            End Try
        End Sub
    ), MethodInvoker))
    PLCTagName = tagName
    Return result
End Function