convert VB to C#

Pilz.Threading/CrossThreadsInvokeing.vb

@@ -1,61 +0,0 @@
-'IDE-Voreinstellungen:
-'Option Explicit On
-'Option Strict On
-
-'"My Project"-Einstellungen:
-'Imports Microsoft.VisualBasic.ControlChars
-'Imports System.Windows.Forms
-'Imports System
-
-Imports System.Windows.Forms
-
-''' <summary>
-''' Stellt Methoden bereit, mit denen ein beliebiger Methoden-Aufruf mit bis zu 3 Argumenten
-''' in einen Nebenthread verlegt werden kann, bzw. aus einem Nebenthread in den Hauptthread
-''' </summary>
-Public Class CrossThreadsInvokeing
-
-    Public Shared Sub RunAsync(Of T1, T2, T3)(ByVal Action As Action(Of T1, T2, T3), ByVal Arg1 As T1, ByVal Arg2 As T2, ByVal Arg3 As T3)
-        Action.BeginInvoke(Arg1, Arg2, Arg3, AddressOf Action.EndInvoke, Nothing)
-    End Sub
-
-    Public Shared Sub RunAsync(Of T1, T2)(ByVal Action As Action(Of T1, T2), ByVal Arg1 As T1, ByVal Arg2 As T2)
-        Action.BeginInvoke(Arg1, Arg2, AddressOf Action.EndInvoke, Nothing)
-    End Sub
-
-    Public Shared Sub RunAsync(Of T1)(ByVal Action As Action(Of T1), ByVal Arg1 As T1)
-        Action.BeginInvoke(Arg1, AddressOf Action.EndInvoke, Nothing)
-    End Sub
-
-    Public Shared Sub RunAsync(ByVal Action As Action)
-        Action.BeginInvoke(AddressOf Action.EndInvoke, Nothing)
-    End Sub
-
-    Private Shared Function GuiCrossInvoke(ByVal Action As [Delegate], ByVal ParamArray Args() As Object) As Boolean
-        Dim frms As FormCollection = Application.OpenForms
-
-        If frms.Count > 0 AndAlso frms(0).InvokeRequired Then
-            frms(0).BeginInvoke(Action, Args)
-            Return True
-        End If
-
-        Return False
-    End Function
-
-    Public Shared Sub RunGui(Of T1, T2, T3)(ByVal Action As Action(Of T1, T2, T3), ByVal Arg1 As T1, ByVal Arg2 As T2, ByVal Arg3 As T3)
-        If Not GuiCrossInvoke(Action, Arg1, Arg2, Arg3) Then Action(Arg1, Arg2, Arg3)
-    End Sub
-
-    Public Shared Sub RunGui(Of T1, T2)(ByVal Action As Action(Of T1, T2), ByVal Arg1 As T1, ByVal Arg2 As T2)
-        If Not GuiCrossInvoke(Action, Arg1, Arg2) Then Action(Arg1, Arg2)
-    End Sub
-
-    Public Shared Sub RunGui(Of T1)(ByVal Action As Action(Of T1), ByVal Arg1 As T1)
-        If Not GuiCrossInvoke(Action, Arg1) Then Action(Arg1)
-    End Sub
-
-    Public Shared Sub RunGui(ByVal Action As Action)
-        If Not GuiCrossInvoke(Action) Then Action()
-    End Sub
-
-End Class