check i listbox

hvis din form hedder form1, og din listbox hedder List1, så find \"1\":

Dim a, b
a = Form1.List1.ListCount
For b = 0 To a - 1
    If Form1.List1.List(b) = \"1\" Then
        \'gør et eller andet
    End If
Next b

MVH tjacob

Private Sub Form_Load()
Dim i As Long
  For i = 0 To 9
    List1.AddItem \"Tekst \" & i
  Next i
List1.ListIndex = 0
End Sub

Private Sub List1_Click()
  If List1.ListIndex = 5 Then \'Tekst 5
    MsgBox \"bla bla\"
  End If
End Sub

Din måde er jo den samme som

timer1_timer()
if list1 = \"1\" then
\'gør et eller andet
End If

---

men det er ikke det jeg mente - undskyld!

Jeg har en masse værdier i en listbox, og de skal alle sammen gemmes i en fil, men når jeg prøver på det, vil programmet kun gemme den markede værdi.

Kan du hjælpe med det istedet - jeg er villig til at forhøje pointene...

/jsc

dette gemmer alle værdierne fra listboxen i filen \"filnavn\" (en på hver linie):

Dim a, b
open \"filnavn\" for append as #1
a = Form1.List1.ListCount
For b = 0 To a - 1
    print #1, Form1.List1.List(b)
Next b
close #1


print #1,strArray(b)

UPS -se bort fra den nederste linie

det er iorden! tak!

point til dig!