动态添加列 headers 到列表视图

Question

我有一个要动态添加列 headers 的列表视图。

    For i = 1 To MaxMatches
        Tempstring = "Match " & i.ToString
        ScheduleListView1.Columns.Add(New ColumnHeader() Tempstring)
    Next

悬停提示似乎表明我可以做到这一点（我会 post 它的照片，但我的声誉还没有）。

但它不喜欢语法。

提前感谢您的帮助

Answer 1

这可能会更好：

ScheduleListView1.Columns.Add(Tempstring)

Answer 2

我似乎通过在 for 循环中调用子函数找到了解决方法：

Sub AddaColumn(ByRef ColumnString As String)
    Dim NewCH As New ColumnHeader

    NewCH.Text = ColumnString
    ScheduleListView1.Columns.Add(NewCH)
End Sub

我怀疑可能有更好的解决方案，我希望那些聪明的人会post一个。

Answer 3

您可以通过设置更多属性来创建通用列添加函数

    public function Add_column(byval ListX as listview, byval ColString as string)
        Dim NewCH as new ColumnHeader

        NewCH.text = ColString
        listx.columns.add(NewCH)

    End Function

动态添加列 headers 到列表视图

Adding column headers to listview dynamically

vb.net

dynamic

columnheader