+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] وضع الكود في الحدث المناسب (/showthread.php?tid=31841)
وضع الكود في الحدث المناسب - اسامه الهرماوي - 24-10-19
السلام عليكم...
برأيكم ما هو أفضل حدث لهذا الكود بحيث لا تتأثر الأداة كما في أحداث Key أو Change.
كود :
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New SqlCommand("SELECT الاسم FROM Donor", con)
Dim ds As New DataSet
Dim da As New SqlDataAdapter(cmd)
ds.Clear()
da.Fill(ds, "list")
Dim col As New AutoCompleteStringCollection
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
col.Add(ds.Tables(0).Rows(i)(0).ToString())
Next
con.Close()
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteCustomSource = col
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestRE: وضع الكود في الحدث المناسب - asemshahen5 - 26-10-19
PHP كود :
Dim cmd As New SqlCommand("Select ACWINT_NAME From DAY_BOOK", con)
Dim da As New SqlDataAdapter(cmd)
ds.Clear()
da.Fill(ds)
If ds.Rows.Count > 0 Then
Dim col As New AutoCompleteStringCollection
col.Clear()
For i = 0 To ds.Rows.Count - 1
col.Add(ds.Rows(i)(0).ToString())
Next
الاسم.AutoCompleteCustomSource = col
End If