منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - يوجد لدي بطئ في تحميل الصور داخل FlowLayoutPanel1 يوجد لدي اكثر من 100 صنف

PHP كود :

Private Sub LoadData()
        FlowLayoutPanel1.Controls.Clear()
        If _action = "StartUp" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where ProductNameA like '%" & TextSerch.Text & "%' ", conn)
        If _action = "Search1" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where id_Proudect_items =" & _query1 & "", conn)
        conn.Open()
        rdr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        While rdr.Read
            Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
            Dim array(CInt(len)) As Byte
            rdr.GetBytes(0, 0, array, 0, CInt(len))
            pic = New PictureBox
            pic.Width = 150
            pic.Height = 150
            pic.BackgroundImageLayout = ImageLayout.Stretch
            pic.Tag = rdr.Item("ID").ToString
            AddHandler pic.Click, AddressOf lblD_Click
            '-----------------------------------------------------
            lblD1 = New Label
            lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
            lblD1.ForeColor = Color.FromArgb(72, 4, 156)
            lblD1.BackColor = Color.GhostWhite
            lblD1.Dock = DockStyle.Top
            lblD1.Tag = rdr.Item("ID").ToString
            lblD1.Text = rdr.Item("ID").ToString
            '-----------------------------------------------------
            lblD = New Label
            lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
            lblD.ForeColor = Color.FromArgb(72, 4, 156)
            lblD.BackColor = Color.GhostWhite
            lblD.Dock = DockStyle.Bottom
            lblD.Tag = rdr.Item("ID").ToString
            lblD.Text = rdr.Item("ProductNameE").ToString & "-" & rdr.Item("ProductNameA").ToString
            AddHandler lblD.Click, AddressOf lblD_Click
            '-----------------------------------------------------
            Dim ms As New System.IO.MemoryStream(array)
            Dim bitmap As New System.Drawing.Bitmap(ms)
            pic.BackgroundImage = bitmap
            '-----------------------------------------------------
            pic.Controls.Add(lblD)
            pic.Controls.Add(lblD1)
            FlowLayoutPanel1.Controls.Add(pic)
            '--------------------------------------------------------------------------------------------------------------
        End While
        rdr.Close()
        conn.Close()
        FlowLayoutPanel1.AutoScroll = True 

يبدو أن البطء في تحميل الصور داخل FlowLayoutPanel1 يمكن أن يكون ناتجًا عن عدة عوامل. إليك بعض النصائح التي قد تساعد في تحسين الأداء:

استخدام تحميل الصور بشكل متزامن: يمكنك استخدام تحميل الصور بشكل متزامن لتحسين الأداء. بدلاً من تحميل الصور بشكل متسلسل في حلقة الـ While، يمكنك استخدام تحميل الصور بشكل متزامن لتحميل الصور بشكل فعال دون تعطيل واجهة المستخدم. يمكنك استخدام خيوط أو العمل بشكل متزامن باستخدام Task في Visual Basic.

تقليل عدد الصور المحملة في كل مرة: إذا كانت لديك أكثر من 100 صنف، فإن تحميل الصور الكاملة لكل صنف في كل مرة قد يؤدي إلى تحميل كمية كبيرة من البيانات في وقت واحد، مما يؤدي إلى بطء في الأداء. يمكنك محاولة تقليل عدد الصور المحملة في كل مرة، مثلاً بتحميل صور لمجموعة محددة من الصنف في كل دورة.

تحسين حجم الصور: قد يكون حجم الصور الذي تقوم بتحميله كبيرًا جدًا، مما يؤدي إلى بطء في تحميلها وعرضها. يمكنك تحسين حجم الصور المحملة لتقليل الحمل على النظام وتسريع عرضها.

استخدام تقنيات التخزين المؤقت (Caching): يمكنك تخزين الصور المحملة بالفعل في ذاكرة مؤقتة (Cache) لتجنب إعادة تحميلها في كل مرة تقوم فيها بعرض البيانات.

تقليل البيانات المحملة: إذا كانت البيانات التي تحملها تحتوي على معلومات زائدة غير ضرورية للعرض الفوري، يمكنك تقليل عدد البيانات المحملة من قاعدة البيانات لتحسين الأداء.

استخدام أدوات تحسين الأداء: يمكنك استخدام أدوات مثل مُحلل الأداء لفهم ما يسبب البطء في التطبيق الخاص بك وتحسينه وفقًا لذلك.

جرب تطبيق بعض هذه النصائح وراقب أي تحسن في أداء تحميل الصور داخل FlowLayoutPanel1.

جرب هذا التعديل :

PHP كود :

Private Sub LoadData()
    FlowLayoutPanel1.Controls.Clear()
    Try
        conn.Open()
        Dim query As String = ""

        If _action = "StartUp" Then
            query = "SELECT pic, ID, ProductNameA, ProductNameE FROM Proudect WHERE ProductNameA LIKE '%" & TextSerch.Text & "%'"
        ElseIf _action = "Search1" Then
            query = "SELECT pic, ID, ProductNameA, ProductNameE FROM Proudect WHERE id_Proudect_items = " & _query1
        End If

        Dim cmd As New OleDbCommand(query, conn)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader()

        While rdr.Read
            Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
            Dim array(CInt(len)) As Byte
            rdr.GetBytes(0, 0, array, 0, CInt(len))

            Dim ms As New System.IO.MemoryStream(array)
            Dim bitmap As New System.Drawing.Bitmap(ms)

            Dim pic As New PictureBox
            pic.Width = 150
            pic.Height = 150
            pic.BackgroundImageLayout = ImageLayout.Stretch
            pic.BackgroundImage = bitmap
            pic.Tag = rdr("ID").ToString()

            Dim lblD1 As New Label
            lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
            lblD1.ForeColor = Color.FromArgb(72, 4, 156)
            lblD1.BackColor = Color.GhostWhite
            lblD1.Dock = DockStyle.Top
            lblD1.Tag = rdr("ID").ToString()
            lblD1.Text = rdr("ID").ToString()

            Dim lblD As New Label
            lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
            lblD.ForeColor = Color.FromArgb(72, 4, 156)
            lblD.BackColor = Color.GhostWhite
            lblD.Dock = DockStyle.Bottom
            lblD.Tag = rdr("ID").ToString()
            lblD.Text = rdr("ProductNameE").ToString() & "-" & rdr("ProductNameA").ToString()

            pic.Controls.Add(lblD)
            pic.Controls.Add(lblD1)
            AddHandler pic.Click, AddressOf lblD_Click

            FlowLayoutPanel1.Controls.Add(pic)
        End While

        rdr.Close()
    Catch ex As Exception
        ' يمكنك إدراج رمز يعالج الخطأ هنا
    Finally
        conn.Close()
    End Try

    FlowLayoutPanel1.AutoScroll = True
End Sub 

هذا التعديل يشمل:

إضافة جملة Try-Catch-Finally لمعالجة الأخطاء وضمان إغلاق الاتصال بقاعدة البيانات بغض النظر عن حدوث الأخطاء.
استخدام استعلام متغير بدلاً من تكرار الكود لإنشاء الاستعلام.
تحسين ترتيب الشيفرة لتكون أكثر وضوحًا وسهولة في القراءة.
إصلاح الأخطاء النحوية البسيطة مثل تغيير "Proudect" إلى "Product" إذا كانت هذه هي الجدول المناسب.

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

mohamedgadain61

غزة العزة