WeibullDataSet.Message: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
 
(18 intermediate revisions by 2 users not shown)
Line 1: Line 1:
{{Template:APIClass|WeibullEvents Class|WeibullEvents}}
{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
{{Template:WeibullEvents.Message.Cmt}}
 
 
<onlyinclude>Occurs when an error is produced. Displays an error message.</onlyinclude>


== Syntax ==
<ul><li>Message(
{{APIName|sender}}
{{APIPrefix|As}}
{{APIName|[[WeibullDataSet Class|WeibullDataSet]],}}
{{APIName|sMsg}}
{{APIPrefix|As String}}
{{APIName|,}}
{{APIName|AdditionalInfo}}
{{APIPrefix|As String}}
{{APIName|,}}
{{APIName|IsCritical}}
{{APIPrefix|As Boolean}}
{{APIName|)}}</li></ul>


Parameters
{{Template:API_EventsNote}}
:''sender'': A WeibullDataSet object


:''sMsg'': The main display label.
== Syntax ==
'''_Message'''(''msg'', ''IsCritical'')


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


:''IsCritical'': Indicates whether the message displayed is critical.


== Usage Example ==
== Example ==
The following example provides a simple demonstration on how to customize the event procedure.
'''VBA'''
    
    
  {{APIComment|'Create a new class and inherit WeibullEvents.}}
  {{APIComment|'Specify a variable to handle the event.}}
   Private Class myEvents
  {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet
      Inherits WeibullEvents
     {{APIComment|'Request overrides.}}
{{APIComment|'----------------------------}}  
          Public Overrides Sub Message(sender As WeibullDataSet, sMsg As String, AdditionalInfo As String, IsCritical As Boolean)
   {{APIPrefix|Private Sub}} Main()
              MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
  {{APIComment|'Associate the event variable with an object.}}
            {{APIComment|'(Add additional code here.)}}
    {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
          End Sub
  End Class
  {{APIComment|'Set the application to use your event procedure.}}
 
     wds.UseEvents = True
  {{APIComment|'Declare a new WeibullDataSet.}}
  Dim WDS as New WeibullDataSet
  {{APIComment|'To trigger the event, call the Calculate method without defining a data set. }}
    
    wds.Calculate
{{APIComment|'Use the created myEvents class in place of the one created by the dataset.}}
    Msgbox({{APIString|"End"}})
  WDS.Events = New myEvents
  {{APIPrefix|End Sub}}
 
{{APIComment|'Show a prompt with the respective stringsThe additional code will also run.}}
{{APIComment|'----------------------------}}
  WDS.Events.Message(WDS, "Message1", "AdditionalInfo1", False)
  {{APIPrefix|Private Sub}} wds_Message({{APIPrefix|ByVal}} msg {{APIPrefix|As String}}, {{APIPrefix|ByVal}} IsCritical {{APIPrefix|As Boolean}})
  {{APIComment|'<Add code here to handle the event.>}}
    MsgBox (msg)
  {{APIPrefix|End Sub}}
 
'''VB.NET'''
  {{APIComment|'Specify a variable to handle the event.}}
  {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet
{{APIComment|'----------------------------}}
   {{APIPrefix|Private Sub}} Main()
  {{APIComment|'Associate the event variable with an object.}}
    wds = {{APIPrefix|New}} WeibullDataSet
  {{APIComment|'Set the application to use your event procedure.}}
    wds.UseEvents = True
   
  {{APIComment|'To trigger the event, call the Calculate method without defining a data set. }}
    wds.Calculate
    Msgbox({{APIString|"End"}})
  {{APIPrefix|End Sub}}
{{APIComment|'----------------------------}}
  {{APIPrefix|Private Sub}} wds_Message(msg {{APIPrefix|As String}}, IsCritical {{APIPrefix|As Boolean}}) {{APIPrefix|Handles}} wds.Message
  {{APIComment|'<Add code here to handle the event.>}}
    MsgBox (msg)
  {{APIPrefix|End Sub}}

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