WeibullDataSet.Question

From ReliaWiki
Revision as of 22:23, 24 February 2014 by Chris Kahn (talk | contribs)
Jump to navigation Jump to search


Called when an answer to the question is required. Displays a prompt and returns the result.

Syntax

  • Question( sender As WeibullDataSet, sMsg As String , Buttons As MsgBoxStyle, Answer As MsgBoxResult)

Parameters

sender: A WeibullDataSet object.
sMsg: The main display label.
Buttons: The MsgBoxStyle that determines the number and display of the buttons. See MsgBoxStyle for additional details.
Answer: The MsgBoxResult that is returned by the prompt. See MsgBoxResult for additional details.

Usage Example

Declare a New class that Inherits from WeibullEvents.
Override the method.

       Private Class myEvents
           Inherits WeibullEvents
           Public Overrides Sub Question(sender As SynthesisAPI.WeibullDataSet, sMsg As String, Buttons As MsgBoxStyle, ByRef Answer As MsgBoxResult)
               MyBase.Question(sender, sMsg, Buttons, Answer)
               MessageBox.Show("Additional overridden code here.")
           End Sub
       End Class

Declare the WeibullDataSet.

       Dim WDS as New WeibullDataSet

Use the created myEvents class in place of the one created by the dataset.

       WDS.Events = New myEvents

Select a message box style. See MsgBoxStyle for additional details.
Declare a result variable. See MsgBoxResult for additional details.

       Dim MsgBoxStyle1 as MsgBoxStyle = MsgBoxStyle.OkCancel
       Dim MsgBoxResult1 as MsgBoxResult

Prompts user with "Question1" and returns result in MsgBoxResult1.

       WDS.Events.Question(WDS, "Question1", MsgBoxStyle1, MsgBoxResult1)