[dasktop]

مرحبا

انا لدي مشروع ويحتوي على  اداة listbox وفيها مجموعة ارقام 


فكيف نمنع تكرار الارقام 

وعند نزول ارقام في listbox يضهر رسالة 

حاولت في قائمة الاحداث ولا تنجح الا باالضغط على الاداة listbox

[ابراهيم ايبو]

السلام عليكم اخي الكريم Dasktop

تفضل هذا المثال 

الفكرة هنا اننا نضيف العنصر اولا وقد يتكرر  ثم نقوم بانشاء مصفوفة من عناصر الليست بوكس كلها

ثم ننشئ مصفوفة ثانية من المصفوفة الاولى مع مراعاة عدم تكرار العناصر عبر Distinct()

ثم نفرغ الليست بوكس من كل العناصر وبعدها نضيف المصفوفة الثانية الى الليست بوكس

ولاحاجة لاظهار رسالة لان الكود كفيل بعدم ادراج العنصر الموجود سابقا

[dasktop]

فنان اخي ابراهيم

ولاكن الاحداث نلاحظ ان الاحداث في textbox تعمل اذا اذا في ال text نص

وفي listbox لايعمل الحدث الا عندما يتم الضغط على ال listbox

[سعود]

مشاركة لكم احببت وضع هذا  الكود

PHP كود :

       If TextBox1.Text.Trim = "" Then Beep() : Exit Sub
        If ListBox1.Items.Contains(TextBox1.Text) Then Beep() : Exit Sub
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Clear() 


طبعا حتى يكون الاستخدام متناسق اجعل Accept button للزر الاول و cancel button للزر الثاني (ماله علاقة لكن لو تحب تختصر بالنقر على زر Enter)

  Listbox.zip (الحجم : 21.23 ك ب / التحميلات : 12)

[سعود]

وهذا للبحث

PHP كود :

       If TextBox1.Text.Trim = "" Then Beep() : Exit Sub
        ListBox1.SelectedIndex = (ListBox1.FindString(TextBox1.Text)) 


---

  Listbox.zip (الحجم : 22.26 ك ب / التحميلات : 10)

PHP كود :

ListBox1.FindString(TextBox1.Text) 


FindString يعيد متغير رقمي 0 لا شيء

[ابراهيم ايبو]

شكرا ياغالي ياسعد وياسعود من غدا صديقك اصبح محسود

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

دمت وادام الله عليك كل الخير

[سعود]

في النادر من تجاربي مع البرمجة شغلة تمشي مع اكس بي ولا تعمل مع غيرها والعكس ...فوضعي الان التجارب لمعرفة الفرق (من نفس اصدار 2010 مثلا)

وضع Listbox selection mode =MultiSimple

PHP كود :

 ListBox1.ClearSelected
        If TextBox1.Text.Trim = "" Then Beep() : Exit Sub
        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim t As String = ListBox1.Items(i).ToString
            If t = TextBox1.Text Then
                ListBox1.SetSelected(i, True)
            End If
        Next 


اذا سمحنا بالتكرار 

  Listbox.zip (الحجم : 22.6 ك ب / التحميلات : 11)

[dasktop]

فنان اخي سعود

والمشكلة هي الاحداث

اذا كتبت في حدث

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
MsgBox("ss")
End Sub

تضهر الرسالة


واذا كتبت في حدث listbox



Private Sub ListBox1_TextChanged(sender As Object, e As EventArgs) Handles ListBox1.TextChanged
MsgBox("3")
End Sub

لاتضهر الرساله الا عندما يتم الضغط على listbox ماهي المشكلة

[سعود]

الحدث الذي ذكرت معناه لا يكون الا اذا حدث تغيير بالنص اضافة او حذف.

[dasktop]

في ال textbox اذا كتبت في حدث TextChanged

msgbox(ss"s)s

تضهر الرسالة اذا تم اضافة نص في textbox

كيف نضيف اذا في listbox اضافة تضهر رسالة