Hej. Det ser underligt ud. Kan man bruge Select Case på stenge?
Hvis du ønsker at identificere en bestemt post i en liste efter dens indhold af tegn, må du søge den med 'lig med' eller 'indeholder'
For a = 0 to lstresultat.listcount - 1 lstresultat.listindex = a If InStr(lstresultat.text, "OprettetAf")>0 then lstresultat.RemoveItem a Exit For End IF Next a
der er flere måder at gøre det på, alt afhængig af om du er sikker på at de to listboxe er ens eller om du vil søge på selve teksten her er en af måderne der søger på teksten
Private Sub List1_Click() a = List1.ListIndex For i = 0 To List2.ListCount - 1 If List2.List(i) = List1.Text Then List2.RemoveItem (i) Next i List1.RemoveItem (a) End Sub
Private Sub List1_Click() a = List1.ListIndex For i = 0 To List2.ListCount - 1 If List2.List(i) = List1.Text Then List2.RemoveItem (i) If List2.List(0) = List1.Text Then List2.RemoveItem (0) Next i List1.RemoveItem (a) End Sub
sætningen If List2.List(0) = List1.Text Then List2.RemoveItem (0)
sørger blot for at der ikke ligger noget og roder rundt i din list2 efter du har gennemgået løkken...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
