Edit Cells in ListView

Add a textbox and name it TextOverlay

Dim iRow, iCol as Integer


Private Sub TextOverlay_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Hanldes TextOverlay.TextChanged

        'ListView1.Items(iRow).SubItems(iCol).Text = TextOverlay.Text

        'TextOverlay.Hide()

        'TextOverlay.Visible = False

        'funUpdate() 'lstLicenses(sServer, 'lstLicenses.Items(iRow).Text, TextOverlay.Text, 'lstLicenses.Items(iRow).SubItems(iCol).Tag)

        ListView1.Items(iRow).SubItems(iCol).Text = TextOverlay.Text

        If Not lstChanged.Exists(Function(value As String) value = ListView1.Items(iRow).Text.ToString) Then lstChanged.Add(ListView1.Items(iRow).Text)

        Dim lvSu As ListViewItem = ListView1.Items(iRow) '.SubItems(iCol).item

        lvSu.UseItemStyleForSubItems = False

        lvSu.SubItems(iCol).ForeColor = Color.Red

        'TextOverlay.Hide()

        'TextOverlay.Visible = False

        'funUpdateLstLicenses(sServer, lstAllLicenses.Items(iRow).Text, TextOverlay.Text, lstAllLicenses.Items(iRow).SubItems(iCol).Tag)

        'Me.Focus()
End Sub

Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
        Dim hit As ListViewHitTestInfo = ListView1.HitTest(e.X, e.Y)
        Dim iWidth As Integer
        For iCol = 0 To hit.Item.SubItems.Count - 1
            If hit.Item.SubItems(iCol).Bounds.Left <= e.X Then
                If iCol = 0 And hit.Item.SubItems.Count > 1 Then
                    If e.X <= hit.Item.SubItems(1).Bounds.Left Then
                        iWidth = hit.Item.SubItems(1).Bounds.Left
                        Exit For
                    End If
                ElseIf e.X <= hit.Item.SubItems(iCol).Bounds.Right Then
                    iWidth = hit.Item.SubItems(iCol).Bounds.Width
                    Exit For
                Else
                    TextOverlay.Visible = False
                End If
            Else
                TextOverlay.Visible = False
            End If
        Next
        iRow = hit.Item.Index

        Debug.Print("hit.Item.Index: " & hit.Item.Index)
        Try

            Debug.Print("hit.SubItem.Tag.ToString: " & hit.SubItem.Tag.ToString)
            'Debug.Print(" hit.Item.Tag: " & hit.Item.Tag)
            If hit.SubItem.Tag.ToString = "ReadOnly" Then Return
            TextOverlay.Left = ListView1.Left + hit.SubItem.Bounds.Left + 3
            TextOverlay.Top = ListView1.Top+ hit.SubItem.Bounds.Top
        Catch ex As Exception
            Debug.Print("hit.SubItem.Tag.ToString:" & hit.Item.Tag.ToString)
            Debug.Print(" hit.Item.Tag: " & hit.Item.Tag)
 
           If hit.Item.Tag.ToString = "ReadOnly" Then Return
            TextOverlay.Left = ListView1.Left+ hit.SubItem.Bounds.Left + 3
            TextOverlay.Top = ListView1.Top+ hit.SubItem.Bounds.Top
        End Try

        Debug.Print("hit.Item.Index: " & hit.Item.Index)
        Debug.Print("hit.SubItem.Tag.ToString: " & hit.SubItem.Tag.ToString)
        Debug.Print(" hit.Item.Tag: " & hit.Item.Tag)
        If hit.SubItem.Tag.ToString = "ReadOnly" Then Return
        TextOverlay.Left = ListView1.Left + hit.SubItem.Bounds.Left + 3
        TextOverlay.Top = ListView1.Top + hit.SubItem.Bounds.Top
        TextOverlay.Width = iWidth
        TextOverlay.Height = 18
        TextOverlay.Text = hit.SubItem.Text
        TextOverlay.Visible = True
        TextOverlay.Focus()
        TextOverlay.ReadOnly = False
End Sub

'https://stackoverflow.com/questions/10298551/make-a-cell-editable-in-a-listview

Add ComboBox to Listview

Dim Combo As New ComboBox

Dim lvitem As ListViewItem = lstGroups.Items.Add("Add to the right -->")

Combo.DropDownStyle = ComboBoxStyle.DropDown

Combo.Height = lvitem.Bounds.Height

Combo.Location = New Point(lvitem.Bounds.Right - 20, lvitem.Bounds.Y)

AddHandler Combo.SelectedIndexChanged, AddressOf Combo_SelectedIndexChanged

AddHandler Combo.KeyUp, AddressOf Combo_KeyUp

'AddHandler Combo.sel AddressOf Combo_SelectedIndexChanged

lstGroups.Controls.Add(Combo)

--

Private Sub Combo_SelectedIndexChanged(sender As Object, e As EventArgs)

'Throw New NotImplementedException()

Dim cmb As ComboBox = CType(sender, ComboBox)

If cmb.Text = "Add to the right -->" Then Return

If MsgBox("Add? " & cmb.Text, MsgBoxStyle.YesNo) = vbYes Then

Dim lvItem As ListViewItem = lstGroups.Items.Add(cmb.Text)

AddGroup(sServer, cmb.Text)

End If

End Sub

Private Sub Combo_KeyUp(sender As Object, e As KeyEventArgs) 'Handles ComboBox1.KeyUp

If e.KeyCode = Keys.Enter Then

Combo_SelectedIndexChanged(sender, Nothing)

End If

End Sub

Change Color of ListView cell (ListItem)

Dim lvSu As ListViewItem = ListView1.Items(iRow) '.SubItems(iCol).item

lvSu.UseItemStyleForSubItems = False

lvSu.SubItems(iCol).ForeColor = Color.Red

Change Textbox to ComboBox with F3

textoverlay#_KeyDown

'----

ElseIf e.KeyCode = Keys.F3 Then

TextOverlay2.Visible = False

Dim lvItem As ListViewSubItem = lstAllLicenses.Items(iRow).SubItems(iCol)

Dim Combo1 As New ComboBox

Combo1.DropDownStyle = ComboBoxStyle.DropDown

Combo1.Height = lvitem.Bounds.Height

Combo1.Location = New Point(lvItem.Bounds.Left, lvItem.Bounds.Y)

Combo1.Items.Add(lvItem.Tag)

'Combo1.Items.Add("Test2")

'Combo1.Items.Add("Test3")

'Combo1.Items.Add("Test4")

funGetAllDataFromField(lvItem.Tag, Combo1)

Combo1.Text = lvItem.Text

AddHandler Combo1.SelectedIndexChanged, AddressOf Combo1_SelectedIndexChanged

AddHandler Combo1.KeyUp, AddressOf Combo1_KeyUp

AddHandler Combo1.LostFocus, AddressOf Combo1_LostFocus

lstAllLicenses.Controls.Add(Combo1)

End If

'----

Private Sub Combo1_KeyUp(sender As Object, e As KeyEventArgs) 'Handles ComboBox1.KeyUp

If e.KeyCode = Keys.Enter Then

Combo1_SelectedIndexChanged(sender, Nothing)

Dim cmb As ComboBox = CType(sender, ComboBox)

lstAllLicenses.Controls.Remove(cmb)

End If

End Sub

Private Sub Combo1_LostFocus(sender As Object, e As EventArgs) '--Handles ComboBox1.LostFocus

Combo1_SelectedIndexChanged(sender, Nothing)

Dim cmb As ComboBox = CType(sender, ComboBox)

lstAllLicenses.Controls.Remove(cmb)

End Sub

Private Sub Combo1_SelectedIndexChanged(sender As Object, e As EventArgs)

'Throw New NotImplementedException()

Dim cmb As ComboBox = CType(sender, ComboBox)

Debug.Print("cmb.text: " & cmb.Text)

'If cmb.Text = "Add to the right -->" Then Return

lstAllLicenses.Items(iRow).SubItems(iCol).Text = cmb.Text

'If MsgBox("Add? " & cmb.Text, MsgBoxStyle.YesNo) = vbYes Then

' Dim lvItem As ListViewItem = lstGroups.Items.Add(cmb.Text)

' AddGroup(sServer, cmb.Text)

'End If

End Sub

Adding a ComboBox to a Column Header

    Function GetLeftOfColumn(column As ColumnHeader, lv As ListView) As Integer
        If (Not lv.Columns.Contains(column)) Then
            Return -1
        End If

        Dim calculated_left As Integer = 0

        Dim i As Integer = 0
        While i < lv.Columns.Count
            If (lv.Columns(i).Index = column.Index) Then
                Return calculated_left
            Else
                calculated_left += lv.Columns(i).Width + 1
                i += 1
            End If

        End While

        Return calculated_left
    End Function


    Private Sub lstEntries_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles lstEntries.ColumnClick
        Dim cnt As Integer
        Dim CurCol As Integer

        CurCol = GetLeftOfColumn(lstEntries.Columns(e.Column), lstEntries)
        If lstEntries.Columns(e.Column).Tag = "readonly" Then Return

        If CurCol > -1 Then TextOverlay.Visible = True
        Debug.Print("GetLeftOfColumn: " & CurCol)

        Dim locationOnForm As Point = lstEntries.FindForm().PointToClient(lstEntries.Parent.PointToScreen(lstEntries.Location))
        Debug.Print("locationOnForm: " & locationOnForm.X & "," & locationOnForm.Y)
        Dim x = locationOnForm.X + CurCol - 3
        Dim y = TextOverlay.Height / 2 'locationOnForm.Y
        TextOverlay.Location = New Point(x, y)
        TextOverlay.Width = lstEntries.Columns(e.Column).Width - 10
    End Sub

    Private Sub TextOverlay_TextChanged(sender As Object, e As EventArgs)
        If TextOverlay.Text = "**all**" Then
            LoadCategories()
            Return
        End If

        For Each oItem As ListViewItem In lstEntries.Items
            If LCase(oItem.SubItems(2).Text) <> LCase(TextOverlay.Text) Then
                oItem.Remove()

            End If
        Next
    End Sub

    Private Sub lstEntries_Click(sender As Object, e As EventArgs) Handles lstEntries.Click
        TextOverlay.Visible = False
    End Sub

    Private Sub lstEntries_ColumnWidthChanged(sender As Object, e As ColumnWidthChangedEventArgs) Handles lstEntries.ColumnWidthChanged
        lstEntries_Click(Nothing, Nothing)
        lstEntries_ColumnClick(sender, New ColumnClickEventArgs(e.ColumnIndex))
    End Sub