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...
Printable View
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...
same as listview
Code: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
OMG i have to go through loop to know which item is selected?
Isn't there any builtin function?
no you dont there is a builtinfunction
try usingCode: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
user the anchoritem
Code: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