[VB.NET] การใช้งาน MultiColumnComboBox Control ด้วยของฟรีจาก Syncfusion Community

thongkorn

ก็ตามหัวข้อเลยครับ คือเป็น ComboBox แบบหลายหลัก หรือ Multi-Column ซึ่งเสมือนหนึ่งว่าเป็นการดึงตารางข้อมูลมาแสดงผลในตัว MultiColumnComboBox โดยตัวอย่างนี้จะใช้ข้อมูลสมมุติจาก DataTable แล้วให้มันมองเป็น DataView ...

ดาวน์โหลดฟรีชุดติดตั้ง Syncfusion Community (ต้องสมัครสมาชิกเขาก่อนด้วยล่ะครับ) ...

ไฟล์ DLL ที่เป็นพื้นฐานในการใช้งานทั่วไปของ Syncfusion Community รุ่นฟรี ... หากเวอร์ชั่นที่สูงกว่ารุ่นของแอดมิน ต้อง Add Reference เข้ามาใหม่ด้วยครับ  


มาดูโค้ดต้นฉบับแบบเต็ม ...

1. Imports Syncfusion.Windows.Forms.Tools
   
2. 
   
3. Public Class frmCBMulticol
   
4. 
   
5.     Private Sub frmCBMulticol_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
6.         Call ComboBoxDataBinding()
   
7.     End Sub
   
8. 
   
9.     Sub ComboBoxDataBinding()
   
10.         '// Setup MultiColumnComboBox
    
11.         With MultiColumnComboBox1
    
12.             .MultiColumn = True
    
13.             .ShowColumnHeader = True
    
14.             .AlphaBlendSelectionColor = Color.LightBlue
    
15.             .DropDownWidth = 620
    
16.             .DropDownStyle = ComboBoxStyle.DropDownList
    
17.             .Style = Syncfusion.Windows.Forms.VisualStyle.Office2007
    
18.             .Office2007ColorTheme = Syncfusion.Windows.Forms.Office2007Theme.Black
    
19.         End With
    
20.         '//
    
21.         Dim dt As New Data.DataTable
    
22.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 6 หลัก
    
23.         With dt
    
24.             .Columns.Add("EmployeePK", GetType(Integer))    '<-- Index = 0
    
25.             .Columns.Add("EmployeeID", GetType(String))     '<-- Index = 1
    
26.             .Columns.Add("EmployeeName", GetType(String))   '<-- Index = 2
    
27.             .Columns.Add("Position", GetType(String))           '<-- Index = 3
    
28.             .Columns.Add("Department", GetType(String))     '<-- Index = 4
    
29.             .Columns.Add("HireDate", GetType(Date))             '<-- Index = 5
    
30.         End With
    
31.         ' / เพิ่มรายการข้อมูล (Record) เรียงตามลำดับฟิลด์
    
32.         With dt
    
33.             .Rows.Add("1", "EMP00001", "นายทองก้อน ทับทิมกรอบ", "Managing Director", "Management", "01/01/2555")
    
34.             .Rows.Add("2", "EMP00002", "นายบุญห่อ พ่อรวย", "ช่างซ่อมบำรุง", "Technical", "01/06/2555")
    
35.             .Rows.Add("3", "EMP00003", "นางสาวกุ๊กกิ๊ก น่ารักที่สุด", "เลขา", "Management", "25/02/2555")
    
36.             .Rows.Add("4", "EMP00004", "นางบัวผัน ฝันเฟื่อง", "หัวหน้าบัญชี", "บัญชี", "11/11/2555")
    
37.             .Rows.Add("5", "EMP00005", "หนูมาลี มีลูกแมวเหมียว", "ธุรการ", "ธุรการ", "13/04/2555")
    
38.         End With
    
39.         Dim view As DataView = New DataView(dt)
    
40.         ' DATASOURCE is DATAVIEW
    
41.         With MultiColumnComboBox1
    
42.             .DataSource = view
    
43.             .DisplayMember = "EmployeeName"
    
44.             .ValueMember = "EmployeePK"
    
45.         End With
    
46.     End Sub
    
47. 
    
48.     Private Sub MultiColumnComboBox1_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles MultiColumnComboBox1.SelectedValueChanged
    
49.         Dim c As ComboBoxBaseDataBound = CType(MultiColumnComboBox1, ComboBoxBaseDataBound)
    
50.         If Not (c.SelectedIndex = -1) Then
    
51.             Dim drv As DataRowView = CType(c.Items(c.SelectedIndex), DataRowView)
    
52.             '// อ่านค่า EmployeePK หากต้องการใช้ EmployeeID ก็เปลี่ยน 0 ให้เป็น 1 คือเรียงตาม Index ของ Column ใน DataTable
    
53.             c.Text = drv.Item(0).ToString()
    
54.         End If
    
55.     End Sub
    
56. End Class

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

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

komenservice

ขอบพระคุณครับ อาจารย์

แต่ผม โหลดมาเป็น Ver 18 ครับ รุ่นทดลองใช้ 30 วันครับ

ทดสอบแล้ว ใช้งานได้ครับ แต่ใช้ได้ 30 วันครับ

MMEE007

ขอบพระคุณครับ

g2gsoftuser

ขอบคุณครับ