Dúvida_VB6_CalcularLISTBOX

5 de março de 2011 1 resposta

vick01 5 de março de 2011

Oi pessoal, gostaria da ajuda de vocês. Estou tentando calcular os valores que estão numa LISTBOX. Essa listbox recebe o valor e o sinal, a cada vez que o sinal é clicado.

O problema: Quando o FOR percorre a listbox ele dá erro quando pega o sinal, acho que não reconhece que o sinal não é INTEGER e aí dá problema. Como posso fazer para resolver isso, pois preciso do sinal para realizar o cálculo. ????? : :shock: ?:

Trecho do código

Private Sub CmdCalcula_Click()

LstCalcula.AddItem (TxtValor2.Text)

    For i = 0 To LstCalcula.ListCount - 1
        soma = soma + LstCalcula.List(i)
    Next i
      
    LblMostraResult.Caption = soma
    
End Sub



Private Sub CmdSoma_Click()

     LstCalcula.AddItem (TxtValor1.Text)
     LstCalcula.AddItem ("+")

End Sub

Obrigada

1 Resposta

Anime 6 de mar. de 2011

Oi,

Private Sub Command1_Click()
Dim i As Long
Dim lCnt As Long
For i = 0 To List1.listCount - 1
    lCnt = lCnt + List1.List(i)
Next i
    List1.AddItem "---Resultado---"
    List1.AddItem lCnt
End Sub

Criado 5 de março de 2011

Ultima resposta 6 de mar. de 2011

Respostas 1

Participantes 2

1 Resposta

Topicos relacionados