B4J Code Snippet [ABMaterial] Making an ABMCombo MultiSelect with ABMCheckboxes

'add a checkbox item to combo
Sub ABMCheckBoxItem(page As ABMPage, id As String, text As String, checked As Boolean) As ABMContainer
    Dim ItemCont As ABMContainer
    ItemCont.Initialize(page, id, "")
    ItemCont.AddRowsM(1,False,0,20, "").AddCellsOSMP(1,0,0,0,12,12,12,0,0,10,10,"")
    ItemCont.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
 
    Dim chk As ABMCheckbox
    chk.Initialize(page, id,text,checked,"")
    ItemCont.Cell(1,1).AddComponent(chk)
    Return ItemCont
End Sub

Dim asel As ABMCombo
    asel.Initialize(page,"asel","Resources","650","")
    asel.AddItem("opt1","Option 1",ABMShared.ABMCheckBoxItem(page,"opt1","Option 1",True))
    asel.AddItem("opt2","Option 2",ABMShared.ABMCheckBoxItem(page,"opt2","Option 2",False))
    asel.AddItem("opt3","Option 3",ABMShared.ABMCheckBoxItem(page,"opt3","Option 3",True))
    asel.AddItem("opt4","Option 4",ABMShared.ABMCheckBoxItem(page,"opt4","Option 4",False))
    asel.AddItem("opt5","Option 5",ABMShared.ABMCheckBoxItem(page,"opt5","Option 5",False))
    page.Cell(2,1).AddComponent(asel)

Sub asel_Clicked(itemId As String)
    Dim lst As List = ABMShared.ABMComboGetChecked(page,"asel")
    Dim out As String = ABMShared.List2JSON(lst)
    page.Msgbox("",out,"asel checked","ok",False,"","")
End Sub

'get checked from combobox
Sub ABMComboGetChecked(page As ABMPage, id As String) As List
    Dim ulKey As String = $"dropdown${id}"$
    Dim script As String = $"var selected = [];
$('#${ulKey} input:checked').each(function() {
    selected.push($(this).attr('id'));
});
var myJSON = selected.toString();
return myJSON;"$
Dim f As Future = page.ws.EvalWithResult(script,Null)
Dim sout As String = f.value
Dim items() As String = StrParse(",",sout)
Dim lstItems As List
lstItems.Initialize
For Each strItem As String In items
    strItem = MvField(strItem,1,"-")
    lstItems.Add(strItem)
Next
Return lstItems
End Sub

Sub iif(Expression2Evaluate As String, ReturnIfTrue As Object, ReturnIfFalse As Object) As Object
    If Expression2Evaluate = True Then Return ReturnIfTrue Else Return ReturnIfFalse
End Sub

'set checked
Sub ABMComboSetChecked(page As ABMPage, compid As String, id As String, bChecked As Boolean)
    If id.length = 0 Then Return
    If id.StartsWith("[") And id.EndsWith("]") Then
        Dim lst As List = Json2List(id)
        id = MvFromList(lst,",")
    End If
    Dim parentID As String = $"dropdown${compid}"$
    'ability to set multiple items at once
    Dim spItems() As String = StrParse(",",id)
    Dim sbCode As StringBuilder
    sbCode.Initialize
    For Each strItem As String In spItems
        id = strItem
        Dim itmKey As String = $"${id}-${id}input"$
        Dim sChecked As String = iif(bChecked=True,"true","false")
        Dim script As String = $"$('#${parentID}').find('#${itmKey}').prop('checked', ${sChecked});"$
        sbCode.Append(script).Append(CRLF)
    Next
    page.ws.Eval(sbCode.tostring,Null)
    page.ws.flush
End Sub

Sub MvFromList(lst As List, Delim As String) As String
    Dim lTot As Int
    Dim lCnt As Int
    Dim lStr As StringBuilder
    lStr.Initialize
    lTot = lst.Size - 1
    For lCnt = 0 To lTot
        lStr.Append(lst.Get(lCnt))
        If lCnt <> lTot Then lStr.Append(Delim)
    Next
    Return lStr.tostring
End Sub

ABMShared.ABMComboSetChecked(page, "cboItems"", "opt5",True)

'Refresh the contents of the ABMCombo at runtime.
Private Sub RefreshOnLoad_cboforums()
    'Get access to the component in the page.
    Dim msgenpeople As ABMModalSheet = page.ModalSheet("msgenpeople")
    Dim cboforums As ABMCombo = msgenpeople.Content.Component("cboforums")
    'Clear the ABMCombo items
    cboforums.Clear
    'Define list details to load to the combo
    Dim results As List
    Dim resCnt As Int
    Dim resTot As Int
    Dim resMap As Map
    'variable to hold the source field
    Dim id As String
    'variable to hold the description field
    Dim Name As String
    'Read arguments from LocalStorage (if any)
    'Add a spinner to the page
    'Get connection from current pool if MySQL/MSSQL
    Dim jSQL As SQL = ABMShared.SQLGet
    'Get the records as a list of maps from the db
    results = ABMShared.SQLExecuteMaps(jSQL,"select id,name from Forums  order by name", Null)
    'Close the connection to the database
    ABMShared.SQLClose(jSQL)
    'Loop throught each record read and process it
    resTot = results.size - 1
    For resCnt = 0 To resTot
        'Get the record map
        resMap = results.get(resCnt)
        'process the id field
        id = resMap.get("id")
        Name = resMap.get("name")
        cboforums.AddItem(id, Name, ABMShared.ABMCheckBoxItem(page, id, Name, False))
    Next
    'Refresh the ABMCombo contents
    cboforums.Refresh
End Sub

Dim lstcboforums As List = ABMShared.ABMComboGetCheckedModal(page, "msgenpeople", "cboforums")
    Dim outcboforums As String = ABMShared.List2JSON(lstcboforums)
    pMap.put("forums",outcboforums)

Dim cboforumsContents As String
    cboforumsContents = pMap.getdefault("forums","")
    ABMShared.ABMComboUnCheckAllModal(page, "msgenpeople","cboforums")
    ABMShared.ABMComboSetCheckedModal(page, "msgenpeople","cboforums", cboforumsContents,True)