Slet ting fra list

We meet again, Mr Bio :-)

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
  If List1.List(i) = Text1.Text Then
    List1.RemoveItem i
    Exit For
  End If
Next
End Sub

naa..

Private Sub Command1_Click()
  With List1
      If .ListIndex > -1 Then
        .RemoveItem .ListIndex
      End If
  End With
End Sub

Private Sub Form_Load()
  List1.AddItem "Lars"
End Sub

Min virker med en listbox, der indeholder:
hans
lars
ole

Ja og min skal man bare marker den man vil slette :D

OK.. men nu stod der "Jeg vil gerne kunne skrive i en txtbox fx Lars, og så sletter den lars fra min list box.." :_)

:-)

ha ha okæææ fik jeg ikke lige læst ;)

Hej.

Som thesurfer skriver, dog med 'case'

For i = 0 To List1.ListCount - 1
  If lcase(List1.List(i)) = lcase(Text1.Text) Then
    List1.RemoveItem i
    Exit For
  End If
Next i

For det tilfælde at der ikke indtastes stort L i Lars.

M.v.h.  Jørn

Hejsa...
Tak for jeres hurtige svar :)
Men sådan er det jo på eksperten :) altid nogle eksperter online :P
Jeg giver 20 point til thesurfer pga det var hans jeg brugte, men 10 til sjh pga. jeg også kunne bruge hans :)

<-*-*-*- SPØRGSMÅL LUKKET -*-*-*->

og ja thesurfer, we meet again :)

:-)

Jeg sagde godt nok til theSurfer, at jeg ville bruge LCase.. men ham theSurfer hører ikke altid efter.. :-)

Takker for points ;-)

Takker for points ;-)