منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) - نسخة قابلة للطباعة

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

الصفحات: 1 2

RE: توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها - اليوم مبتدئة وغداً محترفة - 11-02-17

هذي الاشياء اللي تم تعريفها في الببليك

PHP كود :
Dim flphbr As New FlowLayoutPanel
    Dim flpAdd As New FlowLayoutPanel
    Dim flpBod As New FlowLayoutPanel
    Dim flpInf As New FlowLayoutPanel


    Dim pic As New PictureBox

    Dim txtInf As New TextBox

    Dim txtInfoEdt2 As TextBox

    Dim txtEdt(1) As String ' 0 for text   1 for forecolor
    Dim toltip As New ToolTip 


وهذا load_info_sub
 لتحميل وعرض معلومات العميل 
حنستخدمه في حدث اللود وحدث البحث عن عميل

PHP كود :
Public Sub load_info_sub(ByVal o As Integer)


        'Dim flphbr As New ListView


        flphbr = New FlowLayoutPanel
        flphbr.Name = "flphbr"
        TabPage1.AutoScroll = True
        flphbr.AutoSize = True
        flphbr.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
        flphbr.Width = TabPage1.Width




        'flphbr.Height = TabPage1.Height

        flphbr.FlowDirection = FlowDirection.TopDown
        flphbr.BorderStyle = BorderStyle.FixedSingle

        If Not String.IsNullOrWhiteSpace(o) Then
            TabPage1.Controls.Add(flphbr)


            load_info_type()


            load_info(o)
        ElseIf String.IsNullOrWhiteSpace(o) Then

            Dim lblnot As New Label
            lblnot.Text = "لا يوجد بيانات"
            lblnot.Width = TabPage1.Width
            lblnot.Height = TabPage1.Height
            lblnot.TextAlign = ContentAlignment.MiddleCenter
            'lblnot.ReadOnly = True
            lblnot.Font = New Drawing.Font("Arial", 18)
            lblnot.ForeColor = Color.Red
            TabPage1.Controls.Add(lblnot)





        End If


        '''''''''''''''
        For a As Integer = 0 To ds.Tables("ccc").Rows.Count - 1



            Dim flphed As New FlowLayoutPanel
            flphed.Name = "flpHed" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            'flphed.BorderStyle = BorderStyle.FixedSingle
            flphed.FlowDirection = FlowDirection.LeftToRight
            flphed.AutoSize = True
            flphed.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
            'flphed.Width = TabPage1.Width
            flphed.Dock = DockStyle.Fill
            flphed.BackColor = Color.MediumSeaGreen
            'flphed.Height = 40
            flphbr.Controls.Add(flphed)

            Dim icn As String = "p" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString + ".png"

            pic = New PictureBox
            pic.Name = "picIcn" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            pic.BorderStyle = BorderStyle.Fixed3D
            pic.Size = New Size(30, 30)
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            ' pic.Image = Image.FromFile("pic\" + icn)
            flphed.Controls.Add(pic)

            Dim lbl As New Label
            lbl.Name = "lbl" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            lbl.Text = ds.Tables("ccc").Rows(a).Item("Type_Info_name").ToString
            lbl.Font = New Drawing.Font("Arial", 18)
            'lbl.AutoSize = True
            lbl.Width = 750
            lbl.Height = 40
            flphed.Controls.Add(lbl)

            pic = New PictureBox
            pic.Name = "picOpn" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            pic.BorderStyle = BorderStyle.Fixed3D
            toltip.SetToolTip(pic, "فتح/إغلاق")
            pic.Size = New Size(30, 30)
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            ' pic.Image = Image.FromFile("picOpn.png")
            AddHandler pic.Click, AddressOf pic_click
            flphed.Controls.Add(pic)





            flpBod = New FlowLayoutPanel
            flpBod.Name = "flpbod" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            flpBod.AutoSize = True
            flpBod.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
            flpBod.FlowDirection = FlowDirection.TopDown
            flphbr.Controls.Add(flpBod)

            For b As Integer = 0 To dt_info.Rows.Count - 1

                If dt_info.Rows(b).Item("Info_type").ToString <> ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString Then Continue For

                Dim flpInf As New FlowLayoutPanel
                flpInf.Name = "flpInf" + dt_info.Rows(b).Item("Info_id").ToString
                'flpInf.BorderStyle = BorderStyle.FixedSingle
                flpInf.FlowDirection = FlowDirection.LeftToRight
                flpInf.AutoSize = True
                flpInf.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
                flpInf.Width = TabPage1.Width
                'flp2.Height = flp.Height
                flpBod.Controls.Add(flpInf)


                txtInf = New TextBox
                txtInf.Name = "txtInf" + dt_info.Rows(b).Item("Info_id").ToString
                txtInf.Width = 715
                txtInf.Font = New Drawing.Font("Arial", 13)
                txtInf.BorderStyle = BorderStyle.None
                txtInf.ReadOnly = True
                txtInf.BackColor = TabPage1.BackColor
                txtInf.Text = dt_info.Rows(b).Item("Info_text").ToString
                If dt_info.Rows(b).Item("Info_fav").Equals(1) Then txtInf.ForeColor = Color.Green
                flpInf.Controls.Add(txtInf)

                pic = New PictureBox
                pic.Name = "picEdt" + dt_info.Rows(b).Item("Info_id").ToString
                pic.BorderStyle = BorderStyle.Fixed3D
                toltip.SetToolTip(pic, "تعديل")
                pic.Size = New Size(30, 30)
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                ' pic.Image = Image.FromFile("picEdt.png")
                AddHandler pic.Click, AddressOf pic_click
                flpInf.Controls.Add(pic)

                pic = New PictureBox
                pic.Name = "picEdc" + dt_info.Rows(b).Item("Info_id").ToString
                pic.BorderStyle = BorderStyle.Fixed3D
                toltip.SetToolTip(pic, "إلغاء")
                pic.Visible = False
                pic.Size = New Size(30, 30)
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                ' pic.Image = Image.FromFile("picEdc.png")
                AddHandler pic.Click, AddressOf pic_click
                flpInf.Controls.Add(pic)

                pic = New PictureBox
                pic.Name = "picDel" + dt_info.Rows(b).Item("Info_id").ToString
                pic.BorderStyle = BorderStyle.Fixed3D
                toltip.SetToolTip(pic, "حذف")
                pic.Size = New Size(30, 30)
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                ' pic.Image = Image.FromFile("picDel.png")
                AddHandler pic.Click, AddressOf pic_click
                flpInf.Controls.Add(pic)

                pic = New PictureBox
                pic.Name = "picsav" + dt_info.Rows(b).Item("Info_id").ToString
                pic.BorderStyle = BorderStyle.Fixed3D
                toltip.SetToolTip(pic, "حفظ")
                pic.Visible = False
                pic.Size = New Size(30, 30)
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                ' pic.Image = Image.FromFile("picsav.png")
                AddHandler pic.Click, AddressOf pic_click
                flpInf.Controls.Add(pic)

                pic = New PictureBox
                pic.Name = "picFav" + dt_info.Rows(b).Item("Info_id").ToString
                pic.BorderStyle = BorderStyle.Fixed3D
                toltip.SetToolTip(pic, "مفضلة")
                pic.Size = New Size(30, 30)
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                ' pic.Image = Image.FromFile("picFav.png")
                AddHandler pic.Click, AddressOf pic_click
                flpInf.Controls.Add(pic)

            Next
            flpAdd = New FlowLayoutPanel
            flpAdd.Name = "flpAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            flpAdd.FlowDirection = FlowDirection.RightToLeft
            flpAdd.AutoSize = True
            flpAdd.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
            flpBod.Controls.Add(flpAdd)

            lbl = New Label
            lbl.Name = "lblAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString

            lbl.Text = "إضافة.."
            lbl.ForeColor = Color.Red
            AddHandler lbl.Click, AddressOf lbl_click
            flpAdd.Controls.Add(lbl)

            '''''''''''''''
            pic = New PictureBox
            pic.Name = "picAdo" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            pic.BorderStyle = BorderStyle.Fixed3D
            toltip.SetToolTip(pic, "حفظ")
            pic.Visible = False
            pic.Size = New Size(30, 30)
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            'pic.Image = Image.FromFile("picsav.png")
            AddHandler pic.Click, AddressOf pic_click
            flpAdd.Controls.Add(pic)

            pic = New PictureBox
            pic.Name = "picAdc" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            pic.BorderStyle = BorderStyle.Fixed3D
            toltip.SetToolTip(pic, "إلغاء")
            pic.Visible = False
            pic.Size = New Size(30, 30)
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            '  pic.Image = Image.FromFile("picDel.png")
            AddHandler pic.Click, AddressOf pic_click
            flpAdd.Controls.Add(pic)

            Dim txtAdd As New TextBox
            txtAdd.Name = "txtAdd" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString
            txtAdd.Visible = False
            flpAdd.Controls.Add(txtAdd)
            '''''''''''''

        Next
    End Sub 

وهذا load_cust_sub
لتحميل وعرض معلومات العميل الأساسية (الاسم ، رقم الهوية، الرقم في البرنامج)
سنستخدمه في اللود وفي حدث البحث

PHP كود :
Public Sub load_cust_sub()



        txtcustName.Text = dt_cust_no.Rows(0).Item("Cust_name").ToString
        txtcustId_no.Text = dt_cust_no.Rows(0).Item("Cust_id_no").ToString
        txtcustNo.Text = dt_cust_no.Rows(0).Item("Cust_no").ToString

    End Sub 



هذا كود حدث اللود للفورم

PHP كود :
Private Sub CustomersForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load



     



        'txtcustName.Text = dt_cust_no.Rows(0).Item("Cust_name").ToString
        'txtcustId_no.Text = dt_cust_no.Rows(0).Item("Cust_id_no").ToString
        'txtcustNo.Text = dt_cust_no.Rows(0).Item("Cust_no").ToString

        load_cust_sub()
        load_cust_no(2, 1)

        load_info_sub(txtcustNo.Text)
    End Sub 


وهنا حدث البحث عن عميل

PHP كود :
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        TabPage1.Controls.Clear()



        load_cust_no(txtsrh.Text, 1)
        load_cust_sub()

        load_info_sub(txtcustNo.Text)



    End Sub 


هذي اهم الاحداث في المشروع اتمنى تتطلعون عليها وتفيدوني

RE: توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها - مساعدة - 12-02-17

لقد اسرفتي في انشاء FlowLayoutPanel وهي أداة ثقيلة بسبب أسلوبها، وليست كأداة Label أو TextBox أو غيرها.

كما ذكر الاستاذ محمد كريّم استخدمي UserControl فهي تسهل عليك الكثير،

أنشئي UserControl عن طريق Add New Item ثم عمل Build للمشروع فتجدينها أداة جديدة في أعلى الأدوات،
ثم ضعي فيه الأداة التي تريدنها ورتبيها واكتبي أكواد أحدث ما تحتاجين منها،

وبعد الانتهاء من تنسيقها يمكنك إضافتها للمشروع سواء في التصميم أو عن طريق إنشاء نسخة منها بالكود كما فعلتي مع FlowLayoutPanel،

والباقي يتم المتابعة من الاعضاء فيما يستشكل عليك.

لو ارفقتي المشروع لكان أفضل، وبالنسبة لقاعدة بيانات SqlServer بامكانك عمل سكريبت وارفاقه مع المشروع.


RE: توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها - اليوم مبتدئة وغداً محترفة - 12-02-17

اشكرك اخي الكريم والله اني كل شوي ادخل اشيك هل احد رد ولا لا


اولا / أتوقع ان اداة user control هي الحل لمشاكلي كلها بس المشكلة اني ماني فاهمة وش هي، بعد البحث في النت اللي وصلت له انها زي الفورم اصممها وأستخدمها في فورم اخر هل فهمي لفكرتها صحيح؟؟
وهل يمكنني عن طريقها تصميم صفحة شبيهة للصفحة اللي في المشاركة الاولى في هذا الموضوع؟؟

(12-02-17, 07:56 AM)مساعدة كتب : أنشئي UserControl عن طريق Add New Item ثم عمل Build للمشروع فتجدينها أداة جديدة في أعلى الأدوات،
ثم ضعي فيه الأداة التي تريدنها ورتبيها واكتبي أكواد أحدث ما تحتاجين منها،

وبعد الانتهاء من تنسيقها يمكنك إضافتها للمشروع سواء في التصميم أو عن طريق إنشاء نسخة منها بالكود كما فعلتي مع FlowLayoutPanel،


هل تقصد اني انشئ مشروع جديد اصمم فيه user control ثم اعمله بيلد وبعدين استخدمها في مشروعي؟؟

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

RE: توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها - مساعدة - 12-02-17

تستطيعي اعتبار UserControl هي بمفهوم SubForm وليس فورم، ولكن في النهاية تعتبر أداة من الأدوات،

ليس شرطا عمل مشروع جديد الا إذا أردت دراستها منفردة.

الاستاذ khodor1985 إن نسخ ملف قاعدة البيانات يصطدم أحيانا بعقبة
أن يكون الملف تم عمله على SqlServer ذو إصدار حديث،
وعند محاولة عمل Attach في جهاز آخر ليس فيه نفس إصدار SqlServer أو أعلى فلن يقبله،

لهذا عمل Generate Scripts وتنفيذها في الجهاز الأخر يسهل المهمة ويتجاوز تلك العقبة،
بشرط عدم استخدام اوامر Sql تعمل على اصدارات احدث من SqlServer الآخر.

RE: توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها - اليوم مبتدئة وغداً محترفة - 13-02-17

عملت user control وعدلت على المشروع 

تم ارفاق المشروع وقاعدة البيانات وان شاء الله تشتغل معكم تمام

بانتظار ردودكم 

ومشكورين على تفاعلكم معي