ALTADataSet.Message: Difference between revisions
Jump to navigation
Jump to search
Chris Kahn (talk | contribs) |
Chris Kahn (talk | contribs) |
||
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)