Sortering

set List1.Sorted til True

ellers så prøv sådan:


Public lstObj As ListBox

Public Sub AddItem(ByVal new_item As String)
Dim i As Integer

  For i = 0 To lstObj.ListCount - 1
    If Mid(lstObj.List(i), 2, 1) >= Mid(new_item, 2, 1) Then Exit For
  Next i
 
  If i > lstObj.ListCount Then
    lstObj.AddItem new_item
      Else
    lstObj.AddItem new_item, i
  End If
End Sub

Private Sub Form_Load()
'Husk List1.Selected = False
Set lstObj = List1

  AddItem "aaaaaa"
  AddItem "bbbbbb"
  AddItem "cccccc"
  AddItem "r01 -r13"
  AddItem "s01 -s13"
  AddItem "k01 -k13"
  AddItem "h01 -h13"

End Sub

Lst(0).Sorted = True
virker ikke...
Kan man ikke sætte den til at sortere og efterfølgende opdatere den?

man kan ikke skrive "Lst(0).Sorted = True" men du kan sette Sorted til True i properties for List1 eller Lst(x)

Ja, men den skal først sortere listen når man klikker på en knap... Man må kun skrive det ind i koden:

Private Sub Command3_Click()

End Sub

ubs 'Husk List1.Selected = False skulle være 'Husk List1.Sorted = False

nej det skal være sat fra starten om den skal sort eller ej.

Det må kunne lade sig gøre at sortere listen igen ved et tryk på en knap - altså ikke fra start af!?

hvis du har sat List1.Sorted = true så gør den det automatisk, men ikke med den kode jeg har lavet til dig.

Det er måske også fint nok at den sorterer listen fra start af..
Men hvad så når jeg putter noget nyt ind i listen? altså ind imellem andre ting? Så sorterer den ikke...
Er der en måde man kan opdatere den når man tilføjer noget?

er det den kode jeg har lavet du bruger eller er det List1.Sorted = True ??

Det er Lst(1).Sorted = True jeg bruger
når jeg tilføjer noget til listen bliver det ikke sorteret igen...
kan jeg opdatere den ?

det fatter jeg ikke den sorter ikke en skid

hvis man tilføjer:

  List1.AddItem "aaaaaa"
  List1.AddItem "bbbbbb"
  List1.AddItem "cccccc"

bliver det til:
'"bbbbbb"
'"cccccc"
'"aaaaaa"

det skulle vel blive til:
'"aaaaaa"
'"bbbbbb"
'"cccccc"


nu er jeg på bar bund

ellers prøv med List1.Refresh

Det virker fint nok første gang jeg tilføjer til listen - så bliver de sorteret.. Men så gør jeg eks. følgende:
        Lst(0).RemoveItem 3
        Lst(1).ListIndex = 0
        Lst(0).AddItem Lst(1).Text, 3
        Lst(1).RemoveItem 0

Altså der bliver tilføjet til Lst(0) fra Lst(1), men det bliver ikke sorteret igen...

har du prøv med List1.Refresh

Måske du kan ændre på den kode der?
Altså den skal:
Slette nr. 3 i Lst(0)
Tilføje nr. 1 fra Lst(1) til Lst(0) (og så sortere listen)
Slette nr 1 i Lst(1)

prøv uden ,3 (Lst(0).AddItem Lst(1).Text, 3)


Lst(0).RemoveItem 3
Lst(1).ListIndex = 0
Lst(0).AddItem Lst(1).Text
Lst(1).RemoveItem 0

Lst(0).Refresh virker ikke....

Jov det virker :]

Lst(0).RemoveItem 3
Lst(1).ListIndex = 0
Lst(0).AddItem Lst(1).Text
Lst(1).RemoveItem 0

det var da godt :))