异类HOW TO:适时弹出指示框(四)

Author: 水如烟

指示框的实现:
MessageFormAttribute.vb

Namespace  uRemoting.MethodWatcher
     < AttributeUsage(AttributeTargets.Class) >  _
     Public   Class  MessageFormAttribute
         Inherits  MethodWatcherBaseAttribute

         Protected   Overrides   Function  GetMethodWatcherProperty()  As  MethodWatcherBaseProperty
             Return   New  MessageFormProperty
         End Function
     End Class

End Namespace

MessageFormProperty.vb

Namespace  uRemoting.MethodWatcher

     Public   Class  MessageFormProperty
         Inherits  MethodWatcherBaseProperty

         Protected   Overrides   Function  CreateSink( ByVal  nextSink  As  System.Runtime.Remoting.Messaging.IMessageSink)  As  System.Runtime.Remoting.Messaging.IMessageSink
             Return   New  MessageFormSink(nextSink)
         End Function

     End Class

End Namespace

MessageFormSink.vb

Imports  System.Runtime.Remoting.Messaging

Namespace  uRemoting.MethodWatcher

     Public   Class  MessageFormSink
         Inherits  MethodWatcherBaseSink

         Sub   New ( ByVal  nextSink  As  IMessageSink)
             MyBase .New(nextSink)
         End Sub


         Protected   Overrides   Sub  After_MethodCall( ByVal  replyMsg  As  System.Runtime.Remoting.Messaging.IMethodReturnMessage,  ByVal  MethodAppendType  As  System.Type)
             If  replyMsg  Is   Nothing   Then
                 Return
             End   If
            MessageFormCenter.Close(replyMsg, MethodAppendType)

             MyBase .After_MethodCall(replyMsg, MethodAppendType)
         End Sub

         Protected   Overrides   Sub  Before_MethodCall( ByVal  callMsg  As  System.Runtime.Remoting.Messaging.IMethodCallMessage,  ByVal  MethodAppendType  As  System.Type)
             If  callMsg  Is   Nothing   Then
                 Return
             End   If

            MessageFormCenter.ShowForm(callMsg, MethodAppendType)

             MyBase .Before_MethodCall(callMsg, MethodAppendType)
         End Sub

         Protected   Overrides   ReadOnly   Property  MethodWatcherAppendAttributeType()  As  System.Type
             Get
                 Return   GetType (MessageFormAppendAttribute)
             End   Get
         End Property
     End Class

End Namespace

MessageFormAppendAttribute.vb

Namespace  uRemoting.MethodWatcher
     < AttributeUsage(AttributeTargets.Class, allowmultiple: = True ) >  _
     Public   NotInheritable   Class  MessageFormAppendAttribute
         Inherits  MethodWatcherAppendBaseAttribute

         Private  gMessage  As   String   =   " 处理中 "
         Private  gTitle  As   String   =   " 请稍候 "
         Private  gFormType  As  ApplicationBase.MessageFormType  =  ApplicationBase.MessageFormType.Message

         Sub   New ( ByVal  methodName  As   String )
             MyBase .New(methodName)
         End Sub

         Public   Property  Message()  As   String
             Get
                 Return  gMessage
             End   Get
             Set ( ByVal  value  As   String )
                gMessage  =  value
             End   Set
         End Property

         Public   Property  Title()  As   String
             Get
                 Return  gTitle
             End   Get
             Set ( ByVal  value  As   String )
                gTitle  =  value
             End   Set
         End Property

         Public   Property  FormType()  As  ApplicationBase.MessageFormType
             Get
                 Return  gFormType
             End   Get
             Set ( ByVal  value  As  ApplicationBase.MessageFormType)
                gFormType  =  value
             End   Set
         End Property
     End Class

End Namespace

MessageFormCenter.vb

Imports  System.Runtime.Remoting.Messaging

Namespace  uRemoting.MethodWatcher

     Public   Class  MessageFormCenter

         Private   Shared  gWaitingFormCollection  As   New  Dictionary(Of  String , ApplicationBase.WaitingForm)

         Private   Sub   New ()
         End Sub


         Public   Shared   Sub  ShowForm( ByVal  callMsg  As  IMethodCallMessage,  ByVal  MethodAppendType  As  System.Type)

            NowMethodName  =  MethodWatcherCommon.GetFullMethodName(callMsg, MethodAppendType)
            IsClose.Add(NowMethodName,  False )
             Dim  td  As   New  Threading.Thread( New  Threading.ThreadStart( AddressOf  Show))
            td.Start()
         End Sub

         Public   Shared   Sub  Close( ByVal  replyMsg  As  IMethodReturnMessage,  ByVal  MethodAppendType  As  System.Type)

            NowMethodName  =  MethodWatcherCommon.GetFullMethodName(replyMsg, MethodAppendType)
            IsClose(MethodWatcherCommon.GetFullMethodName(replyMsg,  GetType (MessageFormAppendAttribute)))  =   True
             While  IsClose.ContainsKey(NowMethodName)
                Windows.Forms.Application.DoEvents()
             End   While
            gWaitingFormCollection.Remove(MethodWatcherCommon.GetFullMethodName(replyMsg, MethodAppendType))
         End Sub

         Private   Shared   Function  WaitingForm( ByVal  methodName  As   String )  As  ApplicationBase.WaitingForm

             If   Not  gWaitingFormCollection.ContainsKey(methodName)  Then

                 Dim  a  As  MessageFormAppendAttribute  =   CType (MethodCollection.DefaultInstance(methodName), MessageFormAppendAttribute)
                 Dim  f  As   New  ApplicationBase.WaitingForm(a.FormType)
                 With  f
                    .ReceiveMessage(a.Title,  True )
                    .ReceiveMessage(a.Message)
                 End   With
                gWaitingFormCollection.Add(methodName, f)
             End   If
             Return  gWaitingFormCollection(methodName)
         End Function

         Private   Shared  IsClose  As   New  Dictionary(Of  String ,  Boolean )
         Private   Shared  NowMethodName  As   String

         Private   Shared   Sub  Show()
            WaitingForm(NowMethodName).Show()

             Do   While   Not  IsClose(NowMethodName)
                Windows.Forms.Application.DoEvents()
             Loop

            IsClose.Remove(NowMethodName)
         End Sub
     End Class

End Namespace