Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 42225

ListView Issues

$
0
0
Trying to make a new entry to a list view control from another form. Please help.

Code:

Option Explicit On
Option Strict On
Option Infer Off


Public Class InputForm
    Const interest As Double = 0.06
    Private Sub calcBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcBtn.Click
        Dim input As Double
        Dim month As Integer = 1
        Dim output1 As Double
        Dim Rate As Integer = 1
        Dim output2 As Double


        Double.TryParse(inputTxt.Text, input)
        Double.TryParse(CStr(output2), output2)

        Do Until EstimateForm.mainLV.Items.Count = 12
            Dim lvi As New ListViewItem
            output1 = Financial.PPmt(interest, month, 12, input)
            output2 = interest * input

            EstimateForm.mainLV.Items.Add(output1.ToString("C2"))


            month += 1

        Loop

        EstimateForm.Show()
        Me.Visible = False
    End Sub

    Private Function newItem() As Object
        Throw New NotImplementedException
    End Function

End Class


Viewing all articles
Browse latest Browse all 42225

Trending Articles