请问怎么在listview当中得到复选框的值？

Question

请问怎么在listview当中得到复选框的值？

Answer 1

Private Sub Command1_Click()
For i = 1 To List1.ListCount - 1
 If List1.Selected(i) Then
  MsgBox List1.List(i)
  End If
Next
End SubPrivate Sub Form_Load()
For i = 1 To 10
 List1.AddItem i
Next
End Sub

Answer 2

If Not mrc.EOF Then
为什么这句在vb里面会出错？

Answer 3

mrc.eofdim cStr as string
你要不就先  cStr =List1.List(i)
找cStr 
应该是不会错的
你可以先测测，是不是数据库的原因？

Answer 4

数据我已经装入listview里面了没问题的
我单个的删除也可以进行操作
就是不知道怎么多项选择之后在删除

Answer 5

Private Sub Command1_Click()
On Error GoTo Err
For i = 0 To List1.ListCount
 If List1.Selected(i) Then
  List1.RemoveItem (i)
  i = i - 1
 End If
Next
Err:
End SubPrivate Sub Form_Load()
For i = 1 To 10
 List1.AddItem i
Next
End Sub

Answer 6

是listview呀，不是listbox（应该是这个名字吧）
应该这样嘛：Private Sub Command1_Click()
For i = 1 To ListView1.ListItems.Count
 '''If ListView1.Selected(i) Then
  MsgBox ListView1.Selected(i) 
 '''End If
Next
End SubPrivate Sub Form_Load()
For i = 1 To 10
 ListView1.listitems.add i,,Item,,,
Next
End Sub
删除是listview1.remove item

Answer 7

Private Sub Command1_Click()
For i = 1 To ListView1.ListItems.Count
  If ListView1.ListItems(1).Checked  Then '应该使用Checked,一个listview只有一个ListItem是被Selected的，却可以多个被Checked！Selected不一定是Checked,Checked不一定Selected!
             MsgBox "Checked"
  End If
Next
End SubPrivate Sub Form_Load()
For i = 1 To 10
 ListView1.listitems.add i,,Item,,,
Next
End Sub

Answer 8

其实在listview当中得到复选框的值，可以这样listview1.selecteditem ,你选中哪项，就返加哪项的值listView1.SelectedItem.Index 返回选中项的index

Answer 9

如果要删除多个的话，不能用升序，要用降序
for i=lvwTable.ListItems.Count to 1 step -1
    if lvwTable.listItems(i).Checked then
       lvwTable.ListItems.Remove i
        '此处执行数据库相关操作
    end if
next

Answer 10

Private Sub Command1_Click()
    Dim nCount As Integer
    Dim nIndex As Integer
    
    If MsgBox("是否删除选定的查询？", vbYesNo, "查询") = vbYes Then
        With ListView1
            nCount = .ListItems.Count
            For nIndex = nCount To 1 Step -1
                If .ListItems.Item(nIndex).Checked = True Then
                    .ListItems.Remove nIndex
                End If
            Next
        End With
    End If
End SubPrivate Sub Form_Load()
    Dim itemx As ListItem
    With ListView1
        .Checkboxes = True
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
        .MultiSelect = True
        .View = lvwReport
        .ColumnHeaders.Add , , "Col1"
        Set itemx = .ListItems.Add(, , "Test1")
        Set itemx = .ListItems.Add(, , "Test2")
        Set itemx = .ListItems.Add(, , "Test3")
        Set itemx = .ListItems.Add(, , "Test4")
        Set itemx = .ListItems.Add(, , "Test5")
    End With
End Sub