![]() ![]() | ||||
HomeShow ChangesEditPrintRecent ChangesSubscriptionsLost and FoundFind ReferencesRename
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 | 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 | ||