VB Express [ListBox]

Bilo tko?

Ali treba mi ova lista

Ne kužim sad.. da ostavim listu i samo texbox promjenim sa comboboxom i to nekako povežem ili što?

Al kao što sam reko treba mi ta lista.. znam zašto

EDIT: Mora se sve odmah vidjeti, kao na ListBox1 al da opet mogu pretraživat

 poigraj se malo sa intelisence...

nisam na compu sa VS...pa pričam malo napamet...ali koliko se sjećam...

listbox bi trebao imati...itemcount...selectedindex...selectedvalue...contains("string_koji_tražiš")...etc...etc

savjet...google je tvoj prijatelj...pitaj ga sve što trebaš

Ne znam hoće li pomoći..

Public Class frmMain

    'korišten je listbox naziva lstPodaci, textbox naziva txtUpit

    'deklariraj polje - može biti nešto drugo, ovdje je jednostavnosti uzeto polje stringova
    Private sLista() As String

    'napuni listbox testnim podacima
    Private Sub UcitajTestnePodatke()

        For I As Integer = 0 To 100
            ReDim Preserve sLista(I)
            sLista(I) = (I & " - Prezime Ime")
        Next
    End Sub

    'filtriraj listbox prema sadržaju teksta
    Private Sub FiltrirajListBox()

        'izađi ako je lista prazna
        If sLista.Count = 0 Then Exit Sub

        'isprazni listbox
        lstPodaci.Items.Clear()

        'filtiraj podatke pomoću petlje
        For I = 0 To sLista.Count - 1
            If sLista(I).Contains(txtUpit.Text) Then
                lstPodaci.Items.Add(sLista(I))
            End If
        Next

    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'učitaj inicijalne testne podatke u polje
        UcitajTestnePodatke()

        'napuni listbox sa dummy podacima, da se dobije privid punog grida.
        For I = 0 To sLista.Count - 1
            lstPodaci.Items.Add(sLista(I))
        Next
    End Sub

    Private Sub txtUpit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUpit.TextChanged
        'kod promjene sadržaja teksta, filtiraj polje i prikaži one koji zadovoljavaju uvjet.
        'po meni bi bilo bolje da se to odvija na enter ili nešto sl... ovo mi je malo overkill na evente.
        FiltrirajListBox()
    End Sub
End Class

Ne znam jesi li na tako nešto mislio?

Ako nisi, zanemari moj post.

Lijep pozdrav.

 i u čemu je problem?

za brisanje ostalih imaš...removeitem...koji ti traži index...i makneš sve osim dobivenog index-a

jedino ćeš morati...svaki puta ponovo puniti listbox...za novu pretragu

Novi problem..

Sada pokušavam članove liste učitati iz datoteke (nemojte pitati zašto)

Uglavnom, ako nisu svih pet redova upisani izbacuje mi grešku (makar sam stavio provjere jel je string prazan)

Imports System.IO

Private Sub UcitajPodatke()
        ReDim Preserve sLista(0)
        ReDim Preserve sLista(1)
        ReDim Preserve sLista(2)
        ReDim Preserve sLista(3)
        ReDim Preserve sLista(4)

        Dim Reader As New StreamReader("workers.dat")

        If ((String.IsNullOrEmpty(Reader.ReadLine())) = False) Then sLista(0) = (Reader.ReadLine())
        If ((String.IsNullOrEmpty(Reader.ReadLine())) = False) Then sLista(1) = (Reader.ReadLine())
        If ((String.IsNullOrEmpty(Reader.ReadLine())) = False) Then sLista(2) = (Reader.ReadLine())
        If ((String.IsNullOrEmpty(Reader.ReadLine())) = False) Then sLista(3) = (Reader.ReadLine())
        If ((String.IsNullOrEmpty(Reader.ReadLine())) = False) Then sLista(4) = (Reader.ReadLine())

End Sub

Nikad ja ne budem shvatio taj Visual Basic

EDIT: Rješeno!

Stavio sam provjeru u filtriranju

If ((String.IsNullOrEmpty(sLista(I)) = False)) Then

        If (sLista(I).Contains(TextBox1.Text)) Then
                ListBox1.Items.Add(sLista(I))
        End If

End If