Imports ProductiePitching
Public Class ActivityFinishedState
Inherits ActivityState
'Not from other state.
Public Sub New(activity As IActivity, employee As IEmployee)
Me.Activity = activity
CurrentEmployee = employee
End Sub
'From other state.
Public Sub New(state As ActivityState)
Activity = state.Activity
CurrentEmployee = state.GetEmployee()
End Sub
'''
Public Overrides Function ActivityStateEnum() As ActivityStateEnum
Return ProductiePitching.ActivityStateEnum.Finished
End Function
'''
Public Overrides Function GetEmployee() As IEmployee
Return CurrentEmployee
End Function
End Class