Keskustelu: Ohjelmointikysymykset: [VB6] Onko sana ListBoxissa

Miten saan että ohjelma tietää onko listboxissa jollain rivillä esim sana "testi"?
Mitä laitan "ListBoxissaSana":n tilalle?

Private Sub sendSock_EnMuista ()
Dim countt As Integer
If Not ListBoxissaSana sendSock.RemoteHostIP & "(" & countt & ". kävijä)" Then
countt = countt + 1
ListBox.AddItem sendSock.RemoteHostIP & "(" & countt & ". kävijä)"
Beep
count = count + 1
End If
End Sub

Valmista funktiota ei ole, mutta semmoisen voi tehdä helposti:

Function Listassa(lista As ListBox, sana As String) As Boolean
    Dim i As Integer
    For i = 0 To lista.ListCount - 1
        If lista.List(i) = sana Then
            Listassa = True
            Exit Function
        End If
    Next
    Listassa = False
End Function

Private Sub Form_Load()
    List1.AddItem "eka"
    List1.AddItem "toka"
    List1.AddItem "kolmas"

    MsgBox Listassa(List1, "toka") ' True
    MsgBox Listassa(List1, "outo") ' False
End Sub

Funktiolle annetaan siis listan nimi ja etsittävä sana. Jos sana on listassa, funktio palauttaa True.

Mitä toi nyt tekee tossa "Form_Load":ssa?

Tein vain tuommoisen esimerkin, jonka voi esim. suoraan kopioida VB-editoriin ja kokeilla koodin toimintaa. Funktiota voi toki käyttää missä tahansa samalla tavalla.