ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 3819|ตอบกลับ: 0

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

[คัดลอกลิงก์]

308

กระทู้

498

โพสต์

5973

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5973




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

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

  2.     Private Sub frmAutoTextBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  3.         '// Sample Data.
  4.         With ListBox1
  5.             .Items.Add("This is a book.")
  6.             .Items.Add("Red, Label")
  7.             .Items.Add("Black & White")
  8.             .Items.Add("Red Litre")
  9.             .Items.Add("Whisky, 40 Degree")
  10.             .Items.Add("Red, Green, Blue")
  11.             .Items.Add("Whisky, Scott")
  12.             .Items.Add("Red, Blood")
  13.             .Items.Add("Black, Label")
  14.             .Items.Add("Thongkorn Tubtimkrob")
  15.         End With
  16.         '// Auto Complete TextBox.
  17.         TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
  18.         TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
  19.         Dim DataCollection As New AutoCompleteStringCollection()
  20.         GetData(DataCollection)
  21.         TextBox1.AutoCompleteCustomSource = DataCollection
  22.     End Sub

  23.     Private Sub GetData(ByVal dataCollection As AutoCompleteStringCollection)
  24.         '// Data Collection
  25.         For iRow = 0 To ListBox1.Items.Count - 1
  26.             dataCollection.Add(ListBox1.Items(iRow).ToString)
  27.         Next
  28.     End Sub
  29. End Class
คัดลอกไปที่คลิปบอร์ด

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


ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

2

โพสต์

179

เครดิต

Member

Rank: 2

เครดิต
179
โพสต์ 2018-3-3 10:23:31 | ดูโพสต์ทั้งหมด

ขอบคุณมากๆเลยครับอาจารย์
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-3-29 12:20 , Processed in 0.162359 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้