Jump to content
Sign in to follow this  
Chamuanza

Ordenar Listbox

Recommended Posts

Chamuanza

Oi Pessoal Um Bem aja

Como é que posso ordenar os items de uma listbox por ordem numerica

Se fizer Lisxtbox.Sorter=True ordena-me 1;11;12;2;21;22 etc,

Eu queria que me ordenasse 1;2;3;4;5;6 etc

Share this post


Link to post
Share on other sites
bioshock

Os dados estão a ser chamados via base de dados? Se sim, os mesmos são campos numéricos? Qual a query que utilizas?

Share this post


Link to post
Share on other sites
Chamuanza

Oi bioshock

Não, os dados são obtidos via rotina que apresento

 Private Sub LerNumerosPicados()

        'Ler numeros picados
        For Each ctrl In Panel1.Controls

            If TypeOf (ctrl) Is Label Then
                If ctrl.BackColor = Color.Yellow Then
                    'MsgBox("Nº da Label - " & ctrl.text)
                    ListBox1.Items.Add(ctrl.text)
                    ' ListBox1.Sorted = True
                End If
            End If
        Next

só que pretendo ordenar os numeros que são nesta caso 5 e que podem variar de 1 a 50 (numeros do euromilhoesmais propriamente)

Share this post


Link to post
Share on other sites
bioshock

Crias uma lista de inteiros e direccionas todos as labels para a mesma. Ordenas a lista que criaste e fazes um loop para inserir na Listbox.

Dim listNr As New List(Of Integer)
        For Each ctrl In Panel1.Controls
            If TypeOf (ctrl) Is Label Then
                listNr.Add(ctrl.Text)
            End If
        Next
        listNr.Sort()
        For Each int As Integer In listNr
            ListBox1.Items.Add(int)
        Next

Share this post


Link to post
Share on other sites
Chamuanza

Obrigado pela dica bioshock era isto que pretendia  :cheesygrin:

Mais um ensinamento

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.