Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách Tạo 2 ListBox add items qua lại
#1
Mình muốn tạo 2 listbox roi tao 2 nút chính giữa 2 listbox (qua phải blushing", qua trái : "<"). Các bạn giúp mình nhe, hoặc cho mình đường link đến cách làm. Mình tìm hoài không thấy. Chân thành cám ơn các bạn!
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#2
có nghĩa là khi bấm qua phải thì một em trong listbox bên trái nhảy quả phải và ngược lại phải không bạn :d
Chữ ký của tanthuc Xin chào, mình là tanthuc, Tham gia http://thuthuataccess.com/forum từ ngày 04-10 -12.
Reply
Những người đã cảm ơn
#3
Dung roi do ban tanthuc
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#4
Ý tưởng này hay, có bạn nào hd đi
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
(05-10-12, 10:57 AM)yeubongdo01 Đã viết: Mình muốn tạo 2 listbox roi tao 2 nút chính giữa 2 listbox (qua phải blushing", qua trái : "<"). Các bạn giúp mình nhe, hoặc cho mình đường link đến cách làm. Mình tìm hoài không thấy. Chân thành cám ơn các bạn!

Bạn xem ví dụ ở file đính kèm nhé.


File đính kèm
.zip   MoveList.zip (Kích cỡ: 15.75 KB / Tải về: 56)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tanthuc , yeubongdo01
#6
Chào domfootwear, Cám, file bạn đưa thì ok nhưng sao mình không chọn item bên list 1 mà nhấn nút > (hoặc <) nó cũng qua list 2 luôn( qua dòng null) hoặc ngược lại list2 -->list1. Mình thấy bạn có bắt lỗi đó nhưng thấy không tác dụng.
Bạn coi lại dùm nhe mình nhe. thanks domfootwear
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#7
Chỉnh lại xíu là được.
Mã:
Sub MoveSingleItem(strSourceControl As String, strTargetControl As String)
    On Error Resume Next
    Dim strItem As String
    Dim intColumnCount As Integer
    For intColumnCount = 0 To Me.Controls(strSourceControl).ColumnCount - 1
        strItem = strItem & Me.Controls(strSourceControl).Column(intColumnCount) & ";"
    Next
    strItem = Left(strItem, Len(strItem) - 1)
    'Check the length to make sure something is selected
    If Left(strItem, 1) <> ";" Then
        Me.Controls(strTargetControl).AddItem strItem
        Me.Controls(strSourceControl).RemoveItem Me.Controls(strSourceControl).ListIndex
    Else
        MsgBox "Please select an item to move."
    End If

End Sub


File đính kèm
.zip   MoveList.zip (Kích cỡ: 16.13 KB / Tải về: 45)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhannt4 , yeubongdo01


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lọc có điều kiện ở listbox phiacuoiconduong 2 82 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 175 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Định dạng trong listbox feeling 3 154 06-10-16, 02:44 PM
Bài mới nhất: jeck09nt
Photo [Hỏi] Cách tạo link để Open form toancvp 7 359 01-09-16, 11:37 PM
Bài mới nhất: toancvp
  [Hỏi] Cách thay đổi Back Color của control theo giá trị toancvp 15 752 16-07-16, 10:43 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ