منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقل عناصر بين اداتينlistbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نقل عناصر بين اداتينlistbox (/showthread.php?tid=40699)

الصفحات: 1 2

نقل عناصر بين اداتينlistbox - رضوان الجماعي - 08-02-22

السلام عليكم اساتذتي العظماء ارجوا مساعدتي انا اعمل حاليا بمشروع لادارة مختبر للتحاليل الطبية ولي فورم فيه ٤ ادوات من listbox حيث listbox1 متصله بقاعدة بيانات اكسس بالوضع المفصل عن طريقdatascre وهي عباره عن جداول لاسماء الفحوصات ويقابله listbox 2متصل ايضن بنفس الطريقه وفيه تسعيرة الفحص اريد عن النقر على اسم الفحص يتم نقله الى listbox3 والقيمه التي تقابله الى listbox4 ولكم خالص الحب والتقدير .

RE: نقل عناصر بين اداتينlistbox - ابراهيم ايبو - 08-02-22

السلام عليكم ورحمة الله وبركاته
تفضل اخي رضوان
كود :
  Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
       ListBox3.Items.Add(ListBox1.SelectedItem)
       Dim AA As Integer
       AA = ListBox1.SelectedIndex
       ListBox4.Items.Add(ListBox2.Items(AA))
   End Sub


RE: نقل عناصر بين اداتينlistbox - رضوان الجماعي - 08-02-22

استاذي المميز والغالي كالمحاولات السابقه بدل من ان يقوم بنقل العناصر من اليستبوكس١ واليستبوكس٢ الى ٣و٤ يضهر في ثلاثه واربعه system.Data.DataRow

RE: نقل عناصر بين اداتينlistbox - ابراهيم ايبو - 08-02-22

تفضل هذا مثال
 ولكن عبأته مباشرة بدون قاعدة البيانات
كما يمكنك تعديل الكود ليشمل معالجة الخظأ الذي ينتج عندما تضغط بالماوس في مكان الفراغ حيث لا يوجد سجل
مع تغيير الحدث الى MouseClick كالتالي
كود :
 Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
       If ListBox1.IndexFromPoint(e.Location) < 0 Then
           Exit Sub
       Else
           ListBox3.Items.Add(ListBox1.SelectedItem)
           Dim AA As Integer
           AA = ListBox1.SelectedIndex
           ListBox4.Items.Add(ListBox2.Items(AA))
       End If
   End Sub


RE: نقل عناصر بين اداتينlistbox - رضوان الجماعي - 08-02-22

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

RE: نقل عناصر بين اداتينlistbox - ابراهيم ايبو - 08-02-22

أخي اما ان تضع مثالك ليتم العمل عليه 
او تنتظرني حتى أعود الى البيت واجهز لك مثال لأني في العمل حاليا
والله يادكتور انتظر منك حل مشكلة مرض السكر لدي هههههه

نقل عناصر بين اداتينlistbox - رضوان الجماعي - 08-02-22

قمت بعمل مشروع شبيه بالملوب حتى لا نتوه لان المشروع الاصلي كبير والنت ظعيف جدا عنا في اليمن
وقمت بعمل قاعدة بيانات بشكل سريع وعملت لها اتصال بالوضع المنفصل عن طريق data scuore
نصيحه بالنسبه لسكري ان تعاملت معه كا صديق صار صديقك وانت تعاملة معه كا عدو صار اكثر شي يتعبك

RE: نقل عناصر بين اداتينlistbox - ابراهيم ايبو - 08-02-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم دكتور رضوان الجماعي
لن أخوض في طريقة البرمجة لديك لأني لم افهم عليها 
المهم اعدت انشاء المثال ووضعت قاعدة البيانات في مجلد Debug 
وأنشأت جملة اتصال بالكود مع البيانات وملات الليست الاولى والثانية 
وبرمجت لك زر التراجع عن اضافة التحاليل للمريض (أي حذف اي بند بعد الاضافة)
تفضل المثال

RE: نقل عناصر بين اداتينlistbox - ابراهيم ايبو - 08-02-22

السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر  
 ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان 
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث 
كود :
 Private Sub ListBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseUp, ListBox2.MouseUp
       If ListBox1.IndexFromPoint(e.Location) < 0 Then
           Exit Sub
       Else
           Dim AA As Integer
           AA = ListBox1.SelectedIndex
           If Not ListBox4.Items.Contains(ListBox2.Items(AA)("test")) Then
               ListBox3.Items.Add(ListBox1.Items(AA)("PRICY"))
               ListBox4.Items.Add(ListBox2.Items(AA)("test"))
           End If
       End If
   End Sub


RE: نقل عناصر بين اداتينlistbox - رضوان الجماعي - 09-02-22

شكرا لك ولرجل الطيب هذا ما احتجته بالضبط اشكرك من أعماق قلبي والله دموعي نزلت من شدة الفرح
(08-02-22, 10:56 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر  
 ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان 
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث 
كود :
 Private Sub ListBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseUp, ListBox2.MouseUp
       If ListBox1.IndexFromPoint(e.Location) < 0 Then
           Exit Sub
       Else
           Dim AA As Integer
           AA = ListBox1.SelectedIndex
           If Not ListBox4.Items.Contains(ListBox2.Items(AA)("test")) Then
               ListBox3.Items.Add(ListBox1.Items(AA)("PRICY"))
               ListBox4.Items.Add(ListBox2.Items(AA)("test"))
           End If
       End If
   End Sub

اجل يا غالي يا رائع انت وصديقك هذا المطلوب بالضبط