|
|
| Line 1: |
Line 1: |
| {{Template:APIClass|WeibullEvents Class|WeibullEvents}} | | {{Template:API}}{{Template:APIBreadcrumb|.[[WeibullEvents Class|WeibullEvents]]}} |
| {{Template:WeibullEvents.Message.Cmt}} | | {{Template:InProgress}} |
| | |
| == Syntax ==
| |
| <ul><li>Message(
| |
| {{APIName|sender}}
| |
| {{APIPrefix|As}}
| |
| {{APIName|[[WeibullDataSet Class|WeibullDataSet]],}}
| |
| {{APIName|sMsg}} | |
| {{APIPrefix|As String}}
| |
| {{APIName|,}}
| |
| {{APIName|AdditionalInfo}}
| |
| {{APIPrefix|As String}}
| |
| {{APIName|,}}
| |
| {{APIName|IsCritical}}
| |
| {{APIPrefix|As Boolean}}
| |
| {{APIName|)}}</li></ul>
| |
| | |
| Parameters
| |
| :''sender'': A WeibullDataSet object
| |
| | |
| :''sMsg'': The main display label.
| |
| | |
| :''AdditionalInfo'': The remaining label.
| |
| | |
| :''IsCritical'': Indicates whether the message displayed is critical.
| |
| | |
| == Usage Example ==
| |
|
| |
| {{APIComment|'Create a new class and inherit WeibullEvents.}}
| |
| Private Class myEvents
| |
| Inherits WeibullEvents
| |
| {{APIComment|'Request overrides.}}
| |
| 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 here.>}}
| |
| End Sub
| |
| End Class
| |
|
| |
| {{APIComment|'Declare a new WeibullDataSet.}}
| |
| Dim WDS as New WeibullDataSet
| |
|
| |
| {{APIComment|'Use the created myEvents class in place of the one created by the dataset.}}
| |
| WDS.Events = New myEvents
| |
|
| |
| {{APIComment|'Show a prompt with the respective strings. The additional code will also run.}}
| |
| WDS.Events.Message(WDS, "Message1", "AdditionalInfo1", False)
| |
