Template:ALTAEvents.Question.Ex - Revision history

Chris Kahn: /* Usage Example */

2014-05-05T22:00:45Z

Usage Example

← Older revision		Revision as of 22:00, 5 May 2014
Line 4:		Line 4:
	Dim ADS As New ALTADataSet		Dim ADS As New ALTADataSet

	{{APIComment\|'Overrides requested. Create a new class ~~and~~ inherit ALTAEvents~~. Then~~ set the dataset's events.}}		{{APIComment\|'Overrides requested. Create a new class, inherit ALTAEvents, and set the dataset's events.}}
	Private Class myEvents		Private Class myEvents
	Inherits ALTAEvents		Inherits ALTAEvents

Chris Kahn: /* Usage Example */

2014-04-01T18:53:40Z

Usage Example

← Older revision		Revision as of 18:53, 1 April 2014
Line 12:		Line 12:
	End SubEnd Class		End SubEnd Class

	{{APIComment\|'Set the new ~~events~~ class.}}		{{APIComment\|'Set the new Events class.}}
	ADS.Events = New myEvents		ADS.Events = New myEvents

Chris Kahn: Created page with '== Usage Example == This example demonstrates how to produce a dialog box when an answer to a question is required. {{APIComment|'Create a new ALTADataSet object.}} Dim ADS As…'

2014-04-01T18:51:07Z

Created page with '== Usage Example == This example demonstrates how to produce a dialog box when an answer to a question is required. {{APIComment|'Create a new ALTADataSet object.}} Dim ADS As…'

New page

== Usage Example ==
This example demonstrates how to produce a dialog box when an answer to a question is required.
{{APIComment|'Create a new ALTADataSet object.}}
Dim ADS As New ALTADataSet

{{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. Three buttons will be displayed.}}
Dim Buttons As MsgBoxStyle = MsgBoxStyle.YesNoCancel
Dim Answer As MsgBoxResult

{{APIComment|'Ask a question. Result will be updated in Answer.}}
ADS.Events.Question(ADS, "Continue?", Buttons, Answer)