sdk/samples/WPFSamples/BrowserInteropHelperSample/visualbasic/sharedpages/taskcontext.vb

   1 Imports System
   2
   3 Namespace SharedPages
   4
   5     ' Used to manage the state of a particular task, including:
   6     '    1) If completed, whether it was accepted or canceled (.Result)
   7     '    2) The data that was collected by the task (.Data).
   8     Public Class TaskContext
   9
  10         Public Sub New(ByVal result As TaskResult, ByVal data As Object)
  11             Me._result = result
  12             Me._data = data
  13         End Sub
  14
  15
  16         ' Properties
  17         Public Property Data() As Object
  18             Get
  19                 Return Me._data
  20             End Get
  21             Set(ByVal value As Object)
  22                 Me._data = value
  23             End Set
  24         End Property
  25
  26         Public Property Result() As TaskResult
  27             Get
  28                 Return Me._result
  29             End Get
  30             Set(ByVal value As TaskResult)
  31                 Me._result = value
  32             End Set
  33         End Property
  34
  35
  36         Private _data As Object
  37         Private _result As TaskResult
  38
  39     End Class
  40 End Namespace
  41
  42