paging برای کنترول ها(مانند textbox یا picturebox)

[mohsencom]

با سلام خدمت همه

من طی نوشتن یه پروژه به مشکلی بر خوردم....اینکه چطور میتونم داده هامو صفحه بندی کنم و در تعداد مشخصی textbox یا picturebox وارد کنم

برای شروع و حل بهتر مسئله من یه نمونه سورس به صورت آموزشی گذاشتم...که داده هارو در دیتاگیریدویو 5تا 5تا نشون میدم...یعنی در حقیقت pagingش کردم......حالا میخوام بدونم همین داده هارو چطوری وارد تعداد مشخصی textbox یا اگه عکسی در کار بود وارد picturebox کنم.......

حالا اگه واسه textbox حل بشه واسم کفایت میکنه...picturebox رو خودم یجوری حلش میکنم

اینم سورس آموزشی این مسئله :

[omid-vbAuto]

بانک رو فراموش کردی که.

[mohsencom]

دوست عزیز بانک سیستمی هست...تو سورس رو نگاه کن...اسمش Pub هست...موقع نصب SQL خودش چندین بانک سیستمی داره که من ازیکیشون استفاده کردم

[barbodsoft.com]

کدی که تو فرم 1 نوشتی رو کامل حذف و کد زیر رو به جاش بزار من نام دستابیس و جدول رو تغییر دادم اونا رو خودت می تونی اصلاح کنی.





Imports System.Data.SqlClient
Public Class Form1
Dim pagingAdapter As SqlDataAdapter
Dim pagingDS As DataSet
Dim scrollVal As Integer

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim connectionString As String = "Data Source=.;Integrated Security=TRUE;database=anbar"
Dim sql As String = "SELECT id_factor FROM M_anbar"
Dim connection As New SqlConnection(connectionString)
pagingAdapter = New SqlDataAdapter(sql, connection)
pagingDS = New DataSet()
connection.Open()
pagingAdapter.Fill(pagingDS, scrollVal, 5, "M_anbar_table")
'connection.Close()
DataGridView1.DataSource = pagingDS
DataGridView1.DataMember = "M_anbar_table"
Dim dr As SqlDataReader = pagingAdapter.SelectCommand.ExecuteReader(CommandB ehavior.SequentialAccess)
Dim i As Integer = 0
While dr.Read
i += 1
Select Case i
Case scrollVal + 1
TextBox1.Text = dr("id_factor")
Case scrollVal + 2
TextBox2.Text = dr("id_factor")
Case scrollVal + 3
TextBox3.Text = dr("id_factor")
Case scrollVal + 4
TextBox4.Text = dr("id_factor")
Case scrollVal + 5
TextBox5.Text = dr("id_factor")
End Select
If i > scrollVal + 5 Then Exit While
End While
dr.Close()
dr.Close()
End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
scrollVal = scrollVal - 5
If scrollVal <= 0 Then
scrollVal = 0
End If
pagingDS.Clear()
pagingAdapter.Fill(pagingDS, scrollVal, 5, "M_anbar_table")
Dim dr As SqlDataReader = pagingAdapter.SelectCommand.ExecuteReader(CommandB ehavior.SequentialAccess)

Dim i As Integer = 0
While dr.Read
i += 1
Select Case i
Case scrollVal + 1
TextBox1.Text = dr("id_factor")
Case scrollVal + 2
TextBox2.Text = dr("id_factor")
Case scrollVal + 3
TextBox3.Text = dr("id_factor")
Case scrollVal + 4
TextBox4.Text = dr("id_factor")
Case scrollVal + 5
TextBox5.Text = dr("id_factor")
End Select
End While
dr.Close()
dr.Close()
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
scrollVal = scrollVal + 5
If scrollVal > 23 Then
scrollVal = 18
End If
pagingDS.Clear()
pagingAdapter.Fill(pagingDS, scrollVal, 5, "M_anbar_table")
Dim dr As SqlDataReader = pagingAdapter.SelectCommand.ExecuteReader(CommandB ehavior.SequentialAccess)
Dim i As Integer = 0
While dr.Read
i += 1
Select Case i
Case scrollVal + 1
TextBox1.Text = dr("id_factor")
Case scrollVal + 2
TextBox2.Text = dr("id_factor")
Case scrollVal + 3
TextBox3.Text = dr("id_factor")
Case scrollVal + 4
TextBox4.Text = dr("id_factor")
Case scrollVal + 5
TextBox5.Text = dr("id_factor")
End Select
End While
dr.Close()
End Sub

End Class