تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اذا امكن تعديل هذا الكود
#1
السلام عليكم

لو عندى Listbox اريد ازاله item اضفت هذا الكود
كود :
For i As Integer = ListBox2.SelectedIndices.Count - 1 To 0 Step -1
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndices.Item(i))
        Next
        ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1
اريد بعد ازالت الكود يفضل معلم على الايت الى كانت مكنه بمعنى لو كان SelectedIndex = 2 بعد المسح يرجع لى SelectedIndex = 2 يعلى على item الثالثة الان ال SelectedIndex بيبتدى من 0 انا لا اقصد ان يعلم على ثالث item اقصد انو يعلم فى نفس المكن الى اتمسح منه الايتم يعنى SelectedIndex تفضل نفس SelectedIndex
الرد }}}}
تم الشكر بواسطة:
#2
لا ادري هل ما اكتبه ماتريده ام لا
بحدث النقر لزر الامر اكتب:
كود :
Dim i As Integer = ListBox1.SelectedIndex

        ListBox1.Items.Remove(ListBox1.SelectedItem)
        ListBox1.SelectedIndex += i
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
او من غير +=i
اكتب
=i
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
كود :
Dim i As Integer = ListBox1.SelectedIndex

        ListBox1.Items.Remove(ListBox1.SelectedItem)
        ListBox1.SelectedIndex = i

نعم هذا هو المطلوب على مااظن
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
لكن لو تحذف اخر قيمة بيصير خطا
الحل
كود :
Dim i As Integer = ListBox1.SelectedIndex        ListBox1.Items.Remove(ListBox1.SelectedItem)




        If i > ListBox1.Items.Count - 1 Then
            i -= 1


        Else
            i = i
        End If
        ListBox1.SelectedIndex = i
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
سعود كتب :
كود :
Dim i As Integer = ListBox1.SelectedIndex

        ListBox1.Items.Remove(ListBox1.SelectedItem)
        ListBox1.SelectedIndex = i

نعم هذا هو المطلوب على مااظن

هذا هو المطلوب جزاك الله خير و جعله فى مزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#7
واياك اخي الكريم
فكر بما لو كان البند المراد حذفه آخر قيمة حتما سيحدث خطا والحل #5
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
سعود كتب :واياك اخي الكريم
فكر بما لو كان البند المراد حذفه آخر قيمة حتما سيحدث خطا والحل #5

يممكننى اضافة Try لاجل عد الحصول على الخطأ شكرآ اخى
الرد }}}}
تم الشكر بواسطة:
#9
تفضل اخى هذا لا يعطى اخطاء اذا كانت الايتم المختارة هيا الاخيرة ويقوم بحذفها

كود :
For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.SelectedIndex = i Then
                If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
                    ListBox1.Items.RemoveAt(i)
                    ListBox1.SelectedIndex = (i - 1)
                Else
                    ListBox1.Items.RemoveAt(i)
                    ListBox1.SelectedIndex = (i)
                End If

            End If
        Next
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 995 أمس, 07:25 PM
آخر رد: عدنان الشمري
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 74 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 336 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 51 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 45 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 202 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 148 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 69 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 105 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 172 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL

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


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