Private Sub lvProdukt_Click ...
Dim mListView As ListView = CType(sender, ListView)
        Dim sItemText As String = CType(sender, ListView).FocusedItem.Text
        If bHasJustBeenEdited = True Then
            Dim i As Integer
            For i = 0 To mListView.Items.Count - 1
                If IsNumeric(mListView.Items(i).Text) Then
                    mListView.Items(i).Text = mListView.Items(i).Text & "x"
                End If
            Next
            bHasJustBeenEdited = False
        Else
            If sItemText.EndsWith("x") Then
                sItemText = sItemText.Substring(0, sItemText.Length - 1)
                If IsNumeric(sItemText) Then
                    mListView.FocusedItem.Text = sItemText
                End If
            End If
            mListView.FocusedItem.BeginEdit()
            bHasJustBeenEdited = True
End sub
 
Private Sub lvProdukt_BeforeLabelEdit
bHasJustBeenEdited = True
    End Sub
 
 Private Sub lvProdukt1_SelectedIndexChanged
bHasJustBeenEdited = True
    End Sub
Wenn keine Zahl, abbruch, oder wenn keine Veränderung (e.Label = Nothing) -> _
  sehr wichtig
Private Sub lvProdukt_AfterLabelEdit
If e.Label = Nothing Then
            Return
        End If
        If IsNumeric(e.Label) = False Then
            e.CancelEdit = True
            Exit Sub
        End If
Wenn der Anwender beim verändern in eine andere Liste klickt
Private Sub lvProdukt_Leave
 Dim mListView As ListView = CType(sender, ListView)
        Dim i As Integer
        For i = 0 To mListView.Items.Count - 1
            If IsNumeric(mListView.Items(i).Text) Then
                mListView.Items(i).Text = mListView.Items(i).Text & "x"
            End If
        Next
    End Sub
        End If

Mehr Fragen als Wissen....und Spa? daran