LzmTW.uSystem.uThreading+CrossThread

Author：水如烟  

Imports  System.Runtime.InteropServices

Namespace  LzmTW.uSystem.uThreading
     Public   Class  CrossThread

         Private   Sub   New ()
         End Sub

         Public   Shared   Sub  SetControlPropertyValue( ByVal  ctr  As   Object ,  ByVal  propertyName  As   String ,  ByVal  value  As   Object ,  ByVal  index  As   Object ())

             If   TypeOf  ctr  Is  Control  Then

                 Dim  mInvoker  As  Control  =   CType (ctr, Control)

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  SetControlPropertyValueHandler  =   New  SetControlPropertyValueHandler( AddressOf  SetControlPropertyValue)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, propertyName, value, index})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    uReflection.MemberInfoFunction.SetPropertyValue(ctr, propertyName, value, index)
                    Application.DoEvents()
                 End   If

             ElseIf   TypeOf  ctr  Is  ToolStripItem  Then

                 Dim  mInvoker  As  ToolStrip  =   CType (ctr, ToolStripItem).GetCurrentParent

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  SetControlPropertyValueHandler  =   New  SetControlPropertyValueHandler( AddressOf  SetControlPropertyValue)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, propertyName, value, index})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    uReflection.MemberInfoFunction.SetPropertyValue(ctr, propertyName, value, index)
                    Application.DoEvents()
                 End   If

             End   If

         End Sub


         Public   Shared   Sub  UpdateControlByCurrentClassAction( ByVal  ctr  As   Object ,  ByVal  action  As  Threading.ThreadStart)
             If   TypeOf  ctr  Is  Control  Then

                 Dim  mInvoker  As  Control  =   CType (ctr, Control)

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  UpdateControlByCurrentClassActionHandler  =   New  UpdateControlByCurrentClassActionHandler( AddressOf  UpdateControlByCurrentClassAction)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, action})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    action.Method.Invoke(ctr,  Nothing )
                 End   If

             ElseIf   TypeOf  ctr  Is  ToolStripItem  Then

                 Dim  mInvoker  As  ToolStrip  =   CType (ctr, ToolStripItem).GetCurrentParent

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  UpdateControlByCurrentClassActionHandler  =   New  UpdateControlByCurrentClassActionHandler( AddressOf  UpdateControlByCurrentClassAction)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, action})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    action.Method.Invoke(ctr,  Nothing )
                 End   If

             End   If
         End Sub

         Public   Shared   Sub  UpdateControlByOtherClassAction( ByVal  ctr  As   Object ,  ByVal  actionObject  As   Object ,  ByVal  action  As  Threading.ThreadStart)
             If   TypeOf  ctr  Is  Control  Then

                 Dim  mInvoker  As  Control  =   CType (ctr, Control)

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  UpdateControlByOtherClassActionHandler  =   New  UpdateControlByOtherClassActionHandler( AddressOf  UpdateControlByOtherClassAction)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, actionObject, action})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    action.Method.Invoke(actionObject,  Nothing )
                 End   If

             ElseIf   TypeOf  ctr  Is  ToolStripItem  Then

                 Dim  mInvoker  As  ToolStrip  =   CType (ctr, ToolStripItem).GetCurrentParent

                 If  mInvoker  Is   Nothing   OrElse  mInvoker.IsDisposed  Then   Exit Sub

                 If  mInvoker.InvokeRequired  Then

                     Dim  d  As  UpdateControlByOtherClassActionHandler  =   New  UpdateControlByOtherClassActionHandler( AddressOf  UpdateControlByOtherClassAction)
                     Try
                        mInvoker.Invoke(d,  New   Object () {ctr, actionObject, action})
                     Catch  ex  As  Exception

                     End   Try

                 Else

                    action.Method.Invoke(actionObject,  Nothing )
                 End   If

             End   If
         End Sub

         Public   Shared   Sub  StartActionByThreading( ByVal  threadStart  As  Threading.ThreadStart,  ByVal  waiting  As   Boolean ,  ByRef  abort  As   Boolean )
             Dim  t  As   New  Threading.Thread(threadStart)
            t.Start()
             If  waiting  Then
                 While  t.IsAlive
                    Windows.Forms.Application.DoEvents()
                     If  abort  Then
                         Try
                            t.Abort()
                         Catch  ex  As  Exception
                         End   Try
                     End   If
                 End   While
             End   If

            abort  =   True
         End Sub

         Public   Shared   Sub  StartActionByThreading( ByVal  threadStart  As  Threading.ThreadStart)
            StartActionByThreading(threadStart,  False ,  False )
         End Sub

         Public   Shared   Sub  UpdateControlByCurrentClassThreadAction( ByVal  ctr  As   Object ,  ByVal  action  As  Threading.ThreadStart,  ByRef  abort  As   Boolean )
             SyncLock  InternalSyncObject
                gCtr  =  ctr
                gAction  =  action

                StartActionByThreading( AddressOf  ThreadActionByCurrentClass,  True , abort)
             End   SyncLock
         End Sub

         Public   Shared   Sub  UpdateControlByCurrentClassThreadAction( ByVal  ctr  As   Object ,  ByVal  action  As  Threading.ThreadStart)
             SyncLock  InternalSyncObject
                gCtr  =  ctr
                gAction  =  action

                StartActionByThreading( AddressOf  ThreadActionByCurrentClass)
             End   SyncLock
         End Sub

         Private   Shared   Sub  ThreadActionByCurrentClass()
            UpdateControlByCurrentClassAction(gCtr, gAction)
         End Sub

         Public   Shared   Sub  UpdateControlByOtherClassThreadAction( ByVal  ctr  As   Object ,  ByVal  actionObject  As   Object ,  ByVal  action  As  Threading.ThreadStart,  ByRef  abort  As   Boolean )
             SyncLock  InternalSyncObject
                gCtr  =  ctr
                gAction  =  action
                gActionInstance  =  actionObject
                StartActionByThreading( AddressOf  ThreadActionByOtherClass,  True , abort)
             End   SyncLock
         End Sub


         Public   Shared   Sub  UpdateControlByOtherClassThreadAction( ByVal  ctr  As   Object ,  ByVal  actionObject  As   Object ,  ByVal  action  As  Threading.ThreadStart)
             SyncLock  InternalSyncObject
                gCtr  =  ctr
                gAction  =  action
                gActionInstance  =  actionObject
                StartActionByThreading( AddressOf  ThreadActionByOtherClass)
             End   SyncLock
         End Sub


         Private   Shared   Sub  ThreadActionByOtherClass()
            UpdateControlByOtherClassAction(gCtr, gActionInstance, gAction)
         End Sub

         Private   Shared   ReadOnly   Property  InternalSyncObject()  As   Object
             Get
                 If  gInternalSyncObject  Is   Nothing   Then
                     Dim  tmpObj  As   New   Object
                    System.Threading.Interlocked.CompareExchange(gInternalSyncObject, tmpObj,  Nothing )
                 End   If
                 Return  gInternalSyncObject
             End   Get
         End Property

         Private   Shared  gInternalSyncObject  As   Object
         Private   Shared  gCtr  As   Object
         Private   Shared  gAction  As  Threading.ThreadStart
         Private   Shared  gActionInstance  As   Object
     End Class
End Namespace