(已解决)listview复选相加问题

chenhu1981

各位好，小弟有个问题请教，现在我想在textbox中显示选中的listview复选选中的个数，不知道如何操作，烦请各位帮忙看下，谢谢！ Listview 复选问题.zip (15.69 KB, 下载次数: 5)

2018-7-13 09:52 上传

点击文件名下载附件

1. Private Sub UserForm_Initialize()
   
2.    Dim Item As ListItem, w As Integer
   
3.    With ListView1
   
4.       .CheckBoxes = True
   
5.       w = .Width / 5
   
6.       .ColumnHeaders.Add , , "A", w
   
7.       .ColumnHeaders.Add , , "B", w, lvwColumnCenter
   
8.       .ColumnHeaders.Add , , "C", w, lvwColumnCenter
   
9.       .ColumnHeaders.Add , , "D", w, lvwColumnCenter
   
10.       .ColumnHeaders.Add , , "E", w, lvwColumnCenter
    
11.       For i = 1 To 10
    
12.          Set Item = .ListItems.Add
    
13.          Item = "A" & i
    
14.          For j = 1 To 4
    
15.             Item.SubItems(j) = Choose(j, "B", "C", "D", "E") & i
    
16.          Next
    
17.       Next
    
18.       
    
19.    End With
    
20. End Sub
    
21. 
    
22. 
    
23. Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    
24.     Dim S$, k, iSum
    
25.     With ListView1
    
26.         For i = 1 To .ListItems.Count
    
27.             If .ListItems(i).Checked Then
    
28.                 S = S & "、" & i
    
29. 
    
30.             End If
    
31.         Next
    
32. 
    
33.         For Each k In Split(S, "、")
    
34.             iSum = iSum + Val(k)
    
35.         Next
    
36.         TextBox1.Text = iSum
    
37. 
    
38.     End With
    
39.     If Len(S) = 0 Then
    
40.         Me.Caption = "一行也没有选中"
    
41.     Else
    
42.         Me.Caption = "选中了第" & Right(S, Len(S) - 1) & "行。"
    
43.         k = k + 1
    
44.     End If
    
45.     Label1.Caption = "您当前点击的是第 " & Item.Index & " 行"
    
46.     'TextBox1.Value = Item.Index
    
47.     If Item.Checked Then
    
48. 
    
49.         Item.ForeColor = vbRed
    
50. 
    
51.         For j = 1 To 4
    
52.             Item.ListSubItems(j).ForeColor = vbRed
    
53.         Next
    
54.     Else
    
55.         Item.ForeColor = &H80000008
    
56.         For j = 1 To 4
    
57.             Item.ListSubItems(j).ForeColor = &H80000008
    
58.         Next
    
59.     End If
    
60. 
    
61. 
    
62. End Sub

复制代码