Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Sort List theo Alphabe

Posted by Noname on 12.01.2010

Mới lang thang tìm thấy 1 đoạn code cho phép Sort 1 Listbox theo Alphabe. Mời mọi người tham khảo, có gì thắc mắc cứ comment hỏi nhé!

Function SortListBox(objListBox As ListBox)
Dim intFirst As Integer
Dim intLast As Integer
Dim intNumItems As Integer
Dim i As Integer
Dim j As Integer
Dim strTemp As String
Dim MyArray() As Variant

‘Re-Dim the array
ReDim MyArray(objListBox.ListCount – 1)

‘Get upper and lower boundary
intFirst = LBound(MyArray)
intLast = UBound(MyArray)

‘Set array values
For i = LBound(MyArray) To UBound(MyArray)
MyArray(i) = objListBox.ItemData(i)
Next i

‘Loop through array values to determine sort
For i = intFirst To intLast – 1
For j = i + 1 To intLast
If MyArray(i) > MyArray(j) Then
strTemp = MyArray(j)
MyArray(j) = MyArray(i)
MyArray(i) = strTemp
End If
Next j
Next i

‘Remove all items
For i = intLast – 1 To intFirst Step -1
objListBox.RemoveItem i
Next i

‘Add all items in order
For i = intFirst To intLast – 1
objListBox.AddItem MyArray(i), i
Next

End Function

 Bạn tạo 1 module mới rồi copy đoạn code trên vào.
tạo 1 form, tạo 1 listbox và 1 nút nhất. Để tên mặc định hết cho nhanh nha.
Row source type của lis bạn chọn Value list
Row Source bạn điền: “Rượu;Socola;Bánh;Bao Bì;Bột Ngọt;Cà Chua;Chanh;Đường;Gạo;Hành;Kem Đánh Răng;Khoai Tây;Mì Gói;Mức;Muối;Ớt;Sữa;Tiêu;Hộp quẹt”

hoặc gì tùy bạn

Trong event click nút nhấn, bạn gọi:

Private Sub Command1_Click()
Call SortListBox(List0)
End Sub

Mời xem demo:
SortList

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: