WeibullDataSet.Question: Difference between revisions
Albert Szeto (talk | contribs) No edit summary |
Albert Szeto (talk | contribs) |
||
| Line 49: | Line 49: | ||
== Usage Example == | == Usage Example == | ||
{{APIComment|Declare the WeibullDataSet. See [[New WeibullDataSet]] for additional details. Substitute [[ALTADataSet]] for ALTA.}}<br> | |||
{{APIComment|Select a message box style. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] for additional details.}}<br> | |||
{{APIComment|Declare the WeibullDataSet. See [[New WeibullDataSet]] for additional details. Substitute [[ALTADataSet]] for ALTA.}} | |||
{{APIComment|Select a message box style. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] for additional details.}} | |||
{{APIComment|Declare a result variable. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx MsgBoxResult] for additional details.}} | {{APIComment|Declare a result variable. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx MsgBoxResult] for additional details.}} | ||
Dim WDS as New WeibullDataSet | Dim WDS as New WeibullDataSet | ||
Revision as of 21:56, 10 September 2013
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
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)