SUBTRAIR_VALOR_ITEM_LISTBOX

FERRAZ 16/06/2010 12:06:15
#344985
Amigos do VbMania, tudo bem, estou tentando subtrair um valor de um selecionado no listbox e nao tive sucesso, ja fiz varias pesquisa e nada, algum colega pode me dizer como eh possivel isso.

Private Sub lvBAlt_Click()
[ô]Aqui eu removo o item selecionado no listbox, esta funcionando muito bem
With LstVdas
.RemoveItem (.ListIndex)
End With
[ô]Aqui eu estou tentando subtrair o valor do item no listbox, mais esta subtraindo errado, se tenho dois itens ele subtrai os dois, mais so selecionei um
TxtTlMsa = Format(Val(TxtTlMsa) - Val(LstVdas.ListIndex), [Ô]0.00[Ô])
End Sub


Fico grato a todos os amigos.
LLAIA 16/06/2010 12:13:59
#344986
tente isso:

TxtTlMsa = Format(Val(TxtTlMsa) - Val(Lstvdas.List(LstVdas.ListIndex)), [Ô]0.00[Ô])
FERRAZ 16/06/2010 13:16:35
#344991
Leandro Laia, desta forma tem o mesmo efeito, digo, ele subtrai errado ainda, se tenho dois valores no list ele pega os dois e subtrai, e o estranho disso que eu so seleciono um item e nao dois do listbox.


Valeu por sua dica amigo.
JONATHANSTECKER 16/06/2010 13:24:20
#344992
Tente inverter a ordem, primeiro subtraia e depois exclua o ítem.
ASHKATCHUP 16/06/2010 13:24:42
#344993
Lembre-se que o listindex mudou após você remover o item do listbox.
FERRAZ 16/06/2010 13:37:44
#344996
JONATHANSTECKER
Citação:

Tente inverter a ordem, primeiro subtraia e depois exclua o ítem.



ASHKATCHUP
Citação:

Lembre-se que o listindex mudou após você remover o item do listbox.




Tentei assim, apenas subtraindo, mais ainda ele subtrai tudo, como se eu tivesse selecionando todos os itens do listbox
Private Sub lvBAlt_Click()
TxtTlMsa = Format(Val(TxtTlMsa) - Val(LstVdas.List(LstVdas.ListIndex)), [Ô]0.00[Ô])
End Sub

Fico grato aos colegas que estao tentando comigo, valeu.
JONATHANSTECKER 16/06/2010 13:42:50
#344998
Coloque dessa maneira e primeiro veja se está pegando o valor certo dessa forma:
TxtTlMsa = Format(Val(LstVdas.List(LstVdas.ListIndex)), [Ô]0.00[Ô])
FERRAZ 16/06/2010 13:48:25
#345001
JONATHANSTECHER, bom ele esta pegando o valor [Ô]0[Ô], pois minha TxtTlMsa.text esta com o valor [Ô]0[Ô], entao eh esse o valor que ele esta pegando certo.

Como vou fazer para que ele pegue o valor exato do item ?


Valeu amigo.
ASHKATCHUP 16/06/2010 13:53:44
#345003
Cara, coloca um breakpoint no evento CLICK do listbox e verifica que valor ele retorna do [Ô].LIST[Ô]. Ou, se vc puder, poste um exemplo em que isso acontece. Eu acabei de criar um projeto no VB e tudo funcionou perfeitamente.



Private Sub Form_Load()
    List1.AddItem [Ô]10[Ô]
    List1.AddItem [Ô]20[Ô]
    List1.AddItem [Ô]30[Ô]
End Sub

Private Sub List1_Click()
    Dim i As Integer
    [ô]
    i = 100
    [ô]
    i = i - Val(List1.List(List1.ListIndex))
    Stop
End Sub
FERRAZ 16/06/2010 14:12:58
#345004
ASHKATCHUP, ele esta pegando toda a linha, veja:
ASHKATCHUP 16/06/2010 14:18:03
#345006
Cara, como o teu listbox está guardando um texto, a função VAL vai retornar ZERO. Verifica isso.
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar