تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تلميحة - خاصية Auto Complete
#1
كاتب الموضوع : BADRMEDIA

بسم الله الرحمن الرحيم

الصلاة والسلام على المبعوث للأنام

السلام عليكم ورحمة الله وبركاته

===========================================

عندما تريد أن تجعل أداة صندوق السرد ( ComboBox ) تقوم بالإكمال التلقائي عندما يقوم المستخدم

بإدخال بيانات


كنا نكتب هذا الكود المشهور



كود :
If Char.IsControl(e.KeyChar) Then Return

With Me.ComboBox

Dim ToFind As String = .Text.Substring(0, .SelectionStart) & e.KeyChar
Dim Index As Integer = .FindStringExact(ToFind)

If Index = -1 Then Index = .FindString(ToFind)

If Index > -1 Then
.SelectedIndex = Index
.SelectionStart = ToFind.Length
.SelectionLength = .Text.Length - .SelectionStart
e.Handled = True
End If
End With




فى حدث ComboBox_KeyPress



هذا الكود يمكن بالفعل المستخدم من الاكمال التلقائى

لكن ماذا لو أدرت أن تجعل المستخدم يقوم بادخال للموجود فقط بحيث تكون الخاصية

لأداة صندوق السرد ( ComboBox ) كانها DropDownList

بحيث لو كتب حرف غير موجود فى العناصر لايكتب شئ فى الأداة


بباسطة بعد شرح طويل وجع دماغكم

أن لو البحث عاد بشئ ضع العنصر أمام المستخدم

إن لم يعود مترجعش بشئ ولا تدخل الحرف الجديد



ويكون الكود هكذا

كود :
If Char.IsControl(e.KeyChar) Then Return

With Me.ComboBox1

Dim ToFind As String = .Text.Substring(0, .SelectionStart) & e.KeyChar
Dim Index As Integer = .FindStringExact(ToFind)

If Index = -1 Then Index = .FindString(ToFind)

If Index > -1 Then
.SelectedIndex = Index
.SelectionStart = ToFind.Length
.SelectionLength = .Text.Length - .SelectionStart
e.Handled = True
Else
e.Handled = True
End If
End With



عملت لكم دوشة أنا عارف وطولت فى حاجة بسيطة

========================


بالمناسبة فى دوت نت 2005 هذه الخاصية أصبحت من ضمن الخصائص
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 9 2,908 11-02-16, 10:47 PM
آخر رد: العواد الصغير
  تلميحة--اجعل تصفح مكتبة msdn على الويب أسرع-- RaggiTech 0 370 03-10-12, 11:24 AM
آخر رد: RaggiTech
  تلميحة Tool Tip RaggiTech 0 235 03-10-12, 11:16 AM
آخر رد: RaggiTech
  تفعيل خاصية RequireAdministrator لبرنامجك للتحكم بملفات الويندوز بسهولة في ويندوز 7 RaggiTech 0 378 03-10-12, 10:47 AM
آخر رد: RaggiTech
  Auto-Implemented Properties In Visual Basic 2010 RaggiTech 1 344 01-10-12, 04:36 PM
آخر رد: RaggiTech
  Auto-Implemented Properties In Visual Basic 2010 Islam Ibrahim 0 431 17-09-12, 01:09 PM
آخر رد: Islam Ibrahim

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


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