WeibullDataSet.Message: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
No edit summary
 
(7 intermediate revisions by the same user not shown)
Line 1: Line 1:
{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
{{Template:InProgress}}




<onlyinclude>Occurs when there is a calculation error.</onlyinclude>  
<onlyinclude>Occurs when an error is produced. Displays an error message.</onlyinclude>  




Line 9: Line 8:


== Syntax ==
== Syntax ==
  '''_Message'''({{APIPrefix|ByVal}} ''msg'' {{APIPrefix|As String}}, {{APIPrefix|ByVal}} ''IsCritical'' {{APIPrefix|As Boolean}})
  '''_Message'''(''msg'', ''IsCritical'')


===Parameters===
===Parameters===
''msg''
''msg''
: The message to display.
: Required. String. The message to display when an error occurs.
''IsCritical''
''IsCritical''
: Indicates whether the message displayed is critical.
: Required. Boolean. Indicates whether the error is critical. Default value = False.




== Example ==
== Example ==
The following example provides a simple demonstration on how to handle the event.
The following example provides a simple demonstration on how to customize the event procedure.
  '''VBA'''
  '''VBA'''
    
    
Line 26: Line 25:
   
   
  {{APIComment|'----------------------------}}  
  {{APIComment|'----------------------------}}  
   {{APIPrefix|Sub}} Main()
   {{APIPrefix|Private Sub}} Main()
   {{APIComment|'Associate the event variable with an object.}}
   {{APIComment|'Associate the event variable with an object.}}
     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
   
   
   {{APIComment|'Set the application to use events.}}
   {{APIComment|'Set the application to use your event procedure.}}
     wds.UseEvents = True
     wds.UseEvents = True
   
   
   {{APIComment|'To raise the event, call the Calculate method without defining a data set. }}
   {{APIComment|'To trigger the event, call the Calculate method without defining a data set. }}
     wds.Calculate
     wds.Calculate
     Msgbox({{APIString|"End"}})
     Msgbox({{APIString|"End"}})
Line 50: Line 49:
   
   
  {{APIComment|'----------------------------}}
  {{APIComment|'----------------------------}}
   {{APIPrefix|Sub}} Main()
   {{APIPrefix|Private Sub}} Main()
   {{APIComment|'Associate the event variable with an object.}}
   {{APIComment|'Associate the event variable with an object.}}
     wds = {{APIPrefix|New}} WeibullDataSet
     wds = {{APIPrefix|New}} WeibullDataSet
   
   
   {{APIComment|'Set the application to handle custom events.}}
   {{APIComment|'Set the application to use your event procedure.}}
     wds.UseEvents = True
     wds.UseEvents = True
   
   
   {{APIComment|'To raise the event, call the Calculate method without defining a data set. }}
   {{APIComment|'To trigger the event, call the Calculate method without defining a data set. }}
     wds.Calculate
     wds.Calculate
     Msgbox({{APIString|"End"}})
     Msgbox({{APIString|"End"}})

Latest revision as of 23:40, 6 September 2016

APIWiki.png


Member of: SynthesisAPI.WeibullDataSet


Occurs when an error is produced. Displays an error message.


Remarks: To hide the messages or write your own code for the event procedure, set the UseEvents property of the object to True. The event is raised by the class methods.

Syntax

_Message(msg, IsCritical)

Parameters

msg

Required. String. The message to display when an error occurs.

IsCritical

Required. Boolean. Indicates whether the error is critical. Default value = False.


Example

The following example provides a simple demonstration on how to customize the event procedure.

VBA
 
 'Specify a variable to handle the event. 
  Private WithEvents wds As WeibullDataSet

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

   'Set the application to use your event procedure. 
    wds.UseEvents = True

   'To trigger the event, 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 code here to handle the event.> 
    MsgBox (msg)
 End Sub
VB.NET

 'Specify a variable to handle the event. 
  Private WithEvents wds As WeibullDataSet

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

   'Set the application to use your event procedure. 
    wds.UseEvents = True

   'To trigger the event, call the Calculate method without defining a data set.  
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_Message(msg As String, IsCritical As Boolean) Handles wds.Message
   '<Add code here to handle the event.> 
    MsgBox (msg)
 End Sub