在列表视图中添加按钮作为子项 VB.NET

Question

美好的一天。我在列表视图中有这个问题。我想在每个相应数据的列表视图中添加控制按钮。我的意思是每一行都有数据，名为“更新”的控制按钮也将显示在列表视图的最后一列。下面的代码不起作用，我不知道如何解决这个问题。

    Dim li As ListViewItem
    Dim dt As New DataTable
    Dim da As SqlDataAdapter

    connect()
    Dim sql As String = "SELECT * FROM tbl_Data"
    da = New SqlDataAdapter(sql, cn)
    da.Fill(dt)
    lv.Items.Clear()
    For i = 0 To dt.Rows.Count - 1
        li = lv.Items.Add(dt.Rows(i).ItemArray(0).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(1).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(2).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(3).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(4).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(5).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(6).ToString)
        li.SubItems.Add(dt.Rows(i).ItemArray(7).ToString)

    Next

    Dim b = New Button
    b.Name = "update"
    b.Text = "UPDATE"
    lv.Controls.Add(b)

Answer 1

你可以像这样创建一个自定义类：

Public Class CustomItem
    Inherits ListViewItem

    Public customButton As Button

    Public Sub New(ByVal buttonText As String, ByRef listView As ListView)
        Me.Text = buttonText
        listView.Items.Add(Me)
        customButton = New Button
        customButton.Left = Me.GetBounds(ItemBoundsPortion.Entire).Left
        customButton.Left = Me.GetBounds(ItemBoundsPortion.Entire).Left
        customButton.Width = Me.GetBounds(ItemBoundsPortion.Entire).Width
        customButton.Text = buttonText
        listView.Controls.Add(customButton)
    End Sub

End Class

然后像这样在ListView 中插入一个新的CustomItem：

Dim item As New CustomItem("Update", ListView1)

这是一个开始。它有很多功能没有实现，但您可以添加。