none
Como organizar por ordem alfabética os dados de um ListBox? RRS feed

  • Pergunta

  • Alguém sabe com fazer para organizar os dados de um ListBox em ordem alfabética?

    Vamos supor que exista um formulário que possui um Texbox "Textbox1" um Listbox "Listbox1" e um CommandButton "Commandbutton1" .

    Como faço para que quando eu clicar no Commandbutton1 o texto do Textbox1 seja inserido na listagem do Listbox1 e depois organizar todo por ordem alfabética?


    Private Sub CommandButton1_Click()
    ListBox1.AddItem TextBox1.Value
    End Sub

    Valeu...

    sexta-feira, 13 de julho de 2012 02:34

Respostas

  • Dim iForsta, iSista As Integer
    Dim i, j As Integer
    Dim sTemp As String
    iForsta = 0
    iSista = ListBox1.ListCount - 1
    For i = iForsta To iSista - 1
        For j = i + 1 To iSista
            If ListBox1.List(i) > ListBox1.List(j) Then
                sTemp = ListBox1.List(j)
                ListBox1.List(j) = ListBox1.List(i)
                ListBox1.List(i) = sTemp
            End If
        Next j
    Next i


    jose

    • Marcado como Resposta Richard Vieira domingo, 15 de julho de 2012 06:42
    sexta-feira, 13 de julho de 2012 22:57

Todas as Respostas