[VB.NET] การย้ายไอเทมไปมาระหว่าง ListBox Control 2 ตัว

thongkorn

ในการเคลื่อนย้ายไอเทม หรือรายการที่มีอยู่ใน ListBox Control หนึ่ง ไปยังอีกตัวหนึ่ง หลักการก็ไม่ได้ยากเย็นอะไรเลย สิ่งแรกคือเราต้องรู้จักคุณสมบัติ (Properties) ของตัว ListBox (หรือ Control ตัวอื่น) และกลวิธี (Method) ในการเพิ่ม (Add) หรือลบ (Remove) ในแต่ละไอเทม (Item) ...


หน้าจอ Design Time ...


มาดูโค้ดกันเถอะ ... คำอธิบายจะอยู่ในโค้ด หวังว่าคงเข้าใจได้ไม่ยาก

1. ' / --------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Transfer Items Between 2 ListBoxes.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------
    
13. Public Class frmMoveItemListBox
    
14. 
    
15.     Private Sub frmMoveItemListBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
16.         '// ใส่ค่าไอเทมตัวอย่าง
    
17.         With ListBox1
    
18.             .Items.Add("Computer")
    
19.             .Items.Add("Processor")
    
20.             .Items.Add("Notebook")
    
21.             .Items.Add("Mouse")
    
22.             .Items.Add("Keyboard")
    
23.         End With
    
24.         '// เพิ่มคำอธิบายบนปุ่มคำสั่งแต่ละตัว
    
25.         Dim MyToolTip As New ToolTip
    
26.         MyToolTip.SetToolTip(Me.Button1, "ย้ายไอเทมที่เลือกไปทางขวา")
    
27.         MyToolTip.SetToolTip(Me.Button2, "ย้ายไอเทมที่เลือกไปทางซ้าย")
    
28.         MyToolTip.SetToolTip(Me.Button3, "ย้ายไอเทมทั้งหมดไปทางขวา")
    
29.         MyToolTip.SetToolTip(Me.Button4, "ย้ายไอเทมทั้งหมดไปทางซ้าย")
    
30.         MyToolTip.SetToolTip(Me.Button5, "ย้ายไอเทมที่เลือกขึ้นไปด้านบน")
    
31.         MyToolTip.SetToolTip(Me.Button6, "ย้ายไอเทมที่เลือกลงไปด้านล่าง")
    
32.     End Sub
    
33. 
    
34.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
35.         '// ยังไม่ได้เลือกไอเทม
    
36.         If ListBox1.SelectedIndex < 0 Then
    
37.             MessageBox.Show("กรุณาเลือกไอเทมในรายการที่ 1 ก่อน.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
38.         Else
    
39.             '// เพิ่มไอเทมที่เลือกจาก ListBox1 ไปให้กับ ListBox2
    
40.             ListBox2.Items.Add(ListBox1.SelectedItem)
    
41.             '// ลบไอเทมที่เลือกใน ListBox1 ออกไป
    
42.             ListBox1.Items.Remove(ListBox1.SelectedItem)
    
43.         End If
    
44.     End Sub
    
45. 
    
46.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
47.         If ListBox2.SelectedIndex < 0 Then
    
48.             MessageBox.Show("กรุณาเลือกไอเทมในรายการที่ 2 ก่อน.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
49.         Else
    
50.             '// เพิ่มไอเทมที่เลือกจาก ListBox2 ไปให้กับ ListBox1
    
51.             ListBox1.Items.Add(ListBox2.SelectedItem)
    
52.             '// ลบไอเทมที่เลือกใน ListBox2 ออกไป
    
53.             ListBox2.Items.Remove(ListBox2.SelectedItem)
    
54.         End If
    
55. 
    
56.     End Sub
    
57. 
    
58.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    
59.         '// ลูปเอาไอเทมทั้งหมดที่มีอยู่ใน ListBox1 ไปให้กับ ListBox2
    
60.         For Each item In ListBox1.Items
    
61.             ListBox2.Items.Add(item)
    
62.         Next
    
63.         '// ลบไอเทมที่มีอยู่ทั้งหมดใน ListBox1 ออกไป
    
64.         ListBox1.Items.Clear()
    
65.     End Sub
    
66. 
    
67.     Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    
68.         '// ลูปเอาไอเทมทั้งหมดที่มีอยู่ใน ListBox2 ไปให้กับ ListBox1
    
69.         For Each item In ListBox2.Items
    
70.             ListBox1.Items.Add(item)
    
71.         Next
    
72.         '// ลบไอเทมที่มีอยู่ทั้งหมดใน ListBox2 ออกไป
    
73.         ListBox2.Items.Clear()
    
74.     End Sub
    
75. 
    
76.     Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    
77.         '// การเลื่อนไอเทมขึ้น
    
78.         If ListBox2.SelectedIndex > 0 Then
    
79.             '// หากแถวที่ต้องการเลื่อนขึ้นไปข้างบน เช่น จากแถว 5 ต้องเลื่อนขึ้นไปอยู่ที่แถว 4 เลยต้องลบ 1
    
80.             Dim iRow = ListBox2.SelectedIndex - 1
    
81.             '// แทรกไอเทมในแถวที่เลื่อนขึ้นไป
    
82.             ListBox2.Items.Insert(iRow, ListBox2.SelectedItem)
    
83.             '// ลบแถวตัวมันเองออกไป
    
84.             ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
    
85.             '// เลือกแถวปัจจุบันที่ถูกเลื่อนขึ้น
    
86.             ListBox2.SelectedIndex = iRow
    
87.         End If
    
88.     End Sub
    
89. 
    
90.     Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    
91.         '// Trap Error: หากไม่มีการเลือกไอเทม ก็ให้เด้งหนีออกไป
    
92.         If ListBox2.SelectedItem = Nothing Then Exit Sub
    
93.         '// ไอเทมที่เลือกต้องน้อยกว่า จำนวนไอเทมทั้งหมดลบ 1 (Index เรานับที่ 0)
    
94.         If ListBox2.SelectedIndex < ListBox2.Items.Count - 1 Then
    
95.             '// หาแถวที่ต้องเลื่อนลงไปข้างล่าง 2 ตำแหน่ง
    
96.             Dim iRow = ListBox2.SelectedIndex + 2
    
97.             '// ไปแทรกแถวไอเทมใหม่
    
98.             ListBox2.Items.Insert(iRow, ListBox2.SelectedItem)
    
99.             '// ลบตัวมันเองออก
    
100.             ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
     
101.             '// ลบออก 1 เพื่อเลือกแถวที่เลื่อนลงไป
     
102.             ListBox2.SelectedIndex = iRow - 1
     
103.         End If
     
104.     End Sub
     
105. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ