منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته 

عندي سؤال علي flowlayoutpanel  

كيف يمكنني عرض البيانات من flowlayoutpanel  الي textbox 
كيف يمكنني حفظ العنصر text او label الموجود في flowlayoutpanel 

وبارك الله فيكم

وعليكم السلام ورحمة الله وبركاته

سؤالك الأول غير واضح
أداة flowlayoutpanel  أداة حاوية للأدوات الأخرى ولا تحمل قيم نصية

سؤالك الثاني أيضا غير واضح

وضح لو سمحت أخي عبدالكريم

مرحبا اخي الكريم

انا عندي قاعدة بيانات نوع sql وفيها البيانات الاتية
اسم الصنف - سعر - والصورة - الكمية وزر اضافة
وعرضهم في flowlayoutpanel

اريد عندما اضغط علي زر الاضافة يعرض البيانات في text و picturtbox موجودات علي فورم اخري

اي بمعني عرض التفاصيل


السؤال التاني

انا استخدمت flowlayoutpanel بدل datagrigview في عرض البيانات
كيف تقدر اندير حلقة تحهظ البيانات من flowlayoutpanel

وشكرا

(25-12-19, 08:02 PM)محمد كريّم كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

سؤالك الأول غير واضح
أداة flowlayoutpanel  أداة حاوية للأدوات الأخرى ولا تحمل قيم نصية

سؤالك الثاني أيضا غير واضح

وضح لو سمحت أخي عبدالكريم

شرح الاداة FlowLayoutPanel في فيجول استيديو دوت نت للمزيد من الدروس التعليمية زر الموقع التعليمي;http://bit.ly/2rDaEVq

(27-12-19, 11:34 PM)assistant2018 كتب : [ -> ]

(25-12-19, 08:02 PM)محمد كريّم كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

سؤالك الأول غير واضح
أداة flowlayoutpanel  أداة حاوية للأدوات الأخرى ولا تحمل قيم نصية

سؤالك الثاني أيضا غير واضح

وضح لو سمحت أخي عبدالكريم

شرح الاداة FlowLayoutPanel في فيجول استيديو دوت نت للمزيد من الدروس التعليمية زر الموقع التعليمي;http://bit.ly/2rDaEVq

؟؟!!


رابط مباشر بلا دعايات مزعجة : https://www.youtube.com/watch?v=KvT5J1TpY3g

For i As Integer = 0 To FlowLayoutPanel1.Controls.Count - 1

           Dim Cmd As New OleDbCommand("INSERT INTO tbl_order (nama,sla,seil) Values (@nama,@sla,@seil)", conn)

           If conn.State = ConnectionState.Closed Then
               conn.Open()
           End If
           Cmd.Parameters.AddWithValue("@nama", FlowLayoutPanel1.Controls(i).Controls("label1").Text)
           Cmd.Parameters.AddWithValue("@sla", FlowLayoutPanel1.Controls(i).Controls("label2").Text)
           Cmd.Parameters.AddWithValue("@seil", FlowLayoutPanel1.Controls(i).Controls("label3").Text)



           Cmd.ExecuteNonQuery()

           'Cmd.Dispose()
           If conn.State = ConnectionState.Open Then
               conn.Close()
           End If


       Next


       MsgBox("تم ارسال الطلبية بنجاح", 64, "نظام الموفر")





       'Catch ex As Exception
       '    MsgBox(ex.Message)
       '    Exit Sub
       'End Try


   End Sub

تفضل صديقي هذا مثال جديد رفعتة سوف تجد ما تريد بة :

http://vb4arb.com/vb/showthread.php?tid=35751