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

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

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

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

262

กระทู้

422

โพสต์

3751

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
3751



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

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

  2.     Private Sub frmComboBoxAutoComplete_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  3.         Call ComboBoxDataTable()
  4.     End Sub

  5.     Sub ComboBoxDataTable()
  6.         Dim dt As New Data.DataTable
  7.         ' / เพิ่มหลัก (Columns) หรือฟิลด์ จำนวน 2 หลัก
  8.         dt.Columns.Add("PK", GetType(Integer))
  9.         dt.Columns.Add("Name", GetType(String))
  10.         ' / เพิ่มรายการข้อมูล (Record) เรียงตามลำดับฟิลด์
  11.         With dt
  12.             .Rows.Add("1", "This is a book.")
  13.             .Rows.Add("2", "Red, Label")
  14.             .Rows.Add("3", "Black & White")
  15.             .Rows.Add("4", "Red Litre")
  16.             .Rows.Add("5", "Whisky, 40 Degree")
  17.             .Rows.Add("6", "Red, Green, Blue")
  18.             .Rows.Add("7", "Whisky, Scott")
  19.             .Rows.Add("8", "Red, Blood")
  20.             .Rows.Add("9", "Black, Label")
  21.             .Rows.Add("10", "Thongkorn Tubtimkrob")
  22.         End With
  23.         cmbAuto.DisplayMember = dt.Columns("Name").ToString '/ Display the name
  24.         cmbAuto.ValueMember = dt.Columns("PK").ToString
  25.         cmbAuto.DataSource = dt
  26.         '// Autocomplete
  27.         With cmbAuto
  28.             .DropDownStyle = ComboBoxStyle.DropDown
  29.             .AutoCompleteMode = AutoCompleteMode.Suggest
  30.             .AutoCompleteSource = AutoCompleteSource.ListItems
  31.             .IntegralHeight = False
  32.             .MaxDropDownItems = 10
  33.         End With
  34.     End Sub

  35.     Private Sub frmComboBoxAutoComplete_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  36.         Me.Dispose()
  37.         GC.SuppressFinalize(Me)
  38.         Application.Exit()
  39.     End Sub

  40. End Class
คัดลอกไปที่คลิปบอร์ด

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

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

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

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

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

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

GMT+7, 2021-9-22 15:11 , Processed in 0.047383 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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