ALTADataSet.Message: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 32: Line 32:
       Inherits WeibullEvents
       Inherits WeibullEvents
       Public Overrides Sub Message(sender As ALTADataSet, sMsg As String,  
       Public Overrides Sub Message(sender As ALTADataSet, sMsg As String,  
      AdditionalInfo As   String, IsCritical As Boolean)
        AdditionalInfo As String, IsCritical As Boolean)
           MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
           MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
                 (Add additional code.)
                 '<Add additional code here.>
       End Sub
       End Sub
   End Class
   End Class

Revision as of 21:28, 5 May 2014


Called when a message should be displayed. Displays a message.

Syntax

  • Message( sender As ALTADataSet, sMsg As String , AdditionalInfo As String , IsCritical As Boolean )

Parameters

sender: An ALTADataSet object
sMsg: The main display label.
AdditionalInfo: The remaining label.
IsCritical: Indicates whether the message displayed is critical.

Usage Example

 'Overrides requested, Create a new class and Inherit WeibullEvents, and set the dataset's events. 
 Private Class myEvents
     Inherits WeibullEvents
     Public Overrides Sub Message(sender As ALTADataSet, sMsg As String, 
       AdditionalInfo As String, IsCritical As Boolean)
         MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
               '<Add additional code here.>
     End Sub
 End Class
 
 'Set the new Events class. 
 ADS.Events = New myEvents

 'Send a message. 
 ADS.Events.Message(ADS, "message", "additional info", False)