11-04-16, 06:42 PM
طريقة جعل مربع البحث يظهر لائحة منسدلة فيها الاختيارت البحث يعني إذا كتبت أول حرف يظهر باقي الحروف في لائحة منسدلة مثل القوقل في الفجوال بيزك طبعا في txtbx البحث ![[صورة مرفقة: 146038421707041.jpg]](http://store2.up-00.com/2016-04/146038421707041.jpg)
![[صورة مرفقة: 146038421707041.jpg]](http://store2.up-00.com/2016-04/146038421707041.jpg)
![[صورة مرفقة: 146038421707041.jpg]](http://store2.up-00.com/2016-04/146038421707041.jpg)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("Select * from UserTb", cn)
da.Fill(dt)
Dim auto As New AutoCompleteStringCollection
For Each dr As DataRow In dt.Rows
auto.Add(dr("Uname"))
Next
TextBox1.AutoCompleteCustomSource = auto
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
End Sub
(11-04-16, 07:13 PM)foxweb كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اتوقع هذا الرابط قد يفيدك
http://www.authorcode.com/search-textbox...in-vb-net/

(11-04-16, 08:48 PM)Adrees كتب : [ -> ]هذه الطريقة تسمى خاصية الاكمال التلقائيشكرا لك أخي الكريم جزاك الله خيرا سأحول الكود إلى برنامجي مع التغييرات المناسبة
تفضل هذا الكود يفي بالغرض
PHP كود :Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("Select * from UserTb", cn)
da.Fill(dt)
Dim auto As New AutoCompleteStringCollection
For Each dr As DataRow In dt.Rows
auto.Add(dr("Uname"))
Next
TextBox1.AutoCompleteCustomSource = auto
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
End Sub