WeibullDataSet.Question: Difference between revisions
John Leavitt (talk | contribs) No edit summary |
Albert Szeto (talk | contribs) No edit summary |
||
Line 37: | Line 37: | ||
== Usage Example == | == Usage Example == | ||
{{APIComment|Declare the | |||
{{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| | 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 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)