تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter
#1
السلام عليكم
الإخوة الكرام
أريد تفعيل خاصية TextChanged للبحث من خلال TextBox عن عناصر listbox مرتبطة بقاعدة بيانات أكسس
بحيث إذا كتبت بعض الحروف في TextBox1 تظهر لي العناصر التي تشتمل على هذه الحروف
كذلك أريد تفعيل زر Enter
بحيث إذا ضغطت عليه يتم اختيار العنصر المراد دون اللجوء إلى الماوس
وإذا كان العنصر مختارا وضغطت Enter يتم إلغاء اختيار هذا العنصر
مرفق مثال لتوضيح المطلوب
وشكرا


الملفات المرفقة
.rar   listbox.rar (الحجم : 812.74 ك ب / التحميلات : 50)
الرد
تم الشكر بواسطة:
#2
لا اعتقد مع هذا التعديل انك ستحتاج الى Enter
PHP كود :
Imports System.Data.OleDb

Public Class Form1

    Dim b 
As New BindingSource

    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles TextBox1.TextChanged
        b
.Filter "names LIKE '%" TextBox1.Text.Trim "%' "
 
   End Sub

End 
Class 

إذا كنت تقصد بزر Enter أن يتم الضغط على Button1 فاذهب الى خصائص الفورم
وابحث عن الخاصية AcceptButton واختار منها Button1
الرد
تم الشكر بواسطة: waelalmsry75
#3
(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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles TextBox1.TextChanged
        b
.Filter "names LIKE '%" TextBox1.Text.Trim "%' "
 
   End Sub

End 
Class 

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم