by CooKiEz (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 31st July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) That call would sort your listbox named
'Sorting function by CooKiEz
'Please gimme credit if you gonna use this =)
'
'~ CooKiEz (@usa.com) (.net)
'Usage:
'Call sort(List1)
Dim a As String
Dim z As Integer
For z = 0 To x.ListCount - 2
If x.List(z) > x.List(z + 1) Then
a = x.List(z)
x.List(z) = x.List(z + 1)
x.List(z + 1) = a
z = 0
End If
DoEvents
Next z
End Function
No comments have been posted about This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) T. Why not be the first to post a comment about This function will sort a listbox. Usage (suppose your ListBox is named List1) : Call sort(List1) T.