vb.net - 动态添加列标题到列表视图

Question

我有一个列表视图，我想动态添加列标题。

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

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

但它不喜欢语法。

我在这里先向您的帮助表示感谢

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

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

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