تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع)
#11
المشروع فيه صور من الجهاز كيف اسوي عشان اقدر انزل المشروع هنا وتشتغل الصور مع المشروع؟؟ >>> حذفت الصور وخليتها بدون صور عشان يشتغل المشروع عندكم
بس باقي ان المشروع مربوط بقاعدة بيانات SQL Server كيف اسوي عشان انزل المشروع هنا ؟؟
لاني اتوقع اذا نزلت المشروع بدون قاعدة البيانات ما راح يشتغل

كيف اسوي؟؟
الرد }}}
تم الشكر بواسطة:
#12
هذي الاشياء اللي تم تعريفها في الببليك

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(oThen
            TabPage1
.Controls.Add(flphbr)


 
           load_info_type()


 
           load_info(o)
 
       ElseIf String.IsNullOrWhiteSpace(oThen

            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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles PictureBox7.Click
        TabPage1
.Controls.Clear()



 
       load_cust_no(txtsrh.Text1)
 
       load_cust_sub()

 
       load_info_sub(txtcustNo.Text)



 
   End Sub 


هذي اهم الاحداث في المشروع اتمنى تتطلعون عليها وتفيدوني
الرد }}}
تم الشكر بواسطة:
#13
لقد اسرفتي في انشاء FlowLayoutPanel وهي أداة ثقيلة بسبب أسلوبها، وليست كأداة Label أو TextBox أو غيرها.

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

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

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

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

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


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

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

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


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

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

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


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

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

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

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

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


الملفات المرفقة
.rar   Realty.rar (الحجم : 955.04 ك ب / التحميلات : 94)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,118 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 351 13-01-24, 04:22 AM
آخر رد: dr.programming
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 457 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  تحزيم المشروع Lamyaa 1 312 17-11-23, 07:44 AM
آخر رد: أبو خالد الشكري
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم