إنشاء مربع نص AutoComplete داخل DataGridView

صفحة 1 من اصل 1 • شاطر

من طرف RANA الثلاثاء يناير 15, 2019 4:38 am

أهلا بكم
تعمل خصائص TextBox مثل [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] و [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] و [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] على الاكمال التلقائى للسلاسل النصية التى يقوم المستخدم بإدخالها من خلال مقارنة الأحرف البادئة التي يتم إدخالها إلى بادئات كافة السلاسل في مخزن البيانات.

المثال التالي كيفية إنشاء مربع نص للاكمال التلقائى [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] داخل [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الكود:: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 3 DataGridView1.Columns(0).Name = "Product ID" DataGridView1.Columns(1).Name = "Product Name" DataGridView1.Columns(2).Name = "Product Price" Dim row As String() = New String() {"1", "Product 1", "1000"} DataGridView1.Rows.Add(row) row = New String() {"2", "Product 2", "2000"} DataGridView1.Rows.Add(row) row = New String() {"3", "Product 3", "3000"} DataGridView1.Rows.Add(row) row = New String() {"4", "Product 4", "4000"} DataGridView1.Rows.Add(row) End Sub Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing Dim titleText As String = DataGridView1.Columns(1).HeaderText If titleText.Equals("Product Name") Then Dim autoText As TextBox = TryCast(e.Control, TextBox) If autoText IsNot Nothing Then autoText.AutoCompleteMode = AutoCompleteMode.Suggest autoText.AutoCompleteSource = AutoCompleteSource.CustomSource Dim DataCollection As New AutoCompleteStringCollection() addItems(DataCollection) autoText.AutoCompleteCustomSource = DataCollection End If End If End Sub Public Sub addItems(ByVal col As AutoCompleteStringCollection) col.Add("Product 1") col.Add("Product 2") col.Add("Product 3") col.Add("Product 4") col.Add("Product 5") col.Add("Product 6") End Sub End Class