Slide 42
Slide 42 text
Public Class MailDeliveryService
#Region “Fields”
Private ReadOnly _attachmentCreatorDic As IDictionary(Of FileTypeDivision, IFileCreator)
= New Dictionary(Of FileTypeDivision, IFileCreator)()
#End Region
#Region “Methods”
Public Sub Deliver()
Dim fileType = order.FileType
Dim attachment = _attachmentCreatorDic(fileType).Create(filePath)
End Function
#End Region
End Class