Listview Subitem etwas hinzufügen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    SubItem auslesen,
    in eine Zahl konvertieren,
    Offset addieren,
    SubItem mit neuem Wert ersetzen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. ListView1.Items.Add("lklkjh")
    3. ListView1.Items(0).SubItems.Add("0")
    4. End Sub
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Dim items As ListViewItem.ListViewSubItemCollection = ListView1.Items(0).SubItems
    8. Dim item As ListViewItem.ListViewSubItem = ListView1.Items(0).SubItems.Item(1)
    9. Dim txt = item.Text
    10. Dim dd As Double = Double.Parse(txt)
    11. dd += 1.2345
    12. items.Item(1) = New ListViewItem.ListViewSubItem(ListView1.Items(0), dd.ToString)
    13. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann nimm SelectedItems:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. For i As Integer = 0 To 9
    3. ListView1.Items.Add("lklkjh_" & i.ToString("00"))
    4. ListView1.Items(i).SubItems.Add(i.ToString())
    5. Next
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. If (ListView1.SelectedItems IsNot Nothing) Then
    10. Dim items As ListViewItem.ListViewSubItemCollection = ListView1.SelectedItems(0).SubItems
    11. Dim item As ListViewItem.ListViewSubItem = ListView1.SelectedItems(0).SubItems.Item(1)
    12. Dim txt = item.Text
    13. Dim dd As Double = Double.Parse(txt)
    14. dd += 1.2345
    15. items.Item(1) = New ListViewItem.ListViewSubItem(ListView1.Items(0), dd.ToString)
    16. End If
    17. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende