从目录中删除动态填充的图像NOT GridViewASP.NETVB

如何解决从目录中删除动态填充的图像NOT GridViewASP.NETVB

| 下面的代码显示特定服务器目录中每个图像的缩略图，当我单击该图像时，它会弹出一幅漂亮的全尺寸图片。它运作完美。 但是，我希望能够删除图像。我首先以为我可以在页面底部有一个按钮，每个图像旁边都有一个复选框，根据文件名为它提供一个uniqueID，但是由于它们是动态创建的，所以我不知道如何处理按钮上的Click事件随机命名的Checkbox ID。然后，我尝试在每个项目旁边添加一个按钮，然后尝试使用OnClick和OnServerClick来调用Sub，但这也不起作用。 欢迎任何/所有建议：)

Private Sub ImageList()
        If Directory.Exists(Server.MapPath(\"JobImages\\\" & DBC_JOB_JobID.Text)) Then
            Dim MySB As New StringBuilder
            Dim dirInfo As New DirectoryInfo(Server.MapPath(\"JobImages\\\" & DBC_JOB_JobID.Text))
            MySB.Append(\"<ul class=\"\"clearfix\"\">\")
            MySB.AppendLine()
            For Each File In dirInfo.GetFiles()
                MySB.Append(\"<li><a rel=\"\"jobpic\"\" href=\"\"JobImages\\\" & DBC_JOB_JobID.Text & \"\\\" & File.Name & \"\"\"><img src=\"\"JobImages\\\" & DBC_JOB_JobID.Text & \"\\Thumbs\\\" & File.Name & \"\"\" width=\"\"150\"\" height=\"\"100\"\" /> <span class=\"\"size\"\">\" & File.Name & \" </span></a></li>\")
                MySB.AppendLine()
            Next
            MySB.Append(\"</ul>\")
            MySB.AppendLine()
            lblMyPictures.Text = MySB.ToString
        End If
    End Sub

    

解决方法

        好吧，Kendrick所谈论的（基本上）是使用服务器端控件来跟踪要删除的文件。您现在正在做的就是将标记转储到Label控件中，该控件在回发时不会在服务器端触发事件。但是，您可以使用服务器端控件轻松完成此操作。 基本思想是使用容器控件（例如

Panel

）并将每个子控件添加到其中。然后，将事件与标识该行的数据（例如文件名）挂钩到每一行。 标记：

    <asp:Panel ID=\"pnlList\" runat=\"server\">
    </asp:Panel>

代码隐藏：

Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
    If Directory.Exists(Server.MapPath(\"Files\")) Then
        Dim objDirInfo As New DirectoryInfo(Server.MapPath(\"Files\"))
        For Each objFile As FileInfo In objDirInfo.GetFiles()
            Dim objLabel As New Label
            objLabel.Text = objFile.Name

            Dim objLinkButton As New LinkButton
            objLinkButton.Text = \"Delete\"
            objLinkButton.CommandName = \"Delete\"
            objLinkButton.CommandArgument = objFile.Name
            AddHandler objLinkButton.Command,AddressOf DeleteFile

            Dim objLiteral As New LiteralControl
            objLiteral.Text = \"<br/>\"

            pnlList.Controls.Add(objLabel)
            pnlList.Controls.Add(objLinkButton)
            pnlList.Controls.Add(objLiteral)
        Next
    End If

End Sub

Public Sub DeleteFile(ByVal sender As Object,ByVal e As System.Web.UI.WebControls.CommandEventArgs)
    If e.CommandName = \"Delete\" Then
        Dim strFileName As String = Server.MapPath(\"Files\\\" & e.CommandArgument)
        If File.Exists(strFileName) Then
            Dim objFile As New FileInfo(strFileName)
            objFile.Delete()
        End If
    End If
End Sub

    ,        这将是一个很好的例子，说明使用数据感知可以使您的生活变得更加轻松。 就是说，如果您不想使用服务器端控件，则可以为每个复选框分配一个ID（即DeleteImage_1），然后将ID和关联的图像名称存储在页面的viewstate中。仔细检查已选中的复选框，然后返回查看状态，查看每个ID单击删除按钮时与之对应的名称。