You can do this in two ways:
1. Show only a Button in each subitem for specified column.At first set the type specified column to contain controls:
Code:Me.listView1.Columns(1).ContentType = ColumnContentType.Control
Me.listView1.Columns(1).ContentControlVisibility = ContentControlVisibility.AlwaysVisible
Then add a Button control to each subitem in this column:
Code:Dim btn As Button = Nothing
For Each item As LidorSystems.IntegralUI.Lists.ListViewItem In Me.listView1.Items
For j As Integer = 0 To Me.listView1.Columns.Count - 1
Dim subItem As LidorSystems.IntegralUI.Lists.ListViewSubItem = New ListViewSubItem()
subItem.Text = ("Item " & item.Index) + j.ToString()
Select Case Me.listView1.Columns(j).ContentType
Case ColumnContentType.Control
btn = New Button()
btn.Size = New Size(60, 22)
btn.Text = subItem.Text
AddHandler btn.Click, AddressOf btn_Click
subItem.Control = btn
Exit Select
End Select
item.SubItems.Add(subItem)
Next
Next
Me.listView1.UpdateLayout()
2. Show a custom rich content in some subitem for specified column.At first set the type specified column to contain custom content:
Code:Me.listView1.Columns(2).ContentType = ColumnContentType.Custom
Then create a custom content to some subitem in this column:
Code:Dim btn As Button = Nothing
For Each item As LidorSystems.IntegralUI.Lists.ListViewItem In Me.listView1.Items
For j As Integer = 0 To Me.listView1.Columns.Count - 1
Dim subItem As LidorSystems.IntegralUI.Lists.ListViewSubItem = New ListViewSubItem()
subItem.Text = ("Item " & item.Index) + j.ToString()
Select Case Me.listView1.Columns(j).ContentType
Case ColumnContentType.[Custom]
btn = New Button()
btn.Size = New Size(60, 22)
btn.Text = subItem.Text
AddHandler btn.Click, AddressOf btn_Click
subItem.Controls.Add(btn)
subItem.Content = "<div>" & subItem.Text & " <control index=""0""></control></div>"
Exit Select
End Select
item.SubItems.Add(subItem)
Next
Next
Me.listView1.UpdateLayout()
