Use checkboxes when looking for yes or no answers.
//create checkboxes Dim chk1 As ABMCheckbox chk1.Initialize(page, "chk1", "Checkbox starting unchecked", False, "") page.Cell(2,1).AddComponent(chk1) Dim chk2 As ABMCheckbox chk2.Initialize(page, "chk2", "Checkbox starting checked", True, "") page.Cell(3,1).AddComponent(chk2) Dim chk3 As ABMCheckbox chk3.Initialize(page, "chk3", "Checkbox disabled", True, "") chk3.Disabled = True page.Cell(4,1).AddComponent(chk3) Dim chk4 As ABMCheckbox chk4.Initialize(page, "chk4", "Checkbox filled in", True, "") chk4.IsFilled = True page.Cell(5,1).AddComponent(chk4)
Sub chk1_Clicked() Dim checked As String Dim chk1 As ABMCheckbox = page.Component("chk1") If chk1.State Then checked= "checked" Else checked= "unchecked" End If Dim myTexts, myReturns As List myTexts.Initialize myReturns.Initialize myToastId = myToastId + 1 page.ShowToast("toast" & myToastId, "toastred", "Checkbox is " & checked, 5000, myTexts, myReturns) End Sub