[VB.NET] การทำ AutoComplete ให้กับ TextBox Control ด้วย Syncfusion

thongkorn

โค้ดตัวอย่าง VB.NET ของการทำ AutoComplete ให้กับ TextBox Control ด้วย Syncfusion ซึ่งมีข้อแตกต่างจาก AutoComplete ของทางไมโครซอฟท์ ทั้งสามารถแสดงผลได้มากกว่า 1 Column ทำให้เราสามารถกดคีย์ค้นหาได้ทั้งรหัสสินค้า หรือชื่อสินค้าพร้อมๆกัน (Mode MultiSuggestExtended) โดยที่ไม่ต้องมาเขียนโค้ดให้เลือกเอาอย่างใดอย่างหนึ่ง อีกทั้งของ Syncfusion มีโค้ดที่ง่ายกว่าของทางไมโครซอฟท์มาก ... แอดมินได้ทำตัวอย่างเอาไว้ให้ 2 แบบ คือแบบใช้ข้อมูลสมมุติจาก DataTable และมีการดึงข้อมูลจริงจากไฟล์ MS Access DataBase พร้อมกับทำ AutoComplete ทั้งแบบ Design Time และ Run Time เอาไว้ให้ได้รับชมกันครับ

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

1. Imports System.Data.OleDb
   
2. Imports Syncfusion.Windows.Forms.Tools
   
3. 
   
4. Public Class frmAutoComplete
   
5. 
   
6.     Private Conn As New OleDbConnection
   
7.     Dim autoComplete As AutoComplete = New AutoComplete
   
8. 
   
9.     ' / --------------------------------------------------------------------------------
   
10.     Private Sub frmAutoComplete_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
11.         ' / --------------------------------------------------------------------------------
    
12.         '// AutoComplete with sample DataTable.
    
13.         AutoComplete1.SetAutoComplete(TextBox1, AutoCompleteModes.Both) '// Mode Append + Suggest.
    
14.         Me.AutoComplete1.DataSource = MyDataTable()
    
15. 
    
16.         '// AutoComplete with DataTable from DataBase and create it with code.
    
17.         Call ConnectDB()
    
18.         With autoComplete
    
19.             .ParentForm = Me    '// Must have for AutoComplete @Run time.
    
20.             .ShowColumnHeader = True
    
21.             .ShowCloseButton = True
    
22.             .ShowGripper = True
    
23.             '.AdjustHeightToItemCount = False
    
24.             '.AutoPersistentDropDownSize = True
    
25.             '.Style = AutoCompleteStyle.Metro
    
26.         End With
    
27.         autoComplete.SetAutoComplete(TextBox2, AutoCompleteModes.MultiSuggestExtended)
    
28.         autoComplete.DataSource = GetDataTable()
    
29.     End Sub
    
30. 
    
31.     ' / --------------------------------------------------------------------------------
    
32.     '// Create Sample DataTable.
    
33.     ' / --------------------------------------------------------------------------------
    
34.     Function MyDataTable() As DataTable
    
35.         '// Create DataTable
    
36.         Dim dt As DataTable = New DataTable()
    
37.         '// Add Columns
    
38.         With dt.Columns
    
39.             .Add("Country")
    
40.             .Add("Capital")
    
41.         End With
    
42.         '// Add Rows
    
43.         With dt.Rows
    
44.             .Add(New String() {"Thailand", "Bangkok"})
    
45.             .Add(New String() {"United Kingdom", "London"})
    
46.             .Add(New String() {"USA", "Washington, D.C."})
    
47.             .Add(New String() {"Brazil", "Brasilia"})
    
48.             .Add(New String() {"France", "Paris"})
    
49.             .Add(New String() {"Russia", "Moscow"})
    
50.             .Add(New String() {"India", "Delhi"})
    
51.             .Add(New String() {"Japan", "Tokyo"})
    
52.             .Add(New String() {"Taiwan", "Taipei"})
    
53.             .Add(New String() {"Croatia", "Zagreb"})
    
54.             .Add(New String() {"Brunei", "Bandar Seri Begawan"})
    
55.         End With
    
56.         '// Return DataTable
    
57.         Return dt
    
58.     End Function
    
59. 
    
60.     ' / --------------------------------------------------------------------------------
    
61.     '// DataTable from DataBase.
    
62.     ' / --------------------------------------------------------------------------------
    
63.     Function GetDataTable() As DataTable
    
64.         Dim dt As New DataTable
    
65.         Dim strSQL As String = String.Empty
    
66.         '//
    
67.         strSQL = _
    
68.             " SELECT Country, Capital " & _
    
69.             " FROM(Table1) " & _
    
70.             " ORDER BY Country, Capital "
    
71.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
72.         Using DA As New OleDbDataAdapter(strSQL, Conn)
    
73.             DA.Fill(dt)
    
74.         End Using
    
75.         '// Return DataTable
    
76.         Return dt
    
77.     End Function
    
78. 
    
79.     Public Function ConnectDB() As Boolean
    
80.         Dim strConn As String = _
    
81.             " Provider = Microsoft.ACE.OLEDB.12.0; " & _
    
82.             " Data Source = " & MyPath(Application.StartupPath) & "data\SampleDB.accdb"
    
83.         Try
    
84.             Conn = New OleDb.OleDbConnection(strConn)
    
85.             Conn.Open()
    
86.             '// Return
    
87.             Return True
    
88.         Catch ex As Exception
    
89.             MessageBox.Show(ex.Message)
    
90.             Conn = Nothing
    
91.             Return False
    
92.         End Try
    
93.     End Function
    
94. 
    
95.     ' / --------------------------------------------------------------------------------
    
96.     ' / Get my project path
    
97.     ' / AppPath = C:\My Project\bin\debug
    
98.     ' / Replace "\bin\debug" with ""
    
99.     ' / Return : C:\My Project\
    
100.     Function MyPath(ByVal AppPath As String) As String
     
101.         '/ MessageBox.Show(AppPath);
     
102.         AppPath = AppPath.ToLower()
     
103.         '/ Return Value
     
104.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
105.         '// If not found folder then put the \ (BackSlash - ASCII Code = 92) at the end.
     
106.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
107.     End Function
     
108. 
     
109.     Private Sub frmAutoComplete_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
110.         Me.Dispose()
     
111.         GC.SuppressFinalize(Me)
     
112.         End
     
113.     End Sub
     
114. End Class

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

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