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()) 
  • 相关阅读:
    forever守护nodejs
    sql server自动备份
    mongodb数据库自动备份 windows
    mongodb中的objectId和字符串id之间的转换
    mongodb中内嵌数组的增删改查
    nodejs momentjs操作时间(24小时制)
    nodejs 获取某一时间的前一天 后一天
    FastDFS 文件上传成功,访问404
    Ubuntu16.04系统下FastDFS+Nginx安装配置
    ubuntu16.04安装python3.7
  • 原文地址:https://www.cnblogs.com/foundation/p/529172.html
Copyright © 2011-2022 走看看