السلام عليكم ورحمة الله وبركاته
لدي CheckedListBox يحتوي على مجموعة items
وتوجد TextBox أبحث من خلالها في CheckedListBox
السؤال:
عندما أبحث عن كلمة ما
ويتم الوقوف عليها في CheckedListBox
أريد أن أضغط على زر enter فيقوم بوضع علامة صح بجوار هذا العنصر الذي أريده
وبعد ذلك توجد TextBox أخرى أريد نقل هذا العنصر الذي علمت عليه إليها
وفي المرفقات مثال لذلك
وجزاكم الله خيرا
(20-06-17, 09:16 AM)سعود كتب : [ -> ]PHP كود :
Public Class Form1
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyData = Keys.Enter Then
CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
SendKeys.Send("{backspace}")
End If
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
'For x As Integer = 0 To CheckedListBox1.Items.Count - 1
' If CheckedListBox1.Items(x).ToString.Contains(TextBox1.Text) Then
' CheckedListBox1.SelectedIndex = x
' Return
' End If
'Next
End Sub
Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
TextBox2.Clear()
For Each Item As Object In CheckedListBox1.CheckedItems
If TextBox2.Text = "" Then
TextBox2.AppendText(Item.ToString)
Else
TextBox2.AppendText(" ; " + Item.ToString)
End If
TextBox1.Focus()
Next
End Sub
End Class
الأخ سعود.. جزاك الله خيرا على ردك واهتمامك
لكني جربت الكود وظهر معي خطأ
فأرجو منك تجربة الكود على المثال المرفق وإعادة إرساله بعد التعديل عليه
بارك الله فيك.. ونفع بعلمك
(20-06-17, 03:33 PM)سعود كتب : [ -> ]إقتباس :لكني جربت الكود وظهر معي خطأ كما في الصورة التالية
لم ار اي صورة.
ثم ان الامر بسيط جدا
اكتب الكود التالي:
PHP كود :
If e.KeyData = Keys.Enter Then
CheckedListBox1.SelectedIndex = CheckedListBox1.Items.IndexOf(sender.text)
CheckedListBox1.SetItemChecked(CheckedListBox1.SelectedIndex, True)
SendKeys.Send("{backspace}")
End If
ضمن حدث
TextBox1_KeyDown
هذا الذي فعلته أخي الكريم وظهر معي نفس الخطأ
وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها
فأرجو منك التعديل على المثال وإعادة إرساله إلى مشكورا
وجزاك الله خيرا
إقتباس :وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها
ارفق الصورة بنفس طريقة ارفاق المثال ...صورة الخطا تقنع بوجود الخطا...غير ذلك غير مقتنع(معذرة)
(20-06-17, 11:38 PM)سعود كتب : [ -> ]إقتباس :وحاولت إرفاق الصورة لكنها تظهر على شكل حروف فحذفتها
ارفق الصورة بنفس طريقة ارفاق المثال ...صورة الخطا تقنع بوجود الخطا...غير ذلك غير مقتنع(معذرة)
لا بأس أخي الكريم.. فما على المحسنين من سبيل
وفي المرفقات صورة الخطأ الذي يظهر
تفضل في المرفقات بعد التعديل
(21-06-17, 11:25 PM)أبووسم كتب : [ -> ]تفضل في المرفقات بعد التعديل
جزاك الله خيرا أخي أبووسم
لكن ما زالت المشكلة موجودة عندي
والملف الذي أرفقتَه ينقصه كود البحث في TextBox
لذلك أعدت إرفاق الملف كاملا ومعه صورة الخطأ الذي يظهر عندي
===============
والمرجو معالجة هذا الخطأ
==============
تذكير:
لدي CheckedListBox يحتوي على مجموعة items
وتوجد TextBox أبحث من خلالها في CheckedListBox
المطلوب:
عندما أبحث عن كلمة ما في TextBox
ويتم الوقوف عليها في CheckedListBox
أريد أن أضغط على زر enter فيقوم بوضع علامة صح بجوار هذا العنصر الذي أريده
وذلك بدلا من استخدام الماوس
===============
شكر الله لكم.. وبارك فيكم