WeibullDataSet.Question: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 37: Line 37:


== Usage Example ==
== Usage Example ==
{{APIComment|Declare the WeibullEvents.}}<br>
 
{{APIComment|Declare a New class that Inherits from WeibullEvents.}}<br>
{{APIComment|Override the method.}}<br>
        Private Class myEvents
            Inherits WeibullEvents
            Public Overrides Sub Message(sender As WeibullDataSet, sMsg As String, AdditionalInfo As String, IsCritical As Boolean)
                MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
                {{APIComment|(Add additional code.)}}
            End Sub
        End Class
 
{{APIComment|Declare the WeibullDataSet.}}<br>
{{APIComment|Declare the WeibullDataSet.}}<br>
{{APIComment|Note: The WeibullDataSet constructor already creates a new WeibullEvents, which could be used in place of WEvents in the example below.}}<br>
        Dim WDS as New WeibullDataSet
 
{{APIComment|Use the created myEvents class in place of the one created by the dataset.}}<br>
        WDS.Events = New myEvents
 
 
{{APIComment|Select a message box style. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] for additional details.}}<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 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 WEvents as New WeibullEvents
        Dim WDS as New WeibullDataSet
         Dim MsgBoxStyle1 as MsgBoxStyle = MsgBoxStyle.OkCancel
         Dim MsgBoxStyle1 as MsgBoxStyle = MsgBoxStyle.OkCancel
         Dim MsgBoxResult1 as MsgBoxResult
         Dim MsgBoxResult1 as MsgBoxResult

Revision as of 21:42, 9 October 2013



Display a prompt, and returns the result.

Method Syntax

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.

Parameters

sender An 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 Message(sender As WeibullDataSet, sMsg As String, AdditionalInfo As String, IsCritical As Boolean)
               MyBase.Message(sender, sMsg, AdditionalInfo, IsCritical)
                (Add additional code.) 
           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.

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