Tenho uma variavel q guarda o seguinte valor:

12-34-66-88-44-122-432-1-32

Gostaria de inserir estes valores em uma listbox da maneira de q cada valor fique em um listindex

 

ex:

listbox.list(0) = 12

listbox.list(1) = 34

listbox.list(2) = 66

listbox.list(3) = 88

...

 

Alguem tem alguma ideia de como eu faço??

 

Agradeço desde já

 

faça assim:

 

Private Sub Command1_Click()
    Dim texto As String
    Dim i As Integer
    Dim sNum As String
    Dim sCar As String
   
    texto = "12-34-66-88-44-122-432-1-32"
   
    For i = 1 To Len(texto)
   
        sCar = Mid(texto, i, 1)
       
        If sCar = "-" Then
            Me.List1.AddItem sNum
            sNum = ""
        Else
            sNum = sNum & sCar
        End If
       
    Next i
    Me.List1.AddItem sNum

acho que te respondi isso no vbmania

 

Vc quer guardar um valor oculto dentro de um item no ComboBox Certo

 

Faça assim:

Combo1.AddItem "SeuTextoExibição"

Combo1.Itemdata(Combo1.NewIndex) = Valor 'aqui fica o valor oculto que vc quer guardar no item

 

para pegar este mesmo valor depois é só fazer

 

Msgbox Combo1.Itemdata(Combo1.LisIndex)

 

<aux>=<variavel> & "-"

while instr(1,<aux>,"-")>0

  <list>.additem = mid(<aux>,1,instr(1,<aux>,"-")-1)

   <aux> = mid(<aux>,instr(1,<aux>,"-")+1)

wend

vaca só nao entendi o porque dessa linha:

 

vaca , agora entendi é so para pegar o ultimo numero, okkk

meus parabens , vou usa-la enves de usar a minha ,

valeu