[waelalmsry75]

السلام عليكم
الإخوة الكرام
أريد تفعيل خاصية TextChanged للبحث من خلال TextBox عن عناصر listbox مرتبطة بقاعدة بيانات أكسس
بحيث إذا كتبت بعض الحروف في TextBox1 تظهر لي العناصر التي تشتمل على هذه الحروف
كذلك أريد تفعيل زر Enter
بحيث إذا ضغطت عليه يتم اختيار العنصر المراد دون اللجوء إلى الماوس
وإذا كان العنصر مختارا وضغطت Enter يتم إلغاء اختيار هذا العنصر
مرفق مثال لتوضيح المطلوب
وشكرا

[طالب برمجة]

لا اعتقد مع هذا التعديل انك ستحتاج الى Enter

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim b As New BindingSource

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Tab1dt_load()
        b.DataSource = Tab1dt

        CheckedListBox1.DataSource = b
        CheckedListBox1.DisplayMember = "names"
        CheckedListBox1.ValueMember = "ID"

        CheckedListBox1.CheckOnClick = True

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim names As New List(Of String)
        For Each c In CheckedListBox1.CheckedItems
            names.Add(c.item("names"))
        Next
        TextBox2.Text = String.Join("; ", names)
        Dim Tab2cmd = New OleDbCommand("insert into tab2(Tsneefat_Names) values(@names) ", con)
        Tab2cmd.Parameters.AddWithValue("@names", String.Join("; ", names))
        con.Open()
        Tab2cmd.ExecuteNonQuery()
        con.Close()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        b.Filter = "names LIKE '%" & TextBox1.Text.Trim & "%' "
    End Sub

End Class 


---

إذا كنت تقصد بزر Enter أن يتم الضغط على Button1 فاذهب الى خصائص الفورم
وابحث عن الخاصية AcceptButton واختار منها Button1

[waelalmsry75]

(12-01-18, 04:07 PM)طالب برمجة كتب : لا اعتقد مع هذا التعديل انك ستحتاج الى Enter

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim b As New BindingSource

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Tab1dt_load()
        b.DataSource = Tab1dt

        CheckedListBox1.DataSource = b
        CheckedListBox1.DisplayMember = "names"
        CheckedListBox1.ValueMember = "ID"

        CheckedListBox1.CheckOnClick = True

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim names As New List(Of String)
        For Each c In CheckedListBox1.CheckedItems
            names.Add(c.item("names"))
        Next
        TextBox2.Text = String.Join("; ", names)
        Dim Tab2cmd = New OleDbCommand("insert into tab2(Tsneefat_Names) values(@names) ", con)
        Tab2cmd.Parameters.AddWithValue("@names", String.Join("; ", names))
        con.Open()
        Tab2cmd.ExecuteNonQuery()
        con.Close()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        b.Filter = "names LIKE '%" & TextBox1.Text.Trim & "%' "
    End Sub

End Class 


---

إذا كنت تقصد بزر Enter أن يتم الضغط على Button1 فاذهب الى خصائص الفورم
وابحث عن الخاصية AcceptButton واختار منها Button1

جزاك الله خيرا أخي الكريم [b]طالب برمجة[/b]
ونفع الله بك