Talk:WeibullDataSet.Message/Notes

DRAFT

Occurs when the Calculate or CalculateBestFit method is called but no data set has been defined. The application is unable to calculate the parameters when there is no data.

Syntax

_Message(ByVal msg As String, ByVal IsCritical As Boolean)

Parameters

msg

The main display label.

IsCritical

Indicates whether the message displayed is critical.

Example

VBA

Private WithEvents wds As WeibullDataSet

Sub Main()
  'Associate the event with an object. 
   Set wds = New WeibullDataSet

  'Set the API to use custom events. 
   wds.UseEvents = True

  'Call the Calculate method without defining a data set.  
   wds.Calculate
   Msgbox("End")
End Sub()

Private Sub wds_Message(ByVal Msg As String, ByVal IsCritical As Boolean)
  'Add custom code here to handle the event. 
  '... 
  '... 
   MsgBox ("Custom event procedure working.")
End Sub

 '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)