vb LiSTBOX

hej :)

jag använder visual basic 6.0 och undrar hur man hanterar kolumner till listboxar.

t.ex om jag har en listbox med 2 kolumner:
hur lägger jag till en rad med "hej" på kolumn0 och "på dig" i kolumn1?

Och kan man sedan "söka" reda på vilket listindex en viss rad har om man vet kolumn0's värde?

tack på förhand, hjälp uppskattas mkt då google och andra forum inte hjälpt mig så bra :(

Antar att det är en ListView det handlar om och inte en Listbox då sådana inte har kolumner. ;)

För att lägga till en rad:

    Dim cListItem As ListItem
    Set cListItem = ListView.ListItems.Add(, , "hej")
    cListItem.ListSubItems.Add , , "på dig"

För att leta efter ListIndex åt en stäng som finns i kolumn 0, använd denna kod som ger iIndex strängens ListIndex:

    Dim i As Integer, iIndex As Integer
    For i = 1 To ListView.ListItems.Count
        If ListView.ListItems.Item(i).Text = "text" Then
            iIndex = i
            Exit For
        End If
    Next i

R// Vill du att sökningen ska vara oberoende av stora och små bokstäver, byt bara ut

If ListView.ListItems.Item(i).Text = "text" Then

mot

If StrComp(ListView.ListItems.Item(i).Text, "text", vbTextCompare) = 0 Then

:OO

hej, jag pratar om ListBox-objektet man drar in från 'toolbaren'.. tack för hjälpen iaf :)

fluff skrev:

hej, jag pratar om ListBox-objektet man drar in från 'toolbaren'.. tack för hjälpen iaf :)

Du fick iaf svar på din fråga. ;) :e

Jag skrev:

Antar att det är en ListView det handlar om och inte en Listbox då sådana inte har kolumner. ;)

Nu är jag verkligen förvirrad.. :)

hur kan en listbox INTE ha kolumner, när man kan ställa in det i objektets properties? :l

"Columns: 2" <- delar upp listboxen vertikalt i två fält så jag förmodar att det visst handlar om, just, kolumner?

Okej.

Om vi bortser från vad allt kolumner heter, och jag lägger till mina "fält" separerade med "vbtab", hur kan jag då söka upp position för första "fältet" (innan första tabben)?

t.ex om det ser ut så här ->
4 <vbtab> hej <vbtab> x01

Så vill jag söka på '4':an och få ut radens listnummer :)

Dim i As Integer, iIndex As Integer, sText As String

sText = "söktext"
For i = 0 To List1.ListCount - 1
    If Left$(List.List(i), Len(sText)) = sText Then
        iIndex = i
        Exit For
    End If
Next i

Bör väl fungera. Det hittade ListIndexet sparas i iIndex. :)

R// Onödigt att köra igenom loopen även om vi redan hittat ett Index. :)

fluff skrev:

Nu är jag verkligen förvirrad.. :)

hur kan en listbox INTE ha kolumner, när man kan ställa in det i objektets properties? :l

"Columns: 2" <- delar upp listboxen vertikalt i två fält så jag förmodar att det visst handlar om, just, kolumner?

att söka där är på samma sätt som en valig list box
för det Columns2 gör är att när listboxen är fylld neråt så fyller den på vertikalt i stället för neråt.

PsyDonia skrev:

så fyller den på vertikalt i stället för neråt.

Är inte vertikalt och nedåt samma sak? :q

Menar man kanske horisontellt? ;)