WeibullDataSet.Message: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) No edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
(9 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]]}} | ||
<onlyinclude>Occurs when | <onlyinclude>Occurs when an error is produced. Displays an error message.</onlyinclude> | ||
Line 9: | Line 8: | ||
== Syntax == | == Syntax == | ||
'''_Message'''( | '''_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 | : Required. Boolean. Indicates whether the error is critical. Default value = False. | ||
== Example == | == Example == | ||
The following example provides a simple demonstration on how to | 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 | {{APIComment|'Set the application to use your event procedure.}} | ||
wds.UseEvents = True | wds.UseEvents = True | ||
{{APIComment|'To | {{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 | {{APIComment|'Set the application to use your event procedure.}} | ||
wds.UseEvents = True | wds.UseEvents = True | ||
{{APIComment|'To | {{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
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