"Van den Houten Willy" <VandenHoutenWilly@discussions.microsoft.com> wrote
in message news:17D7A284-F3FA-467B-8C64-CE0EEE9477DB@microsoft.com...
> Hello,
>
> Can anyone help me to get this code up and running ?
> It's a task about nested lists, and I don't understand it.
>
> Module Client
> Sub Main()
> Dim myProcess1 As New Process("process1")
> PrintProcessData(myProcess1)
>
> Dim myTask1 As New Task("task1")
> myProcess1.AddTask(myTask1)
> PrintProcessData(myProcess1)
>
> myProcess1.AddTask(New Task("task2"))
> PrintProcessData(myProcess1)
>
> myProcess1.AddTask(New Task("task3"))
> PrintProcessData(myProcess1)
>
> Dim myProcess2 As New Process("process2")
> myProcess2.AddTasks(New Task() {New Task("task4"), myTask1, New
> Task("task5")})
> PrintProcessData(myProcess2)
>
> myTask1.Name = "task1b"
> PrintProcessData(myProcess1)
> PrintProcessData(myProcess2)
>
> myProcess2.AddTasks(myProcess1)
> PrintProcessData(myProcess2)
>
> Console.ReadLine()
> End Sub
> Sub PrintProcessData(ByVal process As Process)
> Console.WriteLine("PROCESS: " & process.Name)
> Console.WriteLine("INHOUD:")
> Console.WriteLine(process.ToString())
> Console.WriteLine("AANTAL-ELEMENTEN: " & process.Count())
> Dim firstTask As Task = process.FirstTask()
> If Not firstTask Is Nothing Then
> Console.WriteLine("FIRST-TASK: " & process.FirstTask().Name)
> Else
> Console.WriteLine("FIRST-TASK: -")
> End If
> Dim lastTask As Task = process.LastTask()
> If Not lastTask Is Nothing Then
> Console.WriteLine("LAST-TASK: " & process.LastTask().Name)
> Else
> Console.WriteLine("LAST-TASK: -")
> End If
>
> Console.WriteLine("********************************************************************************")
> End Sub
> End Module
>
>
>