06-10-13, 08:54 PM
(آخر تعديل لهذه المشاركة : 07-10-13, 12:27 PM {2} بواسطة محمد الحاج خلف.)
السلام عليكم شباب
اليوم سوف اشرح كفية التعامل مع الاداه Datalis
الاول جلب الاداه و وضع فى الصفحة
[
و بعد ذلك اضبط الخصائص
و بعد ذبك نقوم بوضع ازرا التالى و السابق و الاول و الاخير
و بعدذ لك نقوك بالضغط عالاداه Datalis وسوف يظهر سهم نضغط عالاسهم
و بعد ذلك نقوم بوضع الاداه Image من صندوق الادوات و نعيد الضغغط عالاداه مره اخرى و اغلقها مره اخرى
و كده هيظهر قدم شكل الاداه Image 4 مره فى الصف
و بعد ذلك بندا فى كتاب الكود نقوم بعمل تصرح عام عن المتغيرات التالى
كود :
Dim dadapter As SqlDataAdapter
Dim dset As DataSet
Dim adsource As PagedDataSource
Dim pos As Integer
كود :
Public Sub databinds()
Dim strConnString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim con As New SqlConnection(strConnString)
If ConnectionState.Open Then con.Close()
con.Open()
dadapter = New SqlDataAdapter("select DISTINCT img from img", con)
dset = New DataSet()
adsource = New PagedDataSource()
dadapter.Fill(dset)
adsource.DataSource = dset.Tables(0).DefaultView
adsource.PageSize = 18
adsource.AllowPaging = True
adsource.CurrentPageIndex = pos
Button4.Enabled = Not adsource.IsFirstPage
Button3.Enabled = Not adsource.IsFirstPage
Button1.Enabled = Not adsource.IsLastPage
Button2.Enabled = Not adsource.IsLastPage
DataList1.DataSource = adsource
DataList1.DataBind()
If Button1.Enabled = False And Button2.Enabled = False And Button3.Enabled = False And Button4.Enabled = False Then
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
If ConnectionState.Open Then con.Close()
Exit Sub
Else
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
If ConnectionState.Open Then con.Close()
End If
كود :
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
pos = 0
databinds()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
pos = CInt(Me.ViewState("vs"))
pos -= 1
Me.ViewState("vs") = pos
databinds()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
pos = CInt(Me.ViewState("vs"))
pos += 1
Me.ViewState("vs") = pos
databinds()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
pos = adsource.PageCount - 1
databinds()
End Sub
كود :
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Me.ViewState("vs") = 0
End If
pos = CInt(Me.ViewState("vs"))
databinds()
End Sub
اعذرونى شباب عالشرح السريع هذا
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ