WeibullEvents Class: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 13: Line 13:
== Usage Example ==
== Usage Example ==
    
    
  {{APIComment|'Overrides requested. Create a new class and inherit WeibullEvents. Then set the dataset's events.***}}
  {{APIComment|'Overrides requested. Create a new class and inherit WeibullEvents. Then set the dataset's events.}}
   Private Class myEvents
   Private Class myEvents
       Inherits WeibullEvents
       Inherits WeibullEvents

Revision as of 15:45, 28 April 2014



Contains all the event handlers that can be called by WeibullDataSet. To use events, you must inherit the class, override its methods and assign its instance to the Events property of a WeibullDataSet. WeibullEvents inheritance is not available in VB6/VBA.

Methods

Usage Example

 'Overrides requested. Create a new class and inherit WeibullEvents. Then set the dataset's events. 
 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 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)