Pessoal, Boa tarde!

Em um formulario eu tenho um frame com 30 CommandButton, onde o usuario altera o caption de cada botao colocando o nome das pessoas, tipo:

Botao1=Maria
Botao2=Analice
Botao3=Jose
Botao4=Emanuel
.......

Seria possivel, assim que o usuario alterasse o caption de um botao, os botes se ordenasse.
Quando o usuario alteressa   Botao4=Emanuel

Entao iria ficar assim:

Botao2=Analice
Botao4=Emanuel
Botao3=Jose
Botao1=Maria

ordenado pelo caption.

desde ja agradeço
Emanuel

emanuel , eu fiz um exemplo rapido aqui, acho que ta funcionando ok, teste ai, depois me fala, nao testei com 30 nao, só com 4, mas acho que vai funcionar com qualquer quantidade

 

Private Sub pOrdena()

    Dim i As Integer
    Dim j As Integer
    Dim sCapAtu As String
    Dim sCapApo As String
   
    For j = 0 To 1
        For i = 0 To Me.Command1.Count - 1
       
            If i < Me.Command1.Count - 1 Then
           
                sCapAtu = Me.Command1(i).Caption
                sCapApo = Me.Command1(i + 1).Caption
           
                If sCapAtu > sCapApo Then
                    Me.Command1(i).Caption = sCapApo
                    Me.Command1(i + 1).Caption = sCapAtu
                End If
               
            End If
           
        Next i
    Next j
   
End Sub

emanuel, esqueci de te falar, se nao estiver ordenando, é só aumentar a variavel J exemplo

 

for j = 0 to 100

 

que ele ordena ok

 

Oi Alexandre, obrigado.

 

Vou da uma analisada hj a tarde e te digo.

 

valeu

Emanuel

Caro Alexandre,

É exatamente isso que estou precisando... funcona perfeitamente, so tem um detalhe.

Quando os botoes tem um index...0,1,2,3,4...20

Dai quando solicito para ordenar, os index sao trocados, ou seja, o que era 3, passa a ser 1

 

Teria alguma solucao para nao trocar os index?

 

Desde ja agradeço

Emanuel