'Default.aspx (Display Thumbnails)
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="LearningProject_VB._Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title></title>
<script type="text/javascriptD">
function displayFullImage(name)
{
var img = document.getElementById('<%=imgOriginalImage.ClientID %>')
img.style.display="block";
img.style.width="800px"; //change to your image size
img.style.height="600px"; //change to your image size
img.src = "DisplayPhoto.aspx?name=" + name; // Change to Handler.ashx with parameters in your case
}
</script>
</head>
<body>
<form id="form1" runat="server">
<div style="text-align:center;">
<asp:Image ID="imgOriginalImage" runat="server" style="display:none;"/>
<br />
<asp:DataList ID="dlThumbnails" runat="server" DataKeyField="Name" DataMember="Name"
RepeatColumns="3" Width="100%">
<ItemTemplate>
<asp:Image ID="imgThumbnail" runat="server" />
</ItemTemplate>
</asp:DataList>
</div>
</form>
</body>
</html>
'Default.aspx.vb
Imports System.IO
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.LoadThumbnails()
End Sub
Protected Sub LoadThumbnails()
Dim imgDir As DirectoryInfo = New DirectoryInfo(Server.MapPath("~/Photos/Thumbnails"))
Me.dlThumbnails.DataSource = imgDir.GetFiles()
Me.dlThumbnails.DataBind()
End Sub
Private Sub dlThumbnails_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles dlThumbnails.ItemDataBound
If (e.Item.ItemType = ListItemType.AlternatingItem _
Or e.Item.ItemType = ListItemType.Item) Then
Dim fileName As String = Me.dlThumbnails.DataKeys(e.Item.ItemIndex).ToString()
Dim img As System.Web.UI.WebControls.Image = _
CType(e.Item.FindControl("imgThumbnail"), System.Web.UI.WebControls.Image)
img.ImageUrl = "~/Photos/Thumbnails/" & fileName
img.Attributes.Add("onclick", "displayFullImage('" & fileName & "')")
End If
End Sub
End Class
|