cad vba listbox控件设置表头

在 AutoCAD VBA 中，您可以使用 Listbox 控件的 ColumnHeaders 属性来设置表头。以下是一个示例代码：

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 3
        .ColumnHeaders.Add , "列1"
        .ColumnHeaders.Add , "列2"
        .ColumnHeaders.Add , "列3"
    End With
End Sub

这里我们设置了 Listbox 的列数为 3，然后添加了三个表头分别为“列1”，“列2”，“列3”。您可以根据需要修改列数以及表头内容。

如果您想要对每个列设置不同的宽度，可以使用 ColumnWidths 属性。例如，将第一列宽度设置为 50，第二列宽度设置为 100，第三列宽度设置为 150：

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;100;150"
        .ColumnHeaders.Add , "列1"
        .ColumnHeaders.Add , "列2"
        .ColumnHeaders.Add , "列3"
    End With
End Sub

注意，列表框控件的 ColumnHeaders 属性只能在窗体的 Initialize 事件中设置，如果您需要在其他事件中修改表头，则需要先清空表头，再重新添加。例如，在“清空”按钮的 Click 事件中清空表头：

Private Sub CommandButton1_Click()
    ListBox1.ColumnHeaders.Clear
End Sub