[RESOLVED] adding two items to a listview in columns in vb 2010 express

[GMTireman]

Hello All;

I have a simple program in vb 2010 express that I am having trouble with.

The form contains a button and a listview.

When the button is clicked, I want the code to open a random access file and get words from the file.
Then, determine the length of the word and add the word to one column of the listview and the length to
another. So far this is what I have in code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tmpInt1, tmpInt2 As Integer
Dim tmpString1, tmpString2 As String
Dim wrditem As New ListViewItem
Dim FileNum As Integer

' tmpInt1 = number of word entries in the file
' the words start at index 3, index 2 is another integer

FileNum = FreeFile()
FileOpen(FileNum, "C:\[somepath]\[some random access file]", OpenMode.Random, OpenAccess.Read, OpenShare.LockRead)
FileGet(FileNum, tmpInt1, 1)

        For x As Integer = 3 To (tmpInt1 + 2)
            FileGet(FileNum, tmpString1, x)
            If tmpString1 <> "" Then
                tmpString2 = Trim(Mid(tmpString1, 1, 15))
                tmpInt2 = Len(Trim(tmpString2))
                wrditem.Text = tmpString2
                wrditem.SubItems.Add(Str(tmpInt2))
                ListView1.Items.Add(wrditem)
            End If
        Next

FileClose(FileNum)

End Sub

This is the error I get on the second word pulled in from the file: "Argument Exception was unhandled - cannot add or insert the item 'aaronites' in more than one place. You must first remove it from its current location or clone it. Parameter name: item"

Can anyone tell me what I am doing wrong. This word is only in the list once.

Thanks

[Inferrd]

Hey GMTireman. Welcome to the forum.

Your problem is that you only create the one ListViewItem (wrditem) which you try to add over and over to the ListView, which is something you're not allowed to do. You need to create a New ListViewItem every time you add one.

Your simplest solution would be to move the Dim wrditem As New ListViewItem line into the If..End IF block thus:

If tmpString1 <> "" Then
    tmpString2 = Trim(Mid(tmpString1, 1, 15))
    tmpInt2 = Len(Trim(tmpString2))
    Dim wrditem As New ListViewItem
    wrditem.Text = tmpString2
    wrditem.SubItems.Add(Str(tmpInt2))
    ListView1.Items.Add(wrditem)
End If

[GMTireman]

Thanks, did just that works GREAT! I sincerely appreciate the help!