[VB.NET] การทำ AutoComplete Collection ComboBox ด้วย DataTable

thongkorn

การทำ AutoComplete Collection คือการพิมพ์ตัวอักขระตัวแรก แล้วมันจะแสดงผลรายการ Item ที่มีอยู่ออกมาให้เห็นทั้งหมด ซึ่งจะช่วยให้ผู้ใช้งานทำงานได้ง่ายขึ้น (ตามภาพ)

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmComboBoxAutoComplete
   
2. 
   
3.     Private Sub frmComboBoxAutoComplete_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call ComboBoxDataTable()
   
5.     End Sub
   
6. 
   
7.     Sub ComboBoxDataTable()
   
8.         Dim dt As New Data.DataTable
   
9.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 2 หลัก
   
10.         dt.Columns.Add("PK", GetType(Integer))
    
11.         dt.Columns.Add("Name", GetType(String))
    
12.         ' / เพิ่มรายการข้อมูล (Record) เรียงตามลำดับฟิลด์
    
13.         With dt
    
14.             .Rows.Add("1", "This is a book.")
    
15.             .Rows.Add("2", "Red, Label")
    
16.             .Rows.Add("3", "Black & White")
    
17.             .Rows.Add("4", "Red Litre")
    
18.             .Rows.Add("5", "Whisky, 40 Degree")
    
19.             .Rows.Add("6", "Red, Green, Blue")
    
20.             .Rows.Add("7", "Whisky, Scott")
    
21.             .Rows.Add("8", "Red, Blood")
    
22.             .Rows.Add("9", "Black, Label")
    
23.             .Rows.Add("10", "Thongkorn Tubtimkrob")
    
24.         End With
    
25.         cmbAuto.DisplayMember = dt.Columns("Name").ToString '/ Display the name
    
26.         cmbAuto.ValueMember = dt.Columns("PK").ToString
    
27.         cmbAuto.DataSource = dt
    
28.         '// Autocomplete
    
29.         With cmbAuto
    
30.             .DropDownStyle = ComboBoxStyle.DropDown
    
31.             .AutoCompleteMode = AutoCompleteMode.Suggest
    
32.             .AutoCompleteSource = AutoCompleteSource.ListItems
    
33.             .IntegralHeight = False
    
34.             .MaxDropDownItems = 10
    
35.         End With
    
36.     End Sub
    
37. 
    
38.     Private Sub frmComboBoxAutoComplete_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
39.         Me.Dispose()
    
40.         GC.SuppressFinalize(Me)
    
41.         Application.Exit()
    
42.     End Sub
    
43. 
    
44. End Class

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

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