+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو تعديل الكود خاص بالــ " AutoCompleteString " (/showthread.php?tid=20613)
ارجو تعديل الكود خاص بالــ " AutoCompleteString " - نبيل كونكت - 03-06-17
كود :
Private Sub txtlabel_MouseEnter(sender As Object, e As EventArgs) Handles txtlabel.MouseEnter
cmd = New OleDb.OleDbCommand("select label from tab_pro", con)
con.Open()
Dim ds As OleDb.OleDbDataReader = cmd.ExecuteReader
ds.Read()
Dim gh As New AutoCompleteStringCollection
gh = ds(0)
txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
txtlabel.AutoCompleteCustomSource = gh
End SubRE: ارجو تعديل الكود خاص بالــ " AutoCompleteString " - alma2 - 03-06-17
كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
Dim dt As New DataTable
da.Fill(dt)
Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
Dim gh As New AutoCompleteStringCollection()
gh.AddRange(itms)
txtlabel.AutoCompleteCustomSource = gh
txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
End Sub