Imports MonoSoftware.Web.Dialogs

Public Class DialogExample

Inherits System.Web.UI.Page

Protected WithEvents btnClear As System.Web.UI.WebControls.Button

Protected WithEvents btnAdd As System.Web.UI.WebControls.Button

Protected WithEvents txtText As System.Web.UI.WebControls.TextBox

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

Dim newLine As String

newLine = InputBox(btnAdd, "New line demo", "Enter text: ", "Default text")

If newLine <> "" Then

txtText.Text = vbCrLf + txtText.Text + newLine

End If

MessageDlg(btnClear, "Delete all text inside the text area?", "Delete text", TDlgType.mtConfirmation, TMsgDlgBtn.mbOK Or TMsgDlgBtn.mbCancel)

End Sub

Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender

ShowMessage(Me.Page, "Reporting from the Page_PreRender event...", "Example 1", TDlgType.mtInformation)

End Sub

Private Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtText.Text = ""

End Sub

End Class