+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] شباب عاوز كود بحث ل combobox (/showthread.php?tid=11709)
شباب عاوز كود بحث ل combobox - احمد عبد الحكيم - 14-03-15
بسم الله الرحمن الرحيم
السلام عليكم يا شباب
ارجو من حضارتكم كود بحث للكمبيو بوكس
بمعنى عند كتابة اسم او اى شئ للبحث تظهر القائمة المنسدلة الخاصة بالكمبيو بكوس
ووفقنى الله واياكم
RE: شباب عاوز كود بحث ل combobox - hassan - 14-03-15
شوف هاذا الكود ان شاء الله يكون قصدك كذا
ComboBox1.SelectedItem = ""
RE: شباب عاوز كود بحث ل combobox - احمد عبد الحكيم - 14-03-15
اخى اولا شكرا لاك على المشاركه
ثانيا طلبى بسيط جدا هو كود للبحث للكمبو بوكس مثل كود بحث التيكست بوكس
لاكن الفرق ان التيكست يبحث فى داتا جريد مثلا
اما الكمبو بوكس يقوم بالبحث فى القائمه المسندلة لخاصه به
بمعنى عند كتابة اول حرف من صنف معين يقوم باظهار القائمة المنسدلة الخاصة به والوقوف على الاسم مثل البحث بالاسم
RE: شباب عاوز كود بحث ل combobox - احمد عبد الحكيم - 14-03-15
شكرا لك اخى ameerah
لقد توصلت الى كود
نجح والحمد لله
ها هو الكود للاستفادة
Con.Open()
Ds = New DataSet
tables = Ds.Tables
da = New OleDbDataAdapter("SELECT itemname from item", Con)
da.Fill(Ds, "item")
Dim view1 As New DataView(tables(1))
With TextBox3
.DataSource = Ds.Tables("item")
.DisplayMember = "itemname"
.ValueMember = "itemname"
.SelectedIndex = 0
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With