WeibullDataSet.Question

Member of: SynthesisAPI.WeibullDataSet Template:InProgress

Occurs when an answer to a question is required.

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(ByVal msg As String, ByVal Buttons As Microsoft_VisualBasic.MsgBoxStyle, ByRef Answer As Microsoft_VisualBasic.MsgBoxResult)

Parameters

sMsg

The message to display.

Buttons

The buttons to display when calling Visual Basic's MsgBox function. (See Microsoft's reference documentation.)

Answer

Indicates which button was pressed in a message box, returned by Visual Basic's MsgBox function. (See Microsoft's reference documentation.)

Example

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

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 events. 
    wds.UseEvents = True

   'To raise the event, calculate 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, _
                          ByRef Answer As Microsoft_VisualBasic.MsgBoxResult)
   '<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

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

   'Set the application to use events. 
    wds.UseEvents = True

   'To raise the event, calculate 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)
 End Sub