ListView Help

Hello
Im having problem with the code below...


Private Sub Command1_Click()
If Not (ListView.SelectedItem Is Nothing) Then
ListView.ListItems.Remove (ListView.SelectedItem.Index)
End If
End sub



This code executes even if no item selected in the listview. How do you make it that only selected item in the listview will be deleted.

Thanks!
:afrog:

Try this:

vb Code:

Private Sub Command1_Click()
    
    '~~~ If there's no items left in the ListView, then we are off..
    If ListView1.ListItems.Count = 0 Then Exit Sub
    
    '~~~ If the item is selected
    If ListView1.SelectedItem.Selected = True Then
        ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
    End If
    
End Sub

:wave:

Quote:

---

Originally Posted by DanielT

Hello
Im having problem with the code below...


Private Sub Command1_Click()
If Not (ListView.SelectedItem Is Nothing) Then
ListView.ListItems.Remove (ListView.SelectedItem.Index)
End If
End sub



This code executes even if no item selected in the listview. How do you make it that only selected item in the listview will be deleted.

Thanks!
:afrog:

---

Let me guess that the item that is deleted is the first one that's added to the listview (which may not be at the top of the list if the listview is sorted).

Your code should work, and the reason it deletes an unexpected record is that the first record added to the list is automatically selected. One way around that is to add a Set ListView.SelectedItem = Nothing line after you are done loading the listview.

Thanks for the reply akhileshbc ' MartinLiss!

akhileshbc code is working, but still its deleting unselected record

@MartinLiss thanks!
Set ListView.SelectedItem = Nothing 'i think you are correct this might solve the problem

Unfortunately VB6 is one of the few apps my iPhone doesn't have so I can't test this but I think you may have to set seleteditem to nothing after every delete because something will be 'selected'.