Jag har en listbox med flera alternativ i t.ex Volvo, SAAB, Opel, Ford. Nu vill jag skriva in SAAB i en textruta, klicka på en knapp och ta bort alternativet SAAB ur ListBoxen utan att behöva markera alternativet SAAB. Programmet ska alltså loopa igenom listboxen tills det hittar alternativet SAAB.

Koden för att ta bort ett valt alternativ har jag redan. Anväder då:

Dim Found As Boolean
Dim I As Integer
If ListBilar.Text <> "" Then
For I = 0 To ListBilar.ListCount
If ListBilar.List(I) = ListBilar.Text Then
ListBilar.RemoveItem I
ListBilar.Text = ""
Found = True
End If
If Found Then Exit For
Next I
Else
Beep
End If

mmm.... snabb check så blir svaret Och ?

Du tänker ju helt rätt. Var skiter det sig ?

Skall kolla noga men det blir ganska likt det du gjort ser jag redan.

Problemet är att jag måste klicka på det alternativ som ska tas bort. Jag vill att alternativet tas bort utan att jag klickar på listen genom att alternativet skrivs in i en annan textruta.

Ungefär så här . Kör detta exempel. Snabbt ihopskruvat.

<code>
Option Explicit
Private Sub Form_Load()
'Fyller ListBoxen med något
Dim i As Long
For i = 0 To Screen.FontCount - 1
ListBilar.AddItem Screen.Fonts(i)
Next
'Tänker ta bort alla som har ordet "Times" i sig
cmdTaBort.Caption = "TaBort"
Text1.Text = "Times"
End Sub

Private Sub cmdTaBort_Click()
Dim i As Long
If Text1.Text <> "" Then
For i = 0 To ListBilar.ListCount - 1
If InStr(ListBilar.List(i), Text1.Text) Then ListBilar.RemoveItem i
'Tar bort alla med ordet "Times" i texten som står i i Text1
Next 'i
End If
End Sub

Tryck flera gånger så rensar du. Det blev snabbkod.
</code>

Tack det funkade perfekt, som vanligt löser du mina problem.