Template:ALTAEvents.Question.Ex

Usage Example
This example demonstrates how to produce a dialog box when an answer to a question is required. Dim ADS As New ALTADataSet 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) End SubEnd Class ADS.Events = New myEvents Dim Buttons As MsgBoxStyle = MsgBoxStyle.YesNoCancel Dim Answer As MsgBoxResult ADS.Events.Question(ADS, "Continue?", Buttons, Answer)