如何更改列表框而不是列表视图

Question

下面的代码适用于列表视图，但我想使用列表框而不是列表视图

lst =来自以下代码的listview

Dim idx as integer
    idx = 1
        lst.ListItems.Clear
        If Emp.Employees.RecordCount > 0 Then
            Emp.Employees.MoveFirst
            While Not Employees.EOF
                lst.ListItems.Add idx, , EmployeeID
                lst.ListItems(idx).ListSubItems.Add , , FirstName
                If IsAssigned(EmployeeID, CurrentSchedule) Then
                    lst.ListItems(idx).Checked = True
                Else
                    lst.ListItems(idx).Checked = False
                End If
                 idx = idx + 1
                Employees.MoveNext
            Wend
        End If

列表框名称是lstbox

我试过

lstbox.selected(I) = true无效，而不是lst.ListItems(idx).Checked = True

Answer 1

with aListbox
    .Clear
    '//loop here
        .additem "The Item Text"
        '//add the numeric id value
        .itemdata(.NewIndex) = 112233
        '//check it
        if (condition) then
            .Selected(.NewIndex) = True
        end if
end with

'//sample click
msgbox aListbox.list(aListbox.listindex) & " id=" & aListbox.itemdata(aListbox.listindex)