WeibullDataSet.Message: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 38: Line 38:
== Usage Example ==
== Usage Example ==


{{APIComment|Declare the WeibullEvents.}}<br>
{{APIComment|Declare a New class that Inherits from WeibullEvents.}}<br>
{{APIComment|Override the method.}}<br>
      Private Class myEvents
          Inherits WeibullEvents
            Public Overrides Sub Message(sender As WeibullDataSet, sMsg As String, AdditionalInfo As String, IsCritical As Boolean)
                MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
                {{APIComment|Add additional code.}}
            End Sub
        End Class
 
{{APIComment|Declare the WeibullDataSet.}}<br>
{{APIComment|Declare the WeibullDataSet.}}<br>
{{APIComment|Note: The WeibullDataSet constructor already creates a new WeibullEvents, which could be used in place of WEvents in the example below.}}
        Dim WEvents as New WeibullEvents
         Dim WDS as New WeibullDataSet
         Dim WDS as New WeibullDataSet


{{APIComment|Show a prompt with the respective strings.}}
{{APIComment|Use the created myEvents class in place of the one created by the dataset.}}<br>
        WDS.Events = New myEvents
 
{{APIComment|Show a prompt with the respective strings.  The additional code should also run.}}
         WEvents.Message(WDS, "Message1", "AdditionalInfo1", False)
         WEvents.Message(WDS, "Message1", "AdditionalInfo1", False)

Revision as of 00:50, 9 October 2013



Display a message.

Method Syntax

Message( ByVal sender As WeibullDataSet, ByVal sMsg As String , ByVal AdditionalInfo As String , ByVal IsCritical As Boolean )
Called by ‘sender’ when a message should be displayed.

Parameters

sender An WeibullDataSet object

sMsg The main display label.

AdditionalInfo The remaining label.

IsCritical (This might be used to indicate which icon to display.)

Usage Example

Declare a New class that Inherits from WeibullEvents.
Override the method.

      Private Class myEvents
          Inherits WeibullEvents
           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. 
           End Sub
       End Class

Declare the 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 should also run.

       WEvents.Message(WDS, "Message1", "AdditionalInfo1", False)