[VB.NET] เรียนรู้และใช้งาน DisplayMember/ValueMember ใน ComboBox ให้ลึกซึ้ง

thongkorn

อารัมภบท: ธรรมชาติของ ComboBox จะอาศัยวิธีการ (Method) คือ ListIndex ใน VB6 (หรือ SelectedIndex ใน VB.Net) เป็นดัชนีบ่งชี้รายการแต่ละ Item ว่าอยู่ลำดับที่เท่าไหร่ ซึ่งค่านี้มันถูกจำกัดเอาไว้ให้แค่เรียงลำดับตัวเลขจาก 0, 1, 2, 3, 4, 5 ... N (เลขจำนวนเต็ม) หากนำไปใช้กับตารางข้อมูล (Table) ในการเก็บข้อมูลจริงค่า Primary Key (PK) มันไม่ได้ถูกจัดเรียงลำดับเอาไว้ อาจจะเกิดการกระโดดข้ามไป เพราะข้อมูลบางรายการมันอาจจะถูกลบทิ้งนั่นเอง ...

ตัวอย่าง:
Index = 0: Key = 1, Value = "Visual Basic"
Index = 1: Key = 2, Value = "C#"
Index = 2: Key = 3, Value = "JAVA"
Index = 3: Key = 5, Value = "C++"
Index = 4: Key = 8, Value = "Objective C"
Index = 5: Key = 9, Value = "Visual Basic .NET"

หากเป็นเมื่อก่อน เราจะต้องนำค่าจาก Item เช่น "C++" ไปทำการค้นหาข้อมูล เพื่อหาค่า PK ของ Item นี้ก่อน จึงจะสามารถนำไปบันทึกข้อมูลลงในตารางหลักได้ สำหรับ ComboBox Control ใน Visual Basic .Net ได้มีการพัฒนาเพิ่มเติมที่ดีขึ้นกว่าใน Visual Basic 6 (รุ่น Classic) คือในเรื่องคุณสมบัติ (Properties) ที่สำคัญ 2 อย่างด้วยกันคือ ...

- DisplayMember แสดงผลรายการ หรือ Item ที่ให้ผู้ใช้เลือกนั่นเอง
- ValueMember การซ่อนค่ารายการบางอย่าง ซึ่งค่านี้เรามักจะนำไปใช้ในเรื่องของ Primary Key ของตารางย่อยต่อไป

ด้วยหลักการนี้เองจึงเกิดความสะดวกสบายสำหรับเหล่าโปรแกรมเมอร์ได้ เพราะเราสามารถยัดข้อมูลเข้าสู่ ComboBox Control ได้ทั้ง Primary Key และ Item ในลักษณะ Array ทำให้เราไม่ต้องเสียเวลาไปค้นหาข้อมูลอย่างที่เกริ่นนำเอาไว้นั่นเอง ...

ตัวอย่างมุมมองแบบ Array เพื่อให้เข้าใจได้ง่าย เมื่อ ...
Key = ValueMember
Value = DisplayMember
Array(Key, Value)
Array(1, "Hello")
Array(10, "World")
Array(99, "VB.Net")


Design Time

ขอนำเสนอโค้ดตัวอย่าง (ก็ใช้งานได้จริงนั่นแหละ) มาให้คิดกันเพลินๆเจริญใจ 2 ชุดนะครับ ...
โค้ดการใช้งานแบบที่ 1

1. Public Class Form1
   
2. 
   
3.     Private _language As New List(Of Language)
   
4. 
   
5.     Class Language
   
6.         '// Consider the data type
   
7.         Property key As Integer
   
8.         Property value As String
   
9.     End Class
   
10. 
    
11.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
12.         _language.Add(New Language With {.key = 1, .value = "Visual Basic"})
    
13.         _language.Add(New Language With {.key = 2, .value = "C#"})
    
14.         _language.Add(New Language With {.key = 3, .value = "JAVA"})
    
15.         _language.Add(New Language With {.key = 5, .value = "C++"})
    
16.         _language.Add(New Language With {.key = 8, .value = "Objective C"})
    
17.         _language.Add(New Language With {.key = 9, .value = "Visual Basic .NET"})
    
18. 
    
19.         ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    
20.         ComboBox1.DataSource = _language
    
21.         ComboBox1.DisplayMember = "value"
    
22.         ComboBox1.ValueMember = "key"
    
23.     End Sub
    
24. 
    
25.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
26.         MessageBox.Show("ValueMember : " & CType(ComboBox1.SelectedItem, Language).key & vbCrLf & _
    
27.                         "DisplayMember : " & CType(ComboBox1.SelectedItem, Language).value & vbCrLf & _
    
28.                         "SelectedIndex is : " & ComboBox1.SelectedIndex)
    
29.     End Sub
    
30. End Class

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

โค้ดการใช้งานแบบที่ 2

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         '// Consider the data type
   
5.         Dim cbData As New Dictionary(Of Integer, String)()
   
6.         cbData.Add(1, "Visual Basic")
   
7.         cbData.Add(2, "C#")
   
8.         cbData.Add(3, "JAVA")
   
9.         cbData.Add(5, "C++")
   
10.         cbData.Add(8, "Objective C")
    
11.         cbData.Add(9, "Visual Basic .NET")
    
12. 
    
13.         ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    
14.         ComboBox1.DataSource = New BindingSource(cbData, Nothing)
    
15.         ComboBox1.ValueMember = "key"
    
16.         ComboBox1.DisplayMember = "value"
    
17.     End Sub
    
18. 
    
19.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
20.         Dim key As String = DirectCast(ComboBox1.SelectedItem, KeyValuePair(Of Integer, String)).Key
    
21.         Dim value As String = DirectCast(ComboBox1.SelectedItem, KeyValuePair(Of Integer, String)).Value
    
22.         MessageBox.Show("ValueMember : " & key & vbCrLf & "DisplayMember : " & value & vbCrLf & _
    
23.                                     "SelectedIndex is : " & ComboBox1.SelectedIndex)
    
24.     End Sub
    
25. End Class

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

g2gsoftuser

ขอบคุณครับ