Sub CreateRngSlider()
Dim rs As MashRangeSlider
rs.Initialize(page,"rs","")
rs.FromValue = "3"
rs.ToValue = "8"
rs.Grid = True
rs.SlideType = rs.EnumSlideType.isdouble
rs.AddValue("Jan").AddValue("Feb").AddValue("Mar")
rs.AddValue("Apr").AddValue("May").AddValue("Jun")
rs.AddValue("Jul").AddValue("Aug").AddValue("Sep")
rs.AddValue("Oct").AddValue("Nov").AddValue("Dec")
page.Cell(1,1).AddComponent(rs.ABMComp)
' Adding an ABMInput
Dim txtValue As ABMInput
txtValue.Initialize(page, "txtValue", ABM.INPUT_TEXT, "RangeSlider Values", False, "")
txtValue.IconName = "mdi-action-lock"
page.Cell(1,1).AddComponent(txtValue)
End Sub
Sub rs_change(value As Map)
Log("Map value is ")
Log(value)
Dim valuex As String = value.GetDefault("value","")
Dim txtvalue As ABMInput = page.Component("txtvalue")
txtvalue.Text = valuex
txtvalue.refresh
End Sub