الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إستخدام الdatalist لعرض صور من مجلد

بدأه allformona في 12 سبتمبر 2009 · 1 رد · 572 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

مشاركتي اليوم ستكون عن كيفية إستخدام الـ datalist contorl لعرض صور محفوظة في مجلد (images)

الكود التالي يبين صفحة aspx

default.aspx

  1.  
  2. <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
  3.  
  4. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  5.  
  7. <head runat="server">
  8.     <title>Image List</title>
  9. </head>
  10. <body>
  11.     <form id="form1" runat="server">
  12.     <div>
  13.  
  14.         <asp:CheckBox ID="ChkDeleteAll" runat="server" Text="Delete All Images" /><br />
  15.         <asp:Button ID="DeleteAll" runat="server" Text="Delete" />
  16.         <asp:DataList ID="DataList1" runat="server" RepeatColumns="3" 
  17.             RepeatDirection="Horizontal">
  18.             <HeaderTemplate>
  19.             </HeaderTemplate>
  20.             <ItemTemplate >
  21.                <h3><asp:Label runat="server" ID="FileNameLabel" Text='<%# System.IO.Path.GetFilename(Eval("Name")) %>'></asp:Label></h3>
  22.  
  23.                 <asp:Image ID="Image1" runat="server" ImageUrl='<%# Bind("Name", "~/images/{0}") %>'/>
  24.                 <asp:CheckBox ID="RowLevelCheckBox" runat="server" AutoPostBack ="false"  />
  25.  
  26.             </ItemTemplate>
  27.         </asp:DataList>
  28.  
  29.  
  30.     </div>
  31.     <asp:Label ID="Summary" runat="server" Text="Label"></asp:Label>
  32.     </form>
  33. </body>
  34. </html>
  35.  
الأكواد المستخدمة لعرض الصور و لحذف الصور
صفحة الكود CodeBehind Page
default.aspx.vb
  1.  
  2. Imports System
  3. Imports System.IO
  4. Partial Class _Default
  5.     Inherits System.Web.UI.Page
  6.  
  7.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Loa
    d
  8.         If Not Page.IsPostBack Then
  9.  
  10.  
  11.             loadimage()
  12.         End If
  13.     End Sub
  14.     Sub loadimage()
  15.         Dim sdir As New DirectoryInfo(MapPath("~/images"))
  16.         Dim file As FileInfo() = sdir.GetFiles()
  17.         Dim list As New ArrayList()
  18.         For Each file2 As FileInfo In file
  19.             If file2.Extension = ".jpg" OrElse file2.Extension = ".gif" OrElse file2.Extension 
    = ".bmp" Then
  20.                 list.Add(file2)
  21.             End If
  23.         DataList1.DataSource = list
  24.         DataList1.DataBind()
  25.     End Sub
  26.  
  27.     Protected Sub DeleteAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 
    DeleteAll.Click
  28.         If ChkDeleteAll.Checked = True Then
  29.             'Enumerate the DatalistRows
  30.             For index As Integer = 0 To DataList1.Items.Count - 1
  31.                 'Programmatically access the CheckBox 
  32.                 Dim ll As Label = CType(DataList1.Items(index).FindControl("FileNameLabel"), La
    bel)
  33.                 Dim cb As CheckBox = CType(DataList1.Items(index).FindControl("RowLevelCheckBox
    "), CheckBox)
  34.  
  35.                 'delete all files...
  36.  
  37.                 File.Delete(Server.MapPath("~/images") + "/" + ll.Text)
  38.  
  39.  
  40.             Next
  41.  
  42.             loadimage()
  43.         Else
  44.             'Enumerate the DatalistRows
  45.             For index As Integer = 0 To DataList1.Items.Count - 1
  46.                 'Programmatically access the CheckBox 
  47.                 Dim ll As Label = CType(DataList1.Items(index).FindControl("FileNameLabel"), La
    bel)
  48.                 Dim cb As CheckBox = CType(DataList1.Items(index).FindControl("RowLevelCheckBox
    "), CheckBox)
  49.  
  50.                 'If it's checked, delete it...
  51.                 If cb.Checked Then
  52.                     File.Delete(Server.MapPath("~/images") + "/" + ll.Text)
  53.                 End If
  54.  
  55.             Next
  56.  
  57.             loadimage()
  58.         End If
  59.     End Sub
  60. End Class
  61.  

في الأكواد السابقة قمنا بعمل صفحة aspx ووضعنا فيها button وcheckbox و datalist و lable  
الزر يقوم بأستدعاء الكود المخصص لحذف الصور
الcheckbox  يحدد الملفات المراد حذفها
الlabel  يحدد أسم الملف
حاولت قدر الأمكان كتابة الأكود بطريقة سهلة و مفهومة
أتمنى أن أكون وفقت في طرح الموضوع
أتمنى منكم الدعاء
و شكراً

      
تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 22 أكتوبر 2009 في 14:58

      

      
    

  

    
    

      
#2
        
        

      
ممكن مثال 
حاولت تشغيلها ولم تعمل 
او شرح الكود

      
      

      
    

  

    
    
    
 مواضيع مشابهة