zoukankan      html  css  js  c++  java
  • 得到工作流结点列表

    没什么技术含量,一个递归,过几天写一个可以将工作流节点以图形方式显示出来的例,这样就可以用在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()) 
  • 相关阅读:
    数组的排序
    2017-2018学年实习心得
    2017-2018学年实习总结
    古人警句
    课程意见
    第二次冲刺第十天
    第二次冲刺第九天
    第二次冲刺第八天
    第二天冲刺第七天
    第二次冲刺第六天
  • 原文地址:https://www.cnblogs.com/foundation/p/529172.html
Copyright © 2011-2022 走看看