Tùy chọn
TỚI, LÙI TRONG LISTBOX
- TỚI, LÙI TRONG LISTBOX
-
TỚI, LÙI TRONG LISTBOX
n_gel > 01-04-11, 12:06 AM
Cho mình hỏi làm sao để khi nhấn nút Tới, Lùi trong listbox thì cái đường đánh dấu record mà mình đang chọn(màu xanh, đen j đấy, mình ko biết gọi là đường j nữa) dịch chuyển lên xuống theo, sau đó thì xuất ra textbox? -
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 12:22 AM
Tuyệt, mình cũng đang có cùng câu hỏi -
RE: TỚI, LÙI TRONG LISTBOX
ht03 > 10-06-12, 09:17 AM
(01-04-11, 12:06 AM)n_gel Đã viết: Cho mình hỏi làm sao để khi nhấn nút Tới, Lùi trong listbox thì cái đường đánh dấu record mà mình đang chọn(màu xanh, đen j đấy, mình ko biết gọi là đường j nữa) dịch chuyển lên xuống theo, sau đó thì xuất ra textbox?
hj bạn coi thử cái này được không.Mình không dùng listbox nên cũng không rành nó lắm ^^!
http://www.mediafire.com/?35ek61pze9d14lu
hy vọng nó sẽ làm bạn hài lòng.
-
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 10:30 AM
Ví dụ của ht03 là cho subform, ko phải nội dung hỏi ở đây (lạc đề)
Ở đây chủ top hỏi là cho ListBox
Bài hỏi đã lâu mà ko ai trên này giải được đúng ko chủ top ....!
Mình đã tìm ra, chủ top thử tạo 1 nút rồi cho mã lệnh sau vào nhé
Mã:Private Sub gotoNext_Click()
On Error GoTo Err_gotoNext_Click
With Me.lstItems
.SetFocus
If .ListIndex < .ListCount Then
.ListIndex = .ListIndex + 1
End If
End With
Exit_gotoNext_Click:
Exit Sub
Err_gotoNext_Click:
MsgBox Err.Description
Resume Exit_gotoNext_Click
End Sub
Chú ý Me.lstItems của bạn tên là gì nhé (listbox của mình tên là lstItems) -
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 01:07 PM
Mình hỏi thêm 1 số chức năng sau mong các bạn góp ý nhé
Mình muốn tạo thêm mấy nút chức năng như bên dưới (2 và 4 đã ok rồi)
1. Trở về giá trị đầu tiên trong listbox
2. Trở về giá trị trước giá trị đang chọn (click chuột vào)
3. Hiện số thứ tự của bản ghi đang chọn trong listbox
4. Tiến về giá trị tiếp theo của giá trị đang chọn
5. Tiến về bản ghi cuối cùng
6. Hiện thị tổng số bản ghi có trong listbox
Các bạn xem file đính kèm nhé: http://www.mediafire.com/?eudr6u97z7d937y
Cảm ơn -
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 04:26 PM
Goto last record in listbox access
Mã:Private Sub gotoLast_Click()
If Me!lstItems.ListCount > 0 Then
Me!lstItems = Me!lstItems.ItemData(Me!lstItems.ListCount - 1)
End If
End Sub
First record:
Mã:Private Sub gotoFirst_Click()
'Me.lstItems.Selected(0) = True
Me.lstItems.SetFocus
Me.lstItems.ListIndex = 0
End Sub -
RE: TỚI, LÙI TRONG LISTBOX
Xuân Thanh > 10-06-12, 06:10 PM
(10-06-12, 01:07 PM)uronmapu Đã viết: Mình hỏi thêm 1 số chức năng sau mong các bạn góp ý nhé
Mình muốn tạo thêm mấy nút chức năng như bên dưới (2 và 4 đã ok rồi)
1. Trở về giá trị đầu tiên trong listbox
2. Trở về giá trị trước giá trị đang chọn (click chuột vào)
3. Hiện số thứ tự của bản ghi đang chọn trong listbox
4. Tiến về giá trị tiếp theo của giá trị đang chọn
5. Tiến về bản ghi cuối cùng
6. Hiện thị tổng số bản ghi có trong listbox
Các bạn xem file đính kèm nhé: http://www.mediafire.com/?eudr6u97z7d937y
Cảm ơn
1/ Đã biết First với Last mà không viết được Previous và Next? Previous = ListIndex-1, Next = ListIndex+1
2/ Tổng record = ListCount, Số TT bản ghi = ListIndex+1
Lưu ý ListIndex bắt dầu từ số 0 -
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 06:15 PM
1. Đã bổ sung bên bài viết trên rồi ạ
2. Tổng record = ListCount, Số TT bản ghi = ListIndex+1
Cái này cụ thể hơn chút được ko bác?đê nó hiện ra thì làm thế nào ạ -
RE: TỚI, LÙI TRONG LISTBOX
Xuân Thanh > 10-06-12, 06:25 PM
Tạo một textbox trên form và trong ControlSource của nó ghi = [List0].[ListIndex + 1] & "/" & [List0].[ListCount], trong đó List0 là tên của listbox
Khi chạy tren List, textbox sẽ hiển thị dạng 5/40, trong đó 5 là STT, 40 là tổng
Thân -
RE: TỚI, LÙI TRONG LISTBOX
uronmapu > 10-06-12, 06:34 PM
Bác có thể xem file của e và thử được ko?
File đây ạ: http://www.mediafire.com/?eudr6u97z7d937y
Em làm ko chạy ạ
E muốn nó hiện thị theo kiểu này ạ
![[Hình: ScreenHunter_01Jun101537.jpg]](http://i1127.photobucket.com/albums/l626/hutsavills/ScreenHunter_01Jun101537.jpg)