ALTADataSet.Message: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 31: Line 31:
   Private Class myEvents
   Private Class myEvents
       Inherits WeibullEvents
       Inherits WeibullEvents
       Public Overrides Sub Message(sender As ALTADataSet, sMsg As String, AdditionalInfo As  String, IsCritical As Boolean)
       Public Overrides Sub Message(sender As ALTADataSet, sMsg As String,  
      AdditionalInfo As  String, IsCritical As Boolean)
           MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
           MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
                 (Add additional code.)
                 (Add additional code.)

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.)
     End Sub
 End Class
 
 'Set the new Events class. 
 ADS.Events = New myEvents

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