Ordenar Labels


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Ordenar Labels

João Paulo

ARCOS
MG - BRASIL

Postada em 17/10/2012 20:23 hs

Pessoal tenho 4 Label e eles recebem numeros, gostaria de ordenar os label da seguinte formar

Ex.:

Label1.caption = "5"
Label2.caption = "12"
Label3.caption = "8"
Label4.caption = "15"

Ordenando ficaria assim:

Label1.caption = "5"
Label2.caption = "8"
Label3.caption = "12"
Label4.caption = "15"

Ou seja trocaria os valores dos labels.

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 25/10/2012 12:47 hs

Crie um array de controle dos labels.
Imaginando que o numero venha de um Text

For I = 1 To 4
      If Val(Label(I).Caption) >= Val(Text1.Text) Then
           If I < 4 Then
                For II = (I + 1) To 3
                      Label(II).Caption = "" & Label (II + 1).Caption
                Next II
           End If
           Label(I).Caption = Text1.Text
      End If
Next I

Também não esqueça de testar se os labels são valores e não estão vazios.

A idéia é esta, talvez alguém possa melhorar.

vlu//

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 25/10/2012 12:49 hs

Não esqueça de sair do For I Next I, se os valores forem true.
For I = 1 To 4
      If Val(Label(I).Caption) >= Val(Text1.Text) Then
           If I < 4 Then
                For II = (I + 1) To 3
                      Label(II).Caption = "" & Label (II + 1).Caption
                Next II
           End If
           Label(I).Caption = Text1.Text
           Exit For
      End If
Next I

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR