[رضوان الجماعي]

(10-02-22, 01:25 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
مدلل يادكتور تكرم عينك
بعد ان تضيف ماتريد من فحوصات في الليست بوكسرقم 4 وفي الثالثة الاسعار
الان نكتب كود حذف اي عنصر من التحاليل في الليست الرابعة بعد اختيارها سيتم حذف العنصر والسعر من الليست التي فيها الاسعار وهي الثالثة
طبعا لن يتم الحذف اذا لم تختار

كود :

 ' التراجع عن اضافة التحاليل
   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim indx As Integer = ListBox4.SelectedIndex
       If ListBox4.SelectedItem <> Nothing Then
           ListBox4.Items.RemoveAt(indx)
           ListBox3.Items.RemoveAt(indx)
       End If
   End Sub

شكرا ياغالي الكود تمام انا امس كتبت هذا الكود وما اشتغل لاني ما حددت اسم الفحص الي اريد احذفه شكرا على التوجيه قربت اكمل البرنامج ولما يجهز بهديك انت والمنتدى نسخه مفتوحة المصدر لتقيم وانشاء الله اكون عند حسن الظن.