sorting

[anelie]

I don't know how to sort this one. Can you please help me?

Using array, and using the bubble sort...

Option Explicit
Public ctr As String
 
Private Sub cmdAdd_Click()
Dim a As Integer
Dim abc As String
 
a = InputBox("Number")
 
For a = 1 To a
    abc = InputBox("name")
    List1.AddItem abc
Next a
    cmdAdd.Enabled = False
    ctr = a
 
End Sub
 
Private Sub cmdsort_Click()
    Dim x As Integer
    Dim y As Integer
    Dim compare1 As String
    Dim compare2 As String
 
    x = 0
    y = 0
 
    compare2 = List1.List(y + 1)
    compare1 = List1.List(y)
 
    While x <= ctr - 1
        If x = ctr Then
            List2.AddItem compare1
        Else
            If compare1 <= compare2 Then
                compare1 = compare1
                x = x + 1
 
            List2.AddItem compare1
                y = y + 1
                compare2 = List1.List(y + 1)
                compare1 = List1.List(y)
            Else
                compare1 = compare2
    End If
End If
 
Wend
 
 
End Sub

[hariharanmca]

I think we have sort option in listBox itself!

Set Property Sorted = True in property window.

[Killer42]

As Hari pointed out, the ListBox control has a Sorted property which may solve your issue. The thing is, you haven't actually told us what the problem is.