WeibullDataSet.Question: Difference between revisions

Latest revision as of 23:41, 6 September 2016

Member of: SynthesisAPI.WeibullDataSet

Occurs when an answer to a question is required. Displays a message box with yes and no options.

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

_Question(msg, Buttons, ByRef Answer)

Parameters

sMsg

Required. String. The message to display.

Buttons

Required. The buttons to display when calling Visual Basic's MsgBox function. Can be any MsgBoxStyle constant (see Microsoft's reference documentation for this enum).

Answer

Required. Indicates which button was pressed on a message box returned by Visual Basic's MsgBox function. Can be any MsgBoxResult constant (see Microsoft's reference documentation for this enum).

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

 '---------------------------- 
 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, analyze a data set with a single data point. 
    Call wds.AddFailure(100, 1)
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_Question(ByVal msg As String, _
                          ByVal Buttons As Microsoft_VisualBasic.MsgBoxStyle, _
                          Answer As Microsoft_VisualBasic.MsgBoxResult)
   '<Add code here to handle the event.> 
    Call MsgBox (msg, vbYesNoCancel)
 End Sub

VB.NET

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

 '---------------------------- 
 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, analyze a data set with a single data point. 
    wds.AddFailure(100, 1)
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_Question(msg As String, Buttons As MsgBoxStyle, _
                          ByRef Answer As MsgBoxResult) Handles wds.Question
   '<Add code here to handle the event.> 
    MsgBox (msg, vbYesNoCancel)
 End Sub

@@ Line 1: / Line 1: @@
-{{Template:AWEAPIClass}}
+{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
-Display a prompt, and returns the result.
-== Weibull Declaration  ==
+<onlyinclude>Occurs when an answer to a question is required. Displays a message box with yes and no options.</onlyinclude>
-{{APIPrefix|Public Overridable Sub}}
-{{APIName|Question(}}
-{{APIPrefix|ByVal}}
-{{APIName|sender}}
-{{APIPrefix|As}}
-{{APIName|[[WeibullDataSet Class|WeibullDataSet]],}}
-{{APIPrefix|ByVal}}
-{{APIName|sMsg}}
-{{APIPrefix|As String}}
-{{APIName|,}}
-{{APIPrefix|ByVal}}
-{{APIName|Buttons}}
-{{APIPrefix|As}}
-{{APIName|MsgBoxStyle,}}
-{{APIPrefix|ByRef}}
-{{APIName|Answer}}
-{{APIPrefix|As}}
-{{APIName|MsgBoxResult)}}
-{{APIComment|Called by ‘sender’ when an answer to the question is required.}}
+{{Template:API_EventsNote}}
-==ALTA Declaration==
+== Syntax ==
-{{APIPrefix|Public Overridable Sub}}
+ '''_Question'''(''msg'', ''Buttons'', {{APIPrefix|ByRef}} ''Answer'')
-{{APIName|Question(}}
-{{APIPrefix|ByVal}}
-{{APIName|sender}}
-{{APIPrefix|As}}
-{{APIName|[[ALTADataSet Class|ALTADataSet]],}}
-{{APIPrefix|ByVal}}
-{{APIName|sMsg}}
-{{APIPrefix|As String}}
-{{APIName|,}}
-{{APIPrefix|ByVal}}
-{{APIName|Buttons}}
-{{APIPrefix|As}}
-{{APIName|MsgBoxStyle,}}
-{{APIPrefix|ByRef}}
-{{APIName|Answer}}
-{{APIPrefix|As}}
-{{APIName|MsgBoxResult)}}
-{{APIComment|Called by ‘sender’ when an answer to the question is required.}}
+===Parameters===
+''sMsg''
+:Required. String. The message to display.
-== Parameters ==
+''Buttons''
-'''sender'''
+:Required. The buttons to display when calling Visual Basic's MsgBox function. Can be any MsgBoxStyle constant (see [https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx Microsoft's reference documentation for this enum]).
-An WeibullDataSet object
-'''sMsg'''
+''Answer''
-The main display label.
+:Required. Indicates which button was pressed on a message box returned by Visual Basic's MsgBox function. Can be any MsgBoxResult constant (see [https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx Microsoft's reference documentation for this enum]).
-'''Buttons'''
+== Example ==
-The MsgBoxStyle that determines the number and display of the buttons. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] for additional details.
+The following example provides a simple demonstration on how to customize the event procedure.
+ '''VBA'''
+ {{APIComment|'Specify a variable to handle the event.}}
+   {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet
+ {{APIComment|'----------------------------}}
+  {{APIPrefix|Sub}} Main()
+   {{APIComment|'Associate the event variable with an object.}}
+     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
+   {{APIComment|'Set the application to use your event procedure.}}
+     wds.UseEvents = True
+   {{APIComment|'To trigger the event, analyze a data set with a single data point.}}
+     {{APIPrefix|Call}} wds.AddFailure(100, 1)
+     wds.Calculate
+     Msgbox({{APIString|"End"}})
+  {{APIPrefix|End Sub}}
+ {{APIComment|'----------------------------}}
+  {{APIPrefix|Private Sub}} wds_Question({{APIPrefix|ByVal}} ''msg'' {{APIPrefix|As String}}, _
+                           {{APIPrefix|ByVal}} ''Buttons'' {{APIPrefix|As Microsoft_VisualBasic.MsgBoxStyle}}, _
+                           ''Answer'' {{APIPrefix|As Microsoft_VisualBasic.MsgBoxResult}})
+   {{APIComment|'<Add code here to handle the event.>}}
+     {{APIPrefix|Call}} MsgBox (msg, vbYesNoCancel)
+  {{APIPrefix|End Sub}}
-'''Answer'''
+ '''VB.NET'''
-The MsgBoxResult that is returned by the prompt. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx MsgBoxResult] for additional details.
+ {{APIComment|'Specify a variable to handle the event.}}
-== Usage Example ==
+   {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet
-{{APIComment|Declare the WeibullEvents.  Substitute [[ALTAEvents Class|ALTAEvents]] for ALTA.}}<br>
-{{APIComment|Declare the WeibullDataSet. Substitute [[ALTADataSet Class|ALTADataSet]] for ALTA.}}<br>
+ {{APIComment|'----------------------------}}
-{{APIComment|Note: The WeibullDataSet constructor already creates a new WeibullEvents, which could be used in place of WEvents in the example below.}}<br>
+  {{APIPrefix|Sub}} Main()
-{{APIComment|Select a message box style. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] for additional details.}}<br>
+   {{APIComment|'Associate the event variable with an object.}}
-{{APIComment|Declare a result variable. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx MsgBoxResult] for additional details.}}
+     wds = {{APIPrefix|New}} WeibullDataSet
-        Dim WEvents as New WeibullEvents
-        Dim WDS as New WeibullDataSet
+   {{APIComment|'Set the application to use your event procedure.}}
-        Dim MsgBoxStyle1 as MsgBoxStyle = MsgBoxStyle.OkCancel
+     wds.UseEvents = True
-        Dim MsgBoxResult1 as MsgBoxResult
+   {{APIComment|'To trigger the event, analyze a data set with a single data point.}}
-{{APIComment|Prompts user with "Question1" and returns result in MsgBoxResult1.}}
+     wds.AddFailure(100, 1)
-        WEvents.Question(WDS, "Question1", MsgBoxStyle1, MsgBoxResult1)
+     wds.Calculate
+     Msgbox({{APIString|"End"}})
+  {{APIPrefix|End Sub}}
+ {{APIComment|'----------------------------}}
+  {{APIPrefix|Private Sub}} wds_Question(''msg'' {{APIPrefix|As String}}, ''Buttons'' {{APIPrefix|As MsgBoxStyle}}, _
+                           {{APIPrefix|ByRef}} ''Answer'' {{APIPrefix|As MsgBoxResult}}) {{APIPrefix|Handles}} wds.Question
+   {{APIComment|'<Add code here to handle the event.>}}
+     MsgBox (msg, vbYesNoCancel)
+  {{APIPrefix|End Sub}}

WeibullDataSet.Question: Difference between revisions

Latest revision as of 23:41, 6 September 2016

Syntax

Parameters

Example

Navigation menu

Search