مساعدة في ال Listbox عند حذف سطر

السلام عليكم ورحمه الله 

أخي الكريم تحية طيبة وبعد 

تجد بالمرفقات طلبك في مثال جاهز 

للتوضيح أن الأمر يكمن في الخاصية  listIndex

حيث يمكن من خلالها معرفة البند المحدد وأيضاً الإسناد لها بالبند المراد تحديدة 

فكرة الكود بسيطة 

1- التأكد من عدم خلو الليست بوكس

2 - فحص العنصر المحدد هل هو الأخير أم لا 

3 - إذا كان الأخير يقوم بحذفة من القائمة وتحديد آخر بند في القائمة 

4 - إذا لم يكن البند الأخير يقوم بحذفة من القائمة وتحديد الذي يليه مباشرة .

الكود : 

If Not List1.ListCount = 0 Then


        Dim list_index As Integer
        
        list_index = List1.ListIndex
        
            If list_index = List1.ListCount - 1 Then
                List1.RemoveItem (list_index)
                List1.ListIndex = List1.ListCount - 1
            Else
                List1.RemoveItem (list_index)
                List1.ListIndex = list_index
            End If


End If

دمت في ود وأتمنى لك التوفيق والنجاح

ListboxEx.rar

شكراً لك أخي العزيز memoon

الله يجزاك كل خير والله يوفقك

شكراً  لك على المثال

أخي الكريم 

نصيحة أخ 

حاول أنك تتعلم لغة الفجوال بيسك دوت نت فهي أوضح من الفجوال بيسك 6 ولكن ليست أسهل 

وأحبذ لو تتعلم لغات الويب مثل asp.net , PHP , JAVA فهي أسهل لك في تنفيذ البرمجيات 

وبها خيارات مثالية جداً وتسهل العمل عليك كمبرمج وتعطيك خيارات أكبر في التطوير بكل سلاسة 

دمت بود