Switches are a modern alternative to a checkbox.
Dim switch1 As ABMSwitch switch1.Initialize(page, "switch1","On", "Off", True, "") page.Cell(2,1).AddComponent(switch1) Dim switch2 As ABMSwitch switch2.Initialize(page, "switch2","On", "Off", false, "") switch2.Enabled=False page.Cell(3,1).AddComponent(switch2)
Sub switch1_Clicked() Dim checked As String Dim switch1 As ABMSwitch = page.Component(2,1,"switch1") If switch1.State Then checked= "On" Else checked= "Off" End If Dim myTexts, myReturns As List myTexts.Initialize myReturns.Initialize myToastId = myToastId + 1 page.ShowToast("toast" & myToastId, "toastred", "Switch is " & checked, 5000, myTexts, myReturns) End Sub