ALTADataSet.Message: Difference between revisions

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


{{APIComment|Declare the ALTAEvents.}}<br>
{{APIComment|'Overrides requested, Create a new class and Inherit WeibullEvents, and set the dataset's events.}}
{{APIComment|Declare the ALTADataSet.}}<br>
  Private Class myEvents
{{APIComment|Note: The ALTADataSet constructor already creates a new ALTAEvents, which could be used in place of AEvents in the example below.}}
      Inherits WeibullEvents
        Dim AEvents as New ALTAEvents
      Public Overrides Sub Message(sender As ALTADataSet, sMsg As String, AdditionalInfo As  String, IsCritical As Boolean)
        Dim ADS as New ALTADataSet
          MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
 
                (Add additional code.)
{{APIComment|Show a prompt with the respective strings.}}
      End Sub
        AEvents.Message(ADS, "Message1", "AdditionalInfo1", False)
  End Class
 
{{APIComment|'Set the new Events class.}}
  ADS.Events = New myEvents
{{APIComment|'Send a message.}}
  ADS.Events.Message(ADS, "message", "additional info", False)

Revision as of 21:27, 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)