VB Износ

Question

Итак, вот где я нахожусь. Я не могу получить что-либо для отображения в окне списка, которое я создал с именем «depreciationListBox». Я некоторое время работал над этим проектом, и я довольно сильно озадачен. Любые указатели или решения, которые могли бы мне помочь, были бы очень оценены.

Private Sub displayButton_Click(ByVal sender As Object, _ 
    ByVal e As System.EventArgs) Handles displayButton.Click 

    Dim cost As Double 
    Dim life As Double = CDbl(lifeListBox.SelectedItem) 
    Dim period As Double 
    Dim nextPeriod As Double 
    Dim salvage As Double 
    Dim depreciation As Double 
    Dim isConvertedCost As Boolean 
    Dim isConvertedLife As Boolean 
    Dim isConvertedSalvage As Boolean 

    isConvertedCost = Double.TryParse(AssetTextBox.Text, cost) 
    isConvertedLife = Double.TryParse(lifeListBox.Text, life) 
    isConvertedSalvage = Double.TryParse(salvageTextBox.Text, salvage) 

    For nextPeriod = 1 To period Step 1 
    depreciation = Financial.DDB(cost, salvage, life, nextPeriod) 
    depreciationListBox.Text += nextPeriod.ToString & " " & _ 
     Convert.ToString(depreciation) _ 
     & ControlChars.NewLine 
    Next nextPeriod 

    If isConvertedCost AndAlso isConvertedLife _ 
     AndAlso isConvertedSalvage Then 
    depreciationListBox.Text = " Year Depreciation " 
    End If 
End Sub 

Где я ошибся? Вот ссылка на то, что назначение и образ того, как это должно выглядеть: http://books.google.com/books?id=UAo8tAQRvGUC&pg=PT415&lpg=PT415&dq=sonheim+manufacturing&source=bl&ots=G74EzxAphD&sig=tS7s6EUUmgWrq6ZXphhDhDaBpsw&hl=en&sa=X&ei=KM8pT7mPA6qq2QWtq_ncAg&ved=0CEgQ6AEwBA#v=onepage&q=sonheim%20manufacturing&f=false

Answer 1

В вашей петле вы выполняете цикл от 1 до периода, но вы никогда не инициализируете период. Значение по умолчанию для периода будет 0, что означает, что цикл никогда не будет работать.

Answer 2

Использование depreciationListBox.Items.Add(nextPeriod.ToString & " " & Convert.ToString(depreciation))

Для VB6, вы должны использовать .AddItem.