01.Public Sub provideObjectAt(ByVal objTextbox As TextBox) // ใส่ objest
02. Try
03. objTextbox.AutoCompleteMode = AutoCompleteMode.Suggest
04. objTextbox.AutoCompleteSource = AutoCompleteSource.CustomSource
05. objTextbox.AutoCompleteCustomSource = atcol
06. Catch ex As Exception
07. End Try
08. End Sub
09.
10. Private Function atCollection(ByVal table As DataTable, ByVal colname As String) As AutoCompleteStringCollection
11. // ใส่ datatable กับ ชื่อ column
12. Dim atcol As New AutoCompleteStringCollection
13. Try
14. For Each dr As DataRow In table.Rows
15. atcol.Add(dr(colname))
16. Next
17. Catch ex As Exception
18.
19. End Try
20. Return atcol
21. End Function
