如何在多列中添加多个复选框（VBA）

Question

我有一个包含多列的 ListView。更准确地说，ListView 包含 8 列。其中 2 个应填写复选框。

目前只有第一列包含复选框。定义如下：

While Not rs.EOF
   //first column with checkboxes
   ListViewCustomer.ListItems.Add , , rs("Id")
   ListViewCustomer.ListItems(ListViewCustomer.ListItems.Count).tag = rs("Status")
   //second column etc.     
   ListViewCustomer.ListItems(ListViewCustomer.ListItems.Count).ListSubItems.Add , , rs("name")
   ....
   //Here is the second column, which doesn't display the checkboxes
   ListViewCustomer.ListItems(ListViewCustomer.ListItems.Count).ListSubItems.Add , , IIf(IsNull(rs("date_from")), "", rs("date_from"))
   ListViewCustomer.ListItems(ListViewCustomer.ListItems.Count).tag = rs("Status2")
Wend

有人知道如何在最后一列中添加复选框吗？

编辑：

通过.Controls添加可以实现本栏目吗？

Answer 1

ListView 是 more expanded version of the ListBox control. 见ListBox control on msdn as well。

它们都显示行记录（ListView 有更高级的格式化选项）。然而，这意味着一条记录是一行。因此，当您选择其中一个项目时，您选择了一行。

复选框的功能是允许用户标记他选择的记录行。

因此，每行只有一个复选框，位于行的前面。

考虑一下这段代码（这是 Excel 2003 VBA，但给了你想法）：

Private Sub UserForm_Initialize()

    Dim MyArray(6, 8)
    'Array containing column values for ListBox.

    ListBox1.ColumnCount = 8
    ListBox1.MultiSelect = fmMultiSelectExtended

    'Load integer values MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
        For j = 1 To 7
            MyArray(i, j) = Rnd
        Next j
    Next i

    'Load ListBox1
    ListBox1.List() = MyArray

End Sub

如果你真的想要，你可以自定义 ListBox 或 ListView。您可以创建一个框架并在其上放置标签和复选框。这是在我测试的 Excel2003 中执行此操作的唯一方法。 ListBox 对象没有 Controls 子对象。

但这更像是一个数据网格，而不是真正的 ListBox 或 ListView，它们根据定义是记录（行）的列表。

更新：

我看到了您的更新，并且您确实想将 CheckBox 放在行尾。

如果您只希望最后一行有一个复选框，则可以使用此自定义复选框。同样，这是为ListBox 编写的，因此如果您愿意，需要将其转换为您的ListView。

仍然需要自定义处理，但我有一些时间，所以我做了这段代码。看看你喜不喜欢：

Private Sub ListBox1_Change()

For i = 0 To ListBox1.ListCount - 1
    ListBox1.List(i, 3) = ChrW(&H2610)
Next i

ListBox1.List(ListBox1.ListIndex, 3) = ChrW(&H2611)

End Sub

Private Sub UserForm_Initialize()

Dim MyArray(5, 3)
'Array containing column values for ListBox.

ListBox1.ColumnCount = 4
ListBox1.MultiSelect = 0
ListBox1.ListStyle = 0


    'Load integer values MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
        For j = 1 To 2
            MyArray(i, j) = Rnd
        Next j
        MyArray(i, 3) = ChrW(&H2610)
    Next i

    'Load ListBox1
    ListBox1.List() = MyArray

End Sub