O'Reilly logo

Joy of Patterns: Using Patterns for Enterprise Development, The by Brandon Goldfedder

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Account

 Option Explicit Private mvarAccountEntryCollection As Collection Private mvarObserverCollection As Collection Private mvaraccountName As String Public Property Let accountName(ByVal vData As String) mvaraccountName = vData End Property Public Property Get accountName() As String accountName = mvaraccountName End Property Public Function getEntries() As Collection Set getEntries = mvarAccountEntryCollection End Function Public Sub addEntry(entryDate As Date, amount As Currency) Dim entry As New accountEntry entry.amount = amount entry.entryDate = entryDate Call mvarAccountEntryCollection.Add(entry) End Sub Public Sub notify() Dim observer As AccountObserver For Each observer In mvarObserverCollection Call observer.update(Me) Next End ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required