#Region"External Events"
'add a ChangedEvent
PublicDelegateSubSelectionChangedEventHandler(senderAsObject, argsAsCheckBoxSelectionChangedRoutedEventsArgs)
PublicSharedReadOnlySelectionChangedEventAsRoutedEvent=EventManager.RegisterRoutedEvent("SelectionChanged", _
RoutingStrategy.Bubble,GetType(SelectionChangedEventHandler),GetType(ucDovyCheckBoxSelection))
' Provide CLR accessors for the event
PublicCustomEvent_SelectionChangedAsSelectionChangedEventHandler
AddHandler(ByValvalueAsSelectionChangedEventHandler)
Me.AddHandler(SelectionChangedEvent, value)
EndAddHandler
RemoveHandler(ByValvalueAsSelectionChangedEventHandler)
Me.RemoveHandler(SelectionChangedEvent, value)
EndRemoveHandler
RaiseEvent(ByValsenderAsObject,ByValeAsCheckBoxSelectionChangedRoutedEventsArgs)
Me.RaiseEvent(e)
EndRaiseEvent
EndEvent
' This method raises the Changed event
PrivateSubRaiseChangedEvent()
DimnewEventArgsAsNewCheckBoxSelectionChangedRoutedEventsArgs(Me,ucDovyCheckBoxSelection.SelectionChangedEvent)
MyBase.RaiseEvent(newEventArgs)
EndSub
#EndRegion
|