Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
Mica

Somar itens

Recommended Posts

Mica

Boas, tenho a minha ListBox por exemplo. ou seja tenho vários botões que ao serem carregados vao adicionar uns preços que tenho na BD, vão adicionar na minha Listbox, gostava agora de saber qual a condição para que esses valores ao serem adicionados fossem sempre somados, ou seja numa textbox ele iria mostrando o total dos preços que tenho exibidos na minha Listbox

Espero ter sido claro

Mica  ,  :confused:

Share this post


Link to post
Share on other sites
Tuntankamon

Então ao fim de adicionares só tens de ir buscar a soma de todos os items existentes na listbox  e depois mostrares esse valor na textbox....

Share this post


Link to post
Share on other sites
Mica

Pois mas eu queria era mesmo a condição para ele somar os valores que eu vou pondo na listbox

sub somar()
Dim num1, num2, num3 as single
num1 = Textbox1.text
num3 = num1 + num2
TextBox3.text = num3
End sub

O máximo que eu sei fazer é isto, e não tem nada haver :b Eu queria mesmo que ele fosse buscar todos os dados da listbox... E fizesse a sua soma e apresentasse essa soma na textbox, essa parte é fácil, agora só resta a parte da soma :D

Share this post


Link to post
Share on other sites
Mica


  Dim result As Double
        Dim x As Integer

        For x = 0 To ListBox1.ListCount(-1)
            result = result + CDbl(ListBox1.List(x))
        Next

        TextBox1.Text = result

Tenho mais ou menos isto mas não está a funcionar nao sei porque :D

Share this post


Link to post
Share on other sites
bioshock

       
Dim result As Double
Dim x As Integer

For x = 0 To ListBox1.Items.Count - 1
      result = result + CDbl(ListBox1.Items(x))
Next

MsgBox(result)

Vê lá assim.

Share this post


Link to post
Share on other sites
Mica

Resolvido

Perfeitamente :b Só alterei invés de aparecer em msgbox, aparece me na textbox :D

Mais uma vez Obrigado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.