منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مقال] كفية التعامل مع Datalist - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم مقالات ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=54)
+---- الموضوع : [مقال] كفية التعامل مع Datalist (/showthread.php?tid=419)



كفية التعامل مع Datalist - alims - 06-10-13


السلام عليكم شباب
اليوم سوف اشرح كفية التعامل مع الاداه 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

اعذرونى شباب عالشرح السريع هذاBig Grin





RE: كفية التعامل مع Datalist - محمد الحاج خلف - 07-10-13

شكرا لك أخي

بالفعل الشرح سريع جدا Big Grin
أتمنى في مقالاتك القادمة أن يكون الشرح مفصل أكثر
شكرا لك على هذا المجهود

تحياتي