+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا (/showthread.php?tid=19277)
التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - الخير طهوري - 17-02-17
السلام عليكم أيها الأحبة الأفاضل
عندي سؤال:
لدي listbox أدخل إليها قيما كل نقرة للفأرة تدخل سطرا
أريد كودا للتراجع عن هذه القيم انطلاقا من آخر قيمة ثم التي سبقتها وهكذا بقدر ما أريد
الله لا يحرمنا منكم
RE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - عبدالله الصافي - 17-02-17
ادخل هذا الكود بمشروع وجربه
لعله ما تريد
كود :
Private Sub Command1_Click()
List1.RemoveItem List1.ListCount - 1
End Sub
Private Sub Form_Load()
For i = 0 To 50
List1.AddItem i
Next
End SubRE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - الخير طهوري - 17-02-17
السلام عليكم ورحمة الله
والله أنت عبقري فعلا ، الله يحفظك ويرعاك
صراحة لم أتوقع الرد في ثوان معدودات
الله يبلغك كل ما تتمنى آمــــــــــــــــــــــــــــــــــين يا الله
كنت استخذمت طريقة أحيانا تشتغل وأحيانا تظهر رسالة خطأ
لكن ما تفضلتم به كان غاية في الروعة
ألف شكر
RE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - مساعدة - 17-02-17
السلام عليكم
اضافة لما تفضل به الاستاذ عبدالله الصافي فلابد من اختبار وجود عناصر قبل تنفيذ Remove باستخدام If List1.ListCount>0
RE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - الخير طهوري - 17-02-17
السلام عليكم ورحمة الله
والله العظيم ، أنتم عندي أفضل ناس وأفضل إخوة
أشكركم جزيل الشكر وهذا قليل في حقكم
اللهم أغفر لهم ذنوبهم وجازهم أفضل الجزاء في الدنيا والآخرة
RE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - sendbad100 - 17-02-17
السلام عليكم ورحمة الله وبركاته
اريد اشارك اخواني العطاء
يعطيكم العافية ما قصرتم
اليك اخي هذا الكود يقوم بحذف العنصر الذي تضغط علية مرتين دبل كليك من الليست ايا كان موقعه
توقعت تستفيد منه قد تحتاج حذف عنصر في البداية او الوسط
كود :
Private Sub List1_DblClick()
If List1.ListCount < 1 Then Exit Sub
List1.RemoveItem List1.ListIndex
End SubRE: التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا - الخير طهوري - 17-02-17
السلام عليكم ورحمة الله وبركاته
ألف شكر أخي الغالي والله ما قصرت ولا قصر إخواني الآخرين
جازاكم الله كل خير