代わりに、コードの下

Question

は、リストビューのために働いているリストビューのリストボックスを変更する、しかし、私は代わりに、リストビュー

LST =

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

は私がlst.ListItems(idx).Checked = True

の代わりに動作していない

lstbox.selected(I) = true

を試してみました3210

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)