منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ارجو تعديل الكود خاص بالــ " AutoCompleteString "

كود :

  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 Sub

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نبيل كونكت

alma2