WeibullDataSet.Message

From ReliaWiki
Jump to navigation Jump to search


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

Syntax

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

Parameters

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

Usage Example

 'Create a new class and inherit WeibullEvents. 
       Private Class myEvents
           Inherits WeibullEvents
           'Request overrides. 
           Public Overrides Sub Message(sender As WeibullDataSet, sMsg As String, AdditionalInfo As String, IsCritical As Boolean)
               MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
               '(Add additional code here.) 
           End Sub
       End Class
 
 'Declare a new WeibullDataSet. 
       Dim WDS as New WeibullDataSet
 
 'Use the created myEvents class in place of the one created by the dataset. 
       WDS.Events = New myEvents
 
 'Show a prompt with the respective strings.  The additional code will also run. 
       WDS.Events.Message(WDS, "Message1", "AdditionalInfo1", False)