Expected values do not display in ListBox

Question

I have an Investment Return application which will take an invested amount of money and yield a return each year of 5% of the total and display the results, per year, in a ListBox. I am not getting any errors, but the GUI does not display the Investment yields in the listbox. Any suggestions would be appreciated. This is the code I have so far:

 Public Class Form1

        Const Interest_Rate As Double = 0.05

Private Sub btncmdCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncmdCalculate.Click

   Dim num_years As Integer
   Dim intCounter As Integer
   Dim current_value As Double
   Dim future_amount As Double

   current_value = Val(txtcurrent_value.Text)
       num_years = Val(txtnum_years.Text)
   current_value = current_value * Interest_Rate * num_years & vbTab _
            'calculate amount

   For intCounter = 1 To num_years
        future_amount = current_value * (1 + Interest_Rate) ^ intCounter

        lstBalances.Text = current_value * Math.Pow(1 + Interest_Rate, intCounter) &    "" & _ vbTab & FormatCurrency(current_value)"

   Next intCounter
End Sub

Steve · Accepted Answer · 2013-04-11 16:04:04Z

2

If lstBalances is a listbox then you need to add your calcs to the Items collection

lstBalances.Items.Add(current_value * Math.Pow(1 + Interest_Rate, intCounter) &  vbTab & _
                      FormatCurrency(current_value))

As a side note: I really don't understand your calcs so I can't say if what you are doing is right or not, just trying to fix your programming trouble with listboxes.....

answered Apr 11, 2013 at 16:04

Steve

217k22 gold badges242 silver badges296 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Rowland Shaw · Accepted Answer · 2013-04-11 16:01:05Z

0

It appears that you're setting the text for the listbox on each iteration of the loop. From your description, it sounds like you want to be appending a value for each iteration, e.g. something like:

lstBalances.Text &= current_value * Math.Pow(1 + Interest_Rate, intCounter) & vbTab & FormatCurrency(current_value) & vbCrLf

answered Apr 11, 2013 at 16:01

Rowland Shaw

38.2k15 gold badges104 silver badges168 bronze badges

Collectives™ on Stack Overflow

Expected values do not display in ListBox

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related