[VB.NET] การเก็บข้อมูลเพื่อแสดงผลแบบอัตโนมัติ (Auto Complete String Collection)

thongkorn

การใช้คุณสมบัติ AutoComplete เพื่อสร้างข้อความที่จะดำเนินการอินพุทสตริงโดยอัตโนมัติ โดยการเปรียบเทียบคำนำหน้าที่ป้อนลง กับคำนำหน้าของสตริงทั้งหมดในแหล่งข้อมูล ซึ่งจะเป็นประโยชน์สำหรับตัวควบคุม TextBox ซึ่งจะมีการป้อนข้อมูลต่างๆซ้ำๆอยู่บ่อยครั้ง (Google Translate แปลให้ครับ 5555+) ซึ่งสามารถอ่านรายละเอียดต่างๆได้จาก MSDN ของไมโครซอฟท์โดยตรงที่ TextBox.AutoCompleteMode Property ... โดยในตัวอย่างที่แอดมินนำมาเสนอนี้ให้สมมุติว่า Data Collection มันอยู่ใน ListBox Control กรณีนำไปใช้งานจริง เราก็ใช้วิธีอ่านจากฐานข้อมูลแทนครับผม ...

มาดูโค้ด (ง่ายๆ) กันเถอะ ...

1. Public Class frmAutoTextBox
   
2. 
   
3.     Private Sub frmAutoTextBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         '// Sample Data.
   
5.         With ListBox1
   
6.             .Items.Add("This is a book.")
   
7.             .Items.Add("Red, Label")
   
8.             .Items.Add("Black & White")
   
9.             .Items.Add("Red Litre")
   
10.             .Items.Add("Whisky, 40 Degree")
    
11.             .Items.Add("Red, Green, Blue")
    
12.             .Items.Add("Whisky, Scott")
    
13.             .Items.Add("Red, Blood")
    
14.             .Items.Add("Black, Label")
    
15.             .Items.Add("Thongkorn Tubtimkrob")
    
16.         End With
    
17.         '// Auto Complete TextBox.
    
18.         TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
    
19.         TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
    
20.         Dim DataCollection As New AutoCompleteStringCollection()
    
21.         GetData(DataCollection)
    
22.         TextBox1.AutoCompleteCustomSource = DataCollection
    
23.     End Sub
    
24. 
    
25.     Private Sub GetData(ByVal dataCollection As AutoCompleteStringCollection)
    
26.         '// Data Collection
    
27.         For iRow = 0 To ListBox1.Items.Count - 1
    
28.             dataCollection.Add(ListBox1.Items(iRow).ToString)
    
29.         Next
    
30.     End Sub
    
31. End Class

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

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

skypering

ขอบคุณมากๆเลยครับอาจารย์