本文整理汇总了VB.NET中System.Workflow.Runtime.Hosting.WorkflowPersistenceService.SaveWorkflowInstanceState方法的典型用法代码示例。如果您正苦于以下问题：VB.NET WorkflowPersistenceService.SaveWorkflowInstanceState方法的具体用法？VB.NET WorkflowPersistenceService.SaveWorkflowInstanceState怎么用？VB.NET WorkflowPersistenceService.SaveWorkflowInstanceState使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了WorkflowPersistenceService.SaveWorkflowInstanceState方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: SaveWorkflowInstanceState
' Save the workflow instance state at the point of persistence with option of locking the instance state if it is shared
' across multiple runtimes or multiple phase instance updates
Protected Overrides Sub SaveWorkflowInstanceState(ByVal rootActivity As System.Workflow.ComponentModel.Activity, ByVal unlock As Boolean)
Dim contextGuid As Guid = CType(rootActivity.GetValue(Activity.ActivityContextGuidProperty), Guid)
Console.WriteLine("Saving instance: 0}" + vbLf, contextGuid)
SerializeToFile( _
WorkflowPersistenceService.GetDefaultSerializedForm(rootActivity), contextGuid)
' See when the next timer (Delay activity) for this workflow will expire
Dim timers As TimerEventSubscriptionCollection = CType(rootActivity.GetValue(TimerEventSubscriptionCollection.TimerCollectionProperty), TimerEventSubscriptionCollection)
Dim subscription As TimerEventSubscription = timers.Peek()
If subscription IsNot Nothing Then
' Set a system timer to automatically reload this workflow when it's next timer expires
Dim timeDifference As TimeSpan = subscription.ExpiresAt - DateTime.UtcNow
Dim callback As TimerCallback = New TimerCallback(AddressOf ReloadWorkflow)
Dim timer As New System.Threading.Timer( _
callback, _
subscription.WorkflowInstanceId, _
CType(IIf(timeDifference < TimeSpan.Zero, TimeSpan.Zero, timeDifference), TimeSpan), _
New TimeSpan(-1))
End If
End Sub开发者ID:VB.NET开发者，项目名称:System.Workflow.Runtime.Hosting，代码行数:22，代码来源:WorkflowPersistenceService.SaveWorkflowInstanceState