1 '---------------------------------------------------------------------
2 ' This file is part of the Windows Workflow Foundation SDK Code Samples.
4 ' Copyright (C) Microsoft Corporation. All rights reserved.
6 'This source code is intended only as a supplement to Microsoft
7 'Development Tools and/or on-line documentation. See these other
8 'materials for detailed information regarding Microsoft code samples.
10 'THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
11 'KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
12 'IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
14 '---------------------------------------------------------------------
17 Imports System
.ComponentModel
18 Imports System
.Workflow
.Activities
19 Imports System
.Collections
.Generic
21 <Global.Microsoft
.VisualBasic
.CompilerServices
.DesignerGenerated()> _
22 Partial
Public Class SynchronizedActivityWorkflow
24 'NOTE: The following procedure is required by the Workflow Designer
25 'It can be modified using the Workflow Designer.
26 'Do not modify it using the code editor.
27 <System
.Diagnostics
.DebuggerNonUserCode()> _
28 Private Sub InitializeComponent()
29 Me.CanModifyActivities
= True
30 Dim stringcollection1
As System
.Collections
.Generic
.List(Of
String) = New System
.Collections
.Generic
.List(Of
String)
31 Dim stringcollection2
As System
.Collections
.Generic
.List(Of
String) = New System
.Collections
.Generic
.List(Of
String)
32 Me.decrement2
= New System
.Workflow
.Activities
.CodeActivity
33 Me.decrement1
= New System
.Workflow
.Activities
.CodeActivity
34 Me.increment2
= New System
.Workflow
.Activities
.CodeActivity
35 Me.increment1
= New System
.Workflow
.Activities
.CodeActivity
36 Me.synchronizedDecrement
= New System
.Workflow
.ComponentModel
.SynchronizationScopeActivity
37 Me.synchronizedIncrement
= New System
.Workflow
.ComponentModel
.SynchronizationScopeActivity
38 Me.decrementBranch
= New System
.Workflow
.Activities
.SequenceActivity
39 Me.incrementBranch
= New System
.Workflow
.Activities
.SequenceActivity
40 Me.endWorkflow
= New System
.Workflow
.Activities
.CodeActivity
41 Me.parallelAccess
= New System
.Workflow
.Activities
.ParallelActivity
42 Me.begin = New System
.Workflow
.Activities
.CodeActivity
46 Me.decrement2
.Name
= "decrement2"
47 AddHandler
Me.decrement2
.ExecuteCode
, AddressOf
Me.Decrement2_ExecuteCode
51 Me.decrement1
.Name
= "decrement1"
52 AddHandler
Me.decrement1
.ExecuteCode
, AddressOf
Me.Decrement1_ExecuteCode
56 Me.increment2
.Name
= "increment2"
57 AddHandler
Me.increment2
.ExecuteCode
, AddressOf
Me.Increment2_ExecuteCode
61 Me.increment1
.Name
= "increment1"
62 AddHandler
Me.increment1
.ExecuteCode
, AddressOf
Me.Increment1_ExecuteCode
64 'synchronizedDecrement
66 Me.synchronizedDecrement
.Activities
.Add(Me.decrement1
)
67 Me.synchronizedDecrement
.Activities
.Add(Me.decrement2
)
68 Me.synchronizedDecrement
.Name
= "synchronizedDecrement"
69 stringcollection1
.Add("syncMutex")
70 Me.synchronizedDecrement
.SynchronizationHandles
= stringcollection1
72 'synchronizedIncrement
74 Me.synchronizedIncrement
.Activities
.Add(Me.increment1
)
75 Me.synchronizedIncrement
.Activities
.Add(Me.increment2
)
76 Me.synchronizedIncrement
.Name
= "synchronizedIncrement"
77 stringcollection2
.Add("syncMutex")
78 Me.synchronizedIncrement
.SynchronizationHandles
= stringcollection2
82 Me.decrementBranch
.Activities
.Add(Me.synchronizedDecrement
)
83 Me.decrementBranch
.Name
= "decrementBranch"
87 Me.incrementBranch
.Activities
.Add(Me.synchronizedIncrement
)
88 Me.incrementBranch
.Name
= "incrementBranch"
92 Me.endWorkflow
.Name
= "endWorkflow"
93 AddHandler
Me.endWorkflow
.ExecuteCode
, AddressOf
Me.End_ExecuteCode
97 Me.parallelAccess
.Activities
.Add(Me.incrementBranch
)
98 Me.parallelAccess
.Activities
.Add(Me.decrementBranch
)
99 Me.parallelAccess
.Name
= "parallelAccess"
103 Me.begin.Name
= "begin"
104 AddHandler
Me.begin.ExecuteCode
, AddressOf
Me.Begin_ExecuteCode
106 'SynchronizedActivityWorkflow
108 Me.Activities
.Add(Me.begin)
109 Me.Activities
.Add(Me.parallelAccess
)
110 Me.Activities
.Add(Me.endWorkflow
)
111 Me.Name
= "SynchronizedActivityWorkflow"
112 Me.CanModifyActivities
= False
115 Private WithEvents parallelAccess
As System
.Workflow
.Activities
.ParallelActivity
116 Private WithEvents incrementBranch
As System
.Workflow
.Activities
.SequenceActivity
117 Private WithEvents decrementBranch
As System
.Workflow
.Activities
.SequenceActivity
118 Private WithEvents increment1
As System
.Workflow
.Activities
.CodeActivity
119 Private WithEvents increment2
As System
.Workflow
.Activities
.CodeActivity
120 Private WithEvents decrement1
As System
.Workflow
.Activities
.CodeActivity
121 Private WithEvents decrement2
As System
.Workflow
.Activities
.CodeActivity
122 Private WithEvents endWorkflow
As System
.Workflow
.Activities
.CodeActivity
123 Private WithEvents synchronizedIncrement
As System
.Workflow
.ComponentModel
.SynchronizationScopeActivity
124 Private WithEvents synchronizedDecrement
As System
.Workflow
.ComponentModel
.SynchronizationScopeActivity
125 Private WithEvents begin As System
.Workflow
.Activities
.CodeActivity