'Static code module
Sub Process_Globals
Public name As String = "testmailcellulare"
Public page As SDUIPage
Private mdl As SDUIModal
End Sub
'
Public Sub check
Log("check")
page.AddPage(Me, name)
page.Root.p(6)
page.Root.DesignMode(False)
page.Root.MXAuto
page.Root.AddRows5.AddColumns12
page.Root.BuildGrid
mdl = page.Root.AddModal("mdl", "demo", "Yes", "No", "Cancel", "500px")
mdl.Message = "i am a modal"
mdl.YesButton.NormalCase = True
mdl.OverlayBGColorIntensity("transparent", "")
mdl.Show
Log("show")
End Sub
'
Private Sub mdl_Yes_Click (e As BANanoEvent)
Log("yes")
mdl.Hide
End Sub