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

将列标题动态添加到listview

3 个答案: