WeibullDataSet.Question

Display a prompt, and returns the result.

Weibull Declaration

Public Overridable Sub Question( ByVal sender As WeibullDataSet,( ByVal sMsg As String , ByVal Buttons As MsgBoxStyle, ByRef Answer As MsgBoxResult)

Called by ‘sender’ when an answer to the question is required.

ALTA Declaration

Public Overridable Sub Question( ByVal sender As ALTADataSet,( ByVal sMsg As String , ByVal Buttons As MsgBoxStyle, ByRef Answer As MsgBoxResult)

Called by ‘sender’ when an answer to the question is required.

Usage Example

MsgBoxStyle

Declare the WeibullDataSet. See New WeibullDataSet for additional details. Substitute ALTADataSet for ALTA. Select a message box style. See MsgBoxStyle for additional details. Declare a result variable. See MsgBoxResult for additional details.

       Dim WDS as New WeibullDataSet
       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)