|
|
| (7 intermediate revisions by 2 users not shown) |
| Line 1: |
Line 1: |
| {{Template:APIClass|ALTADataSet_Class|ALTADataSet}}
| | #REDIRECT [[ALTADataSet Class]] |
| Contains {{Template:ALTAEvents Class.Cmt}} <!--Comment shared with ALTADataSet_Class-->
| |
| | |
| == Methods ==
| |
| | |
| *[[ALTAEvents.Message|Message( ALTADataSet, String, String, Boolean )]] {{APIComment|{{Template:WeibullEvents.Message.Cmt}}}}
| |
| *[[ALTAEvents.Question|Question( ALTADataSet, String, MsgBoxStyle, MsgBoxResult )]] {{APIComment|{{Template:WeibullEvents.Question.Cmt}}}}
| |
| *[[ALTAEvents.UpdateCalculationProgress|UpdateCalculationProgress( ALTADataSet, String, String, Double, Boolean, Long, Boolean ) ]]{{APIComment|{{Template:WeibullEvents.UpdateCalculationProgress.Cmt}}}}
| |
| *[[ALTAEvents.ShowCalculationProgress|ShowCalculationProgress( ALTADataSet )]]{{APIComment|{{Template:WeibullEvents.ShowCalculationProgress.Cmt}}}}
| |
| *[[ALTAEvents.HideCalculationProgress|HideCalculationProgress( ALTADataSet )]]{{APIComment|{{Template:WeibullEvents.HideCalculationProgress.Cmt}}}}
| |
| | |
| == Usage Example ==
| |
| {{APIComment|'Overrides requested. Create a new class and inherit ALTAEvents. Then set the dataset's Events.}}
| |
| Private Class myEvents
| |
| Inherits ALTAEvents
| |
| Public Overrides Sub Question(sender As ALTADataSet, sMsg As String, Buttons As MsgBoxStyle, ByRef Answer As MsgBoxResult)
| |
| MyBase.Question(sender, sMsg, Buttons, Answer)
| |
| {{APIComment|'<Add additional code here.>}}
| |
| End SubEnd Class
| |
|
| |
| {{APIComment|'Set the new events class.}}
| |
| ADS.Events = New myEvents
| |
|
| |
| {{APIComment|'Initialize the MsgBoxStyle and MsgBoxResult variables. See [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxstyle.aspx MsgBoxStyle] and [http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.msgboxresult.aspx MsgBoxResult].}}
| |
| Dim MsgBoxStyle1 As MsgBoxStyle = MsgBoxStyle.YesNoCancel
| |
| Dim Answer As MsgBoxResult
| |
|
| |
| {{APIComment|'Ask a question. Result will be updated in Answer.}}
| |
| ADS.Events.Question(ADS, "Continue?", MsgBoxStyle1, Answer)
| |