12-01-18, 04:07 PM
(آخر تعديل لهذه المشاركة : 12-01-18, 04:54 PM {2} بواسطة طالب برمجة.)
لا اعتقد مع هذا التعديل انك ستحتاج الى Enter
إذا كنت تقصد بزر Enter أن يتم الضغط على Button1 فاذهب الى خصائص الفورم
وابحث عن الخاصية AcceptButton واختار منها Button1
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

