''<summary>Comment my class so that folks know a little bit about it.</summary>
Public MustInherit Class ImplementorBase
''' <summary>
''' Since this is protected it will be seen by inheritors
''' </summary>
''' <remarks>And if there is any more information about this member I want my users to know, I'll put it here.</remarks>
Protected _files() As String = Nothing
''' <summary>
''' The means by which information is given back to the user.
''' </summary>
''' <remarks></remarks>
Protected _reporter As FeedBack.sendFeedBack
''' <summary>
''' Indication of the content of the data the class will handle and report on.
''' </summary>
''' <remarks>Appropriate markings must be made on all generated reports. This responsibility is left to the user.</remarks>
Protected _classification As FileClassification
''' <summary>
''' Creates a new ImplementorBase
''' </summary>
''' <remarks>The file classification will be set to unclassified for assemblies built under debug, secret for release.
''' In almost all cases the default for deployed assemblies will be secret.</remarks>
Public Sub New()
#If DEBUG Then
Me._classification = FileClassification.Unclassified
#Else
me._classification = FileClassification.Secret
#End If
End Sub
'''<summary>Returns an array of strings containing all the data files for this class</summary>
'''<author date="2005-10-28">OJ Simpson</author>
Public ReadOnly Property DataFiles() As String()
Get
Return _files
End Get
End Property
''' <summary>
''' Gets and sets The classification of the data processed by this class
''' </summary>
''' <remarks>Appropriate markings must be made on a file determined by the classification inputted here.</remarks>
Public Property Classification() As FileClassification
Get
Return Me._classification
End Get
Set(ByVal value As FileClassification)
Me._classification = value
End Set
End Property
'''<summary>Reports a message and a status back to the GUI</summary>
'''<param name="message">The message to send back to the GUI</param>
'''<param name="returnCode">The type of message that is being returned</param>
'''<author date="2005-10-28">OJ Simpson</author>
Public Overridable Sub Report(ByVal message As String, ByVal returnCode As FeedBack.ReturnCode)
_reporter(message, returnCode)
End Sub
End Class