Morpheusweb.it - Risorse per webmaster: script, ASP.NET, C#, Visual Basic .Net, tutorial, asp, javascript, css, php, html, java, ADO, VBScript, forms, frames, Active Server Pages, Dynamic HTML, database, gratis per webmaster e webdesigner

Tumbnails - << VERSIONE VB.NET >>

Creare dei Tumbnails (cliccabili per l'ingrandimento)

<%@ Import Namespace="System.IO" %>
<HTML>
<script language="javascript">
function cambiaImg(img)
{
  document.getElementById("Image1").src = img
}
</script>
<script language="c#" runat="server">
private void Page_Load(object sender, System.EventArgs e)
{
  const string IMAGE_DIRECTORY = "images/";
  ArrayList pics = new ArrayList();
  string html;
  foreach (string s in Directory.GetFiles(Server.MapPath(IMAGE_DIRECTORY), "."))
  {
    html =
      "<img onclick=\"cambiaImg('" +
      IMAGE_DIRECTORY +
      Path.GetFileName(s) +
      "')\" width='100' src='" +
      IMAGE_DIRECTORY +
      Path.GetFileName(s) + "'>";
      pics.Add(html);
  }
  dlPictures.DataSource = pics;
  dlPictures.DataBind();
}
</script>
<body>
<TABLE id="Table1" height="132" cellSpacing="1" cellPadding="1" width="796" border="1">
<TR>
<TD width="130" vAlign="top">
<asp:DataList runat="server" id="dlPictures" RepeatColumns="1" ItemStyle-HorizontalAlign="Center">
<ItemStyle HorizontalAlign="Center"></ItemStyle>
<ItemTemplate>
<%# Container.DataItem %>
</ItemTemplate>
</asp:DataList></TD>
<TD vAlign="top">
<IMG id="Image1" src="trasparente.gif"></TD>
</TR>
</TABLE>
</body>
</HTML>

Scarica il Codice...

Stampa la pagina

Inizio pagina