[VisualBasic] Listview vergleichen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Knusperkeks, 3. Oktober 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 3. Oktober 2006
    Listview vergleichen

    Hallo leute des guten Geschmacks

    Ich versuche gerade für mein Projekt die inhalte zweier meiner Listview-boxen zu vergleichen, und die element in ne txtbox zu schreiben die nicht vorhanden sind.

    Nur leider will das nicht funktionieren ....!

    Code:
    Private Function listcompare(l1 As ListView, l2 As ListView, txt As TextBox)
Dim i, j As Long
Dim compare As Boolean

For i = 0 To l1.ListItems.Count

 compare = False
 For j = 0 To l2.ListItems.Count
 
 If l1.ListItems(i).Text = l2.ListItems(j).Text Then
 compare = True
 Exit For
 End If
 Next j
 
 If compare = False Then txt.Text = txt.Text & l1.ListItems(i).Text & ", "
Next i

End Function
    Der aufruf:

    Code:
    listcompare listview1, listview2, Text1
    Was mache ich falsch? Steh echt auf der leitung


    Knusperkeks
     
  3. 3. Oktober 2006
    AW: Listview vergleichen

    bei dir kommt nie "compare = false" raus....
    ich denke mal das erste "compare = true" sollte "compare = false" heißen, oder?^^
    mfg r90
     
  4. 3. Oktober 2006
    AW: Listview vergleichen

    Jo den fehler hab ich auch gerade gesehen ....


    Geht aber trotzdem nicht (man muss das erste compare auf false setzen ....)


    Knusperkeks
     
  5. 3. Oktober 2006
    AW: Listview vergleichen

    EDIT: Ich habe mich geirrt...

    bei mir kommt "Benutzerdefinierter Typ nicht deffiniert"
     
  6. 3. Oktober 2006
    AW: Listview vergleichen

    Dein Code berichtigt

    Code:
    Private Function listcompare(l1 As ListBox, l2 As ListBox, txt As TextBox)
Dim i, j As Long
Dim compare As Boolean

For i = 0 To (l1.ListCount - 1)
 compare = False
 For j = 0 To (l2.ListCount - 1)
 If l1.List(i) = l2.List(j) Then
 compare = True
 Exit For
 End If
 Next j
 If compare = False Then txt.Text = txt.Text & l1.List(i) & ", "
Next i
End Function
     
  7. 3. Oktober 2006
    AW: Listview vergleichen

    Code:
    Private Function listcompare(l1 As ListView, l2 As ListView, txt As TextBox)
Dim i, j As Long
Dim compare As Boolean

For i = 0 To (l1.ListItems.Count - 1)
 compare = False
 For j = 0 To (l2.ListItems.Count - 1)
 If l1.ListItems(i + 1) = l2.ListItems(j + 1) Then
 compare = True
 Exit For
 End If
 Next j
 If compare = False Then txt.Text = txt.Text & l1.ListItems(i + 1) & ", "
Next i
End Function
    So gehts jetzt habs ich auch endlich die funktion drinne

    Knusperkeks
     
  8. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.