[عبدالكريم برشدان]

(20-11-22, 08:34 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

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

قم بإضافة أزرار لنافذة العرض عدد اثنين (Button2) + (Button3).

ثم قم بمسح الكود السابق وأنسخ الكود التالي في كود نافذة العرض:

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB_FLP.mdb;Jet OLEDB:Database Password=")

   Dim dp As New OleDbDataAdapter("Select * From Tbl", con)
   Dim ds As New DataSet

   Dim dt As DataTable

   Dim num2 As Integer
   Dim i As Integer = 0
   Dim j As Integer = 100

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Try
           dp.Fill(ds)
           dt = ds.Tables.Item(0)
           num2 = (dt.Rows.Count - 1)
           Me.FlowLayoutPanel1.Controls.Clear()

           Do While (i <= num2)

               Dim uc As New UserControl1
               uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString
               Me.FlowLayoutPanel1.Controls.Add(uc)
               i += 1
               If i = j Then Exit Do
           Loop
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try
       Button2.Enabled = True
       Button3.Enabled = True
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       j = j + 100

       Try

           Me.FlowLayoutPanel1.Controls.Clear()

           Do While (i <= num2)

               Dim uc As New UserControl1
               uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString
               Me.FlowLayoutPanel1.Controls.Add(uc)

               i += 1
               If i = j Then Exit Do
           Loop
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       j = j - 100 : If j < 0 Then j = 100
       i = i - 200 : If i < 0 Then i = 0


       Try

           Me.FlowLayoutPanel1.Controls.Clear()

           Do While (i <= num2)
               If i >= j Then Exit Do
               Dim uc As New UserControl1
               uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString
               Me.FlowLayoutPanel1.Controls.Add(uc)

               i += 1

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

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Button2.Text = "التالي"
       Button2.Enabled = False
       Button3.Text = "السابق"
       Button3.Enabled = False
   End Sub

End Class

شكرا علي الاهتمام بسؤالي لقد قمت بتنفيذ الكود

---

هل يمكن تغيير ازرار التالي والسابق بشريط autoscrllo في حالة الزيادة او النقصان