ADICIONAR ITEM DUPLO NO LISTBOX

RAMON 25/04/2004 17:22:23
#22571

No load do form eu tenho

Private Sub Form_Load()
List1.AddItem "Carlos araujo-------Goleiro"
List1.AddItem "Rodrigo-------------Zagueiro"
List1.AddItem "Paulo Roberto-------Meio"
List1.AddItem "Ramom lima----------Atacante"
End Sub

Este tracos ---------- estou simulando um espaco pois aqui no forum não aceita mais de um espaco em branco

Então eu quero adicionar um nome do jogador (escrevo no textbox Pele) e escolho um optionbutom a posição dele Atacante

Então tera que aparecer no listbox o nome do jogador espaco em branco seguido da posicão dele

Ficando

PelÃ©-----------Atacante

Isto em baixo da linha ramon ---------atacante
Se eu escolher goleiro fica embaixo da linha que tem a posicao goleiro

Então o que eu quero Ã© saber como adicionar este item
Alguem poderia colocar um exemplo do codigo de como fazer isso?

CAJU 25/04/2004 17:33:59
#22580 Resposta escolhida

vc faz uma numeração:

Private Sub Form_Load()
List1.AddItem "1-Carlos araujo-------Goleiro"
List1.AddItem "2-Rodrigo-------------Zagueiro"
List1.AddItem "3-Paulo Roberto-------Meio"
List1.AddItem "4-Ramom lima----------Atacante"
End Sub

exemplo:
option1_click
text1.text = "4-" text1.text

cmdadicionar_click
list1.additem text1.text & " " & option1.caption

... vc coloca sorted = true

blz?

CAJU 05/05/2004 09:56:39
#23117

SOLUÃ‡ÃƒO pra sua vida! [S41]


Private Sub Form_Load()

List1.AddItem "RAMON GOLEIRO"
List1.ItemData(List1.NewIndex) = 1 'o nÃºmero pra goleiro
List1.AddItem "RAMON ZAGUEIRO"
List1.ItemData(List1.NewIndex) = 2 'o nuÃºmero pra zagueiro
List1.AddItem "abc3"
List1.ItemData(List1.NewIndex) = 1'o nÃºmero pra goleiro
List1.AddItem "abc4"
List1.ItemData(List1.NewIndex) = 3 'o nÃºmero pra meia

Call BubbleSort(List1)

End Sub

Private Sub BubbleSort(List As Object)

    Dim i, j
    Dim auxL, auxD
    
    For i = 0 To List.ListCount - 1
        For j = 0 To List.ListCount - 1
            If List.ItemData(j) MAIOR List.ItemData(i) Then
            
                auxD = List.ItemData(j)
                auxL = List.List(j)
                List.ItemData(j) = List.ItemData(i)
                List.List(j) = List.List(i)
                List.ItemData(i) = auxD
                List.List(i) = auxL
            
            End If
        
        Next
    Next
    
    
End Sub

ele coloca na ordem dos ITemData

[S46]

CAJU 05/05/2004 10:01:04
#23123

Ã© uma boa tb...
tem que ver se ele vai usa o listview somente para essa situação...(se for, acho que deveria evitar controle externos)

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar