[safer alamal]

يادكتور نور الله طريقك كما نورت طريقي وارسل الله لك من يساعدوك كما تساعدني انا والكثيرين نورت دربي واعدت لي الحياه وشققت طريقي مستنير بنور الله ومقتدي بك انت طفره لا يوجد شخص في صنعاء او عمران الا ويعرفك وله معك حكاية خير واليوم اكتشف انك تتعلم البرمجه لتكون سند برمجي وطبي للجمعيات الطبية الخيرية اتعبت الاطباء من بعدك ....
اعدك حين انتهي من دراسة البرمجه ساكون مناره مثلك لكل من اضاع طريقه .....
اخوك/ محمد عمر الحبابي من ساعدته يوم من الايام ووقفت الى جانبه كي يترك الادمان ويعود الى طريق الحياة ومن يومها سميت نفسي سفير الامل.لاكون امل لكل انسان

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

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

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

السلام عليكم ورحمة الله وبركاته
مدلل يادكتور تكرم عينك
بعد ان تضيف ماتريد من فحوصات في الليست بوكسرقم 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

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

(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

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

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

الحمد لله والشكر لله

ولك أخي رضوان الجماعي