Dies ist eine alte Version des Dokuments!
Object notification
Interface objectNotifier
Interface objectNotifier Methods Sub addObjectNotificationReceiver(receiver as objectNotificationReceiver, optional info as Variant = nil) End Sub Sub removeObjectNotificationReceiver(receiver As objectNotificationReceiver) End Sub End Interface
Interface objectNotificationReceiver
Interface objectNotificationReceiver Methods Sub objectChanged(obj as Object, info as Variant) End Sub End Interface
Class ObjectNotifierBox
Class ObjectNotifierBox Methods Sub addReceiver(receiver as objectNotificationReceiver, info as Variant) var i as Integer = mReceivers.IndexOf(receiver) if i = -1 then mReceivers.Add(receiver) mInfos.Add(info) end if End Sub Sub callReceivers(obj as Object) For i As Integer = 0 To mReceivers.LastIndex mReceivers(i).objectChanged(obj, mInfos(i)) Next End Sub Sub removeReceiver(receiver As objectNotificationReceiver) var i as Integer = mReceivers.IndexOf(receiver) if i > -1 then mReceivers.RemoveAt(i) mInfos.RemoveAt(i) end if End Sub Properties mInfos() As Variant mReceivers() As objectNotificationReceiver End Class
—-