Anybody familar with TimeSoft ExplorerListView

[ufo973]

Any body familar with TimeSoft ExplorerListView?
If Not, this is a free unicode supported listview.

I can't figure out how to remove selected item from the list
Anybody please help, i will be very very thanksfull...

[Max187Boucher]

same as listview

Private Sub Command1_Click()
Dim i As Integer
   For i = 0 To List1.ListItems.Count - 1
      If List1.ListItems.Item(i).Selected Then
         Debug.Print "Current Selected Item  is #" & i & " (List1.ListItems.Item(" & i & ")"
         List1.ListItems.Remove i
         Exit Sub
      End If
   Next
End Sub

[ufo973]

OMG i have to go through loop to know which item is selected?
Isn't there any builtin function?

[Max187Boucher]

no you dont there is a builtinfunction

try using

List1.AnchorItem.Index

'Example

Private Sub Command1_Click()
On Error GoTo Error_No_Selection
MsgBox "Selected Item is Item(" & List1.AnchorItem.Index & ")"

Error_No_Selection:
MsgBox "Error, please make a selection first!"
End Sub

[Max187Boucher]

user the anchoritem

Private Sub Command1_Click()
On Error GoTo Error_No_Selection
MsgBox "Selected Item is Item(" & List1.AnchorItem.Index & ")"

Error_No_Selection:
MsgBox "Error, please make a selection first!"
End Sub