[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]
ونفع الله بك