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

测试类:

Imports LzmTW.ApplicationBase
Imports LzmTW.uRemoting.MethodWatcher

<MethodLog()> <MethodLogAppend("Add")> <MethodLogAppend("LinkDatabase")> _
<MessageForm()> _
<MessageFormAppend("Add", _
Message:="正处理Add若你原耐心等多一天，定会令历史因些改", title:="请稍候,就五分钟也等不来吗", _
Formtype:=MessageFormType.Progress)> _
<MessageFormAppend("LinkDatabase", _
Message:="正尝试连接数据库 ." & vbCrLf & "你不用说我也知道，可我也骗我自己，说你没骗我", title:="稍等，骗人的，数据库在哪？", _
Formtype:=MessageFormType.Progress)> _
Public Class MethodWatcherTestClass
    Inherits ContextBoundObject


    Public Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
        'LzmTW.ApplicationBase.WaitingForm.DefaultForm.Show()
        For i As Integer = 0 To 2000
            ' LzmTW.ApplicationBase.WaitingForm.DefaultForm.ReceiveMessage("正在处理第{0}项", New Object() {i})
            Threading.Thread.Sleep(1)
        Next
        ' LzmTW.ApplicationBase.WaitingForm.DefaultForm.Close()
        Return x + y
    End Function

    Public Sub LinkDatabase(ByVal t As String, ByVal b As String)
        For i As Integer = 0 To 2000
            'Console.WriteLine(i)
            Threading.Thread.Sleep(1)
        Next
    End Sub

End Class

测试代码:

Public Class Form1

    Dim t As New MethodWatcherTestClass
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        t.Add(100, 1)
        t.LinkDatabase("it", "is")
    End Sub

    Dim MethodLogCenter As New LzmTW.uRemoting.MethodWatcher.MethodLogCenter

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MethodLogCenter.Ready()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MethodLogCenter.Remove()
    End Sub

    Private Sub testThread()
        t.Add(1, 1)
        t.LinkDatabase("it", "is")
    End Sub
End Class

图示如前文所示,输出日志为:

WaitingDemo.MethodWatcherTestClass+Add(100,1)
MethodOtherBeing:WaitingDemo.MethodWatcherTestClass+Add:MessageFormAppendAttribute
MethodOtherOver:WaitingDemo.MethodWatcherTestClass+Add:MessageFormAppendAttribute
WaitingDemo.MethodWatcherTestClass+Add Result is 101
WaitingDemo.MethodWatcherTestClass+LinkDatabase(it,is)
MethodOtherBeing:WaitingDemo.MethodWatcherTestClass+LinkDatabase:MessageFormAppendAttribute
MethodOtherOver:WaitingDemo.MethodWatcherTestClass+LinkDatabase:MessageFormAppendAttribute
WaitingDemo.MethodWatcherTestClass+LinkDatabase Result is System.Void