Comments on: Design patterns – Part 7: Template method pattern http://www.lotushints.com/2009/02/design-patterns-part-7-template-method-pattern/ Lotus Notes tips & tricks you always hoped you will not need Wed, 14 Dec 2011 20:40:09 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Kenneth http://www.lotushints.com/2009/02/design-patterns-part-7-template-method-pattern/comment-page-1/#comment-1117 Kenneth Fri, 26 Aug 2011 14:26:12 +0000 http://www.lotushints.com/?p=200#comment-1117 This is actually quite useful pattern! One thing is that it is integrating very nicely with the factory design pattern; simply add a function that returns the correct class: Function getTemplateCourse(templateName As String) As Variant If templateName = "ECourse" Then Set getTemplateCourse = New TemplateECourse() Else Set getTemplateCourse = New TemplateCourse() End If End Function and then in the agent, You simply go like: Dim course As TemplateCourse Set course = getTemplateCourse("ECourse") Call course.Run() Set course = getTemplateCourse("Other") Call course.Run() This is actually quite useful pattern! One thing is that it is integrating very nicely with the factory design pattern; simply add a function that returns the correct class:

Function getTemplateCourse(templateName As String) As Variant
If templateName = “ECourse” Then
Set getTemplateCourse = New TemplateECourse()
Else
Set getTemplateCourse = New TemplateCourse()
End If
End Function

and then in the agent, You simply go like:

Dim course As TemplateCourse
Set course = getTemplateCourse(“ECourse”)
Call course.Run()
Set course = getTemplateCourse(“Other”)
Call course.Run()

]]>