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
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 في حالة الزيادة او النقصان
(29-11-22, 01:10 PM)عبدالكريم برشدان كتب : اولا اشكر المهندس Taha Okla علي اهتمام بسؤالي وبالمجهودات التي بدلها من اجل مساعدتي وكان الطريقة جميلة ومفيدة
ثانيا اريد فكرة ثانية اضافة الي الفكرة التي طرحها المهندس Taha Okla وهي جعل زيادة السجلات من خلال autoscrllo
اي بمعني :
كل ما حركت autoscrllo الي الاسفل زاد عرض السجلات من قاعدة البيانات علي سبيل المثال + 5 علي كل حركة للسفل
وشكرا
نفس الكود السابق ولكن قم بإلغاء زر التراجع
وقم بتعطيل السطر التالي من زر التالي :
كود :
' Me.FlowLayoutPanel1.Controls.Clear()
وبدلاً من اسم (التالي أو شكل الزر) قم بتغييره للشكل الذي تريد والمكان الذي تراه مناسباً ..
وبهذه سيقوم بإضافة 100 عنصر مع كل ضغطة - أو العدد الذي تريده ..
(29-11-22, 01:10 PM)عبدالكريم برشدان كتب : اولا اشكر المهندس Taha Okla علي اهتمام بسؤالي وبالمجهودات التي بدلها من اجل مساعدتي وكان الطريقة جميلة ومفيدة
ثانيا اريد فكرة ثانية اضافة الي الفكرة التي طرحها المهندس Taha Okla وهي جعل زيادة السجلات من خلال autoscrllo
اي بمعني :
كل ما حركت autoscrllo الي الاسفل زاد عرض السجلات من قاعدة البيانات علي سبيل المثال + 5 علي كل حركة للسفل
وشكرا
نفس الكود السابق ولكن قم بإلغاء زر التراجع
وقم بتعطيل السطر التالي من زر التالي :
كود :
' Me.FlowLayoutPanel1.Controls.Clear()
وبدلاً من اسم (التالي أو شكل الزر) قم بتغييره للشكل الذي تريد والمكان الذي تراه مناسباً ..
وبهذه سيقوم بإضافة 100 عنصر مع كل ضغطة - أو العدد الذي تريده ..