'Result represents the result (index) of the search
End Sub
Private Sub vList_ExportDone(Filename As String, BytesWritten As Long)
'The list has been exported to a file
'Filename represents the name of the destination file
'BytesWritten is the size of the file in bytes
End Sub
Private Sub vList_ImportDone(Filename As String, BytesRead As Long)
'The list has been imported from a file
'Filename represents the name of the source file
'BytesRead is the size of the file in bytes
End Sub
Private Sub vList_EncodeDone()
'The list has been encoded
End Sub
Private Sub vList_DecodeDone()
'The list has been decoded
End Sub
'/\List events
'Update all controls
Private Sub Update()
vList.PutInControl txtList, True
vList.PutInControl lstList, True
Me.Caption = vList.ListCount
End Sub
'\/Button events
Private Sub cmdAdd_Click()
vList.AddItem txtAddText.Text, txtAddIndex.Text
Update
End Sub
Private Sub cmdClear_Click()
vList.Clear
Update
End Sub
Private Sub cmdDel_Click()
vList.RemoveItem txtDel.Text
Update
End Sub
Private Sub cmdSort_Click()
vList.Sort chkCaps.Value, chkRev.Value
Update
End Sub
Private Sub cmdGet_Click()
MsgBox vList.Text(txtGet.Text)
End Sub
Private Sub cmdCredits_Click()
MsgBox "Please take a moment to vote for Rde at" & vbCrLf & "http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=64095&lngWId=1" & vbCrLf & vbCrLf & "He wrote the sorting code :D (thank you Rde, if you read this)" & vbCrLf & "The link is also in the class."
