得到工作流结点列表

没什么技术含量,一个递归,过几天写一个可以将工作流节点以图形方式显示出来的例,这样就可以用在WEB页上了

    Public   Sub 列结点() Sub 列结点(ByVal obj As Object)
        If TypeOf obj Is Workflow.ComponentModel.CompositeActivity Then
            Dim wxd As Workflow.ComponentModel.CompositeActivity
            wxd = CType(obj, Workflow.ComponentModel.CompositeActivity)
            Dim s As String
            s = String.Format("说明:{0},名称:{1},类型:{2}", wxd.Description, wxd.QualifiedName, wxd.GetType.ToString)
            Console.WriteLine(s)
            For Each temp As Object In wxd.Activities
                列结点(temp)
            Next
        Else
            If TypeOf obj Is Workflow.ComponentModel.Activity Then
                Dim wxd As Workflow.ComponentModel.Activity
                wxd = CType(obj, Workflow.ComponentModel.Activity)
                Dim s As String
             s = String.Format("说明:{0},名称:{1},类型:{2}", wxd.Description, wxd.QualifiedName, wxd.GetType.ToString)
                Console.WriteLine(s)
            End If
        End If
    End Sub

调用

 列结点(当前操作的实例.GetWorkflowDefinition())