Tùy chọn
Cách Tạo 2 ListBox add items qua lại
- Cách Tạo 2 ListBox add items qua lại
-
Cách Tạo 2 ListBox add items qua lại
yeubongdo01 > 05-10-12, 10:57 AM
Mình muốn tạo 2 listbox roi tao 2 nút chính giữa 2 listbox (qua phải
", 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!
-
RE: Cách Tạo 2 ListBox add items qua lại
tanthuc > 05-10-12, 02:02 PM
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 -
RE: Cách Tạo 2 ListBox add items qua lại
yeubongdo01 > 05-10-12, 02:33 PM
Dung roi do ban tanthuc -
RE: Cách Tạo 2 ListBox add items qua lại
DoquangLam > 06-10-12, 09:54 AM
Ý tưởng này hay, có bạn nào hd đi -
RE: Cách Tạo 2 ListBox add items qua lại
domfootwear > 06-10-12, 10:26 AM
-
RE: Cách Tạo 2 ListBox add items qua lại
yeubongdo01 > 08-10-12, 12:02 PM
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 -
RE: Cách Tạo 2 ListBox add items qua lại
domfootwear > 08-10-12, 03:57 PM
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