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. mmm.... snabb check så blir svaret Och ? 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.ListBox problem
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 IfSv: ListBox problem
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.Sv:ListBox problem
Sv: ListBox problem
<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>