WeibullDataSet.Question: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 37: Line 37:
       End SubEnd Class
       End SubEnd Class
    
    
  {{APIComment|'Set the new Events class}}
  {{APIComment|'Set the new Events class.}}
   WDS.Events = New myEvents
   WDS.Events = New myEvents
    
    

Revision as of 18:02, 1 April 2014


Called when an answer to a 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

 'Overrides requested. Create a new class and inherit WeibullEvents. Then set the dataset's events. 
 Private Class myEvents
     Inherits WeibullEvents
     Public Overrides Sub Question(sender As WeibullDataSet, sMsg As String, Buttons As MsgBoxStyle, ByRef Answer As MsgBoxResult)
         MyBase.Question(sender, sMsg, Buttons, Answer)
             '<Add additional code here.> 
     End SubEnd Class
 
 'Set the new Events class. 
 WDS.Events = New myEvents
 
 'Ask a question. Result will be updated in Answer. 
 WDS.Events.Question(WDS, "Continue?", MsgBoxStyle., Answer)