管理メニュー

「ASP.NET/asp007」の編集履歴（バックアップ）一覧に戻る

ASP.NET/asp007 - (2009/09/15 (火) 16:53:31) の編集履歴(バックアップ)

画像を縮小表示する（ASP.NET）

テーブルのレイアウト

フィールド名 データ型
id int ID（主キー 連番）
subject varchar(300) 件名
title varchar(100) ファイル名
type varchar(50) MIMEタイプ
idata varbinary(MAX) バイナリ・データ
last_modified datetime 最終更新日

Thumbnail2.aspx

  1. <html xmlns="http://www.w3.org/1999/xhtml" >
  2. <head runat="server">
  3.     <title>画像を縮小して表示（ASP.NET）</title>
  4. </head>
  5. <body>
  6.     <form id="form1" runat="server">
  7.     <h3>
  8.       画像を縮小して表示 ASP.NET版</h3>
  9.         <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/Default.aspx">戻る</asp:HyperLink>
  10.       <p>
  11.         100px×100pxに収まるように比率を維持して縮小<br />
  12.         透過GIFは透過でなくなってしまう。Bitmapに変換してから縮小しているから？</p>
  13.       <asp:DataList ID="DataList1" runat="server" DataKeyField="id" DataSourceID="SqlDataSource1">
  14.         <ItemTemplate>
  15.           <strong>
  16.           id:</strong>
  17.           <asp:Label ID="lblId" runat="server" Text='<%# Eval("id") %>'></asp:Label>
  18.           <strong>
  19.           subject:</strong>
  20.           <asp:Label ID="lblSubject" runat="server" Text='<%# Eval("subject") %>'></asp:Label><br />
  21.           <asp:Image ID="imgIdata" runat="server" CssClass="thumb" /><br />
  22.           <hr />
  23.         </ItemTemplate>
  24.       </asp:DataList>
  25.       <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:NetWorks01ConnectionString %>"
  26.         SelectCommand="SELECT [id], [subject] FROM [d_Image]">
  27.       </asp:SqlDataSource>
  28.     </form>
  29. </body>
  30. </html>

Thumbnail2.aspx.vb

  1. Partial Class ImageThumbnail_Thumbnail2
  2.     Inherits System.Web.UI.Page
  3.  
  4.   Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
  5.  
  6.     If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
  7.       Dim id As Label = CType(e.Item.FindControl("lblId"), Label)
  8.       Dim image As Image = CType(e.Item.FindControl("imgIdata"), Image)
  9.  
  10.       image.ImageUrl = "Image2.aspx?id=" & id.Text
  11.     End If
  12.  
  13.   End Sub
  14. End Class

Image2.aspx

※ 
  1. <html xmlns="http://www.w3.org/1999/xhtml" >
  2. <head runat="server">
  3.     <title>画像</title>
  4. </head>
  5. <body>
  6.     <form id="form1" runat="server">
  7.     <div>
  8.  
  9.     </div>
  10.     </form>
  11. </body>
  12. </html>

Thumbnail2.aspx.vb

  1. Partial Class ImageThumbnail_Thumbnail2
  2.     Inherits System.Web.UI.Page
  3.  
  4.   Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
  5.  
  6.     If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
  7.       Dim id As Label = CType(e.Item.FindControl("lblId"), Label)
  8.       Dim image As Image = CType(e.Item.FindControl("imgIdata"), Image)
  9.  
  10.       image.ImageUrl = "Image2.aspx?id=" & id.Text
  11.     End If
  12.  
  13.   End Sub
  14. End Class

参考にさせていただいたページ


最近更新されたページ
もっと見る
目安箱バナー