The Problem SolverWIndows Workflow Foundation
HomeShow ChangesEditPrintRecent ChangesSubscriptionsLost and FoundFind ReferencesRename

Search

History

26-11-2007 08:10:415-10-2007 18:58:3012-9-2007 13:16:115-6-2007 10:30:3520-5-2007 09:52:05

List all versions

Get All Activities
.
Summary
Public Shared Function GetAllActivities(ByVal root As Activity) As List(Of Activity)
    Dim result As New List(Of Activity)
    Dim i As Integer = 0
    Dim current As Activity
    result.Add(root)
 
    While i < result.Count
        current = result(i)
        Dim ca As CompositeActivity = TryCast(current, CompositeActivity)
 
        If ca IsNot Nothing Then
            result.AddRange(ca.Activities)
        End If
        i += 1
    End While
 
    Return result
End Function
Wiki Usage

This wiki site is supposed to be a shared resource. As a shared resource everyone is encouraged to add new content or modify existing content!

Enjoy the WF wiki.

Recent Topics