|
保存美丽记忆 用ASP.NET创建网络相册(2) Path.GetFileNameWithoutExtension(images(imgIndex).Name) & _
" (" & imgIndex + 1 & " of " & images.Length & ")"
currentImg.ImageUrl = Path.GetFileName(images(imgIndex).Name)
...
End Sub
HTML部分代码
<asp:Label runat="server" id="currentImgTitle" /><br />
<asp:Image runat="server" id="currentImg" />
在上面的代码中，使用变量imgindex来表示当前浏览的是第几张图片，刚开始时候N=0，则获得images数组中的第一个变量，也即第一张图片，之后每次读取该变量值，则可以知道当前浏览的是第几张图片。
而为了实现“下一张，上一张”的功能，往窗体增加两个Hyperlink链接控件，并添加以下代码
Sub Page_Load(sender as Object, e as EventArgs)
...
If imgIndex > 0 then
lnkPrev.NavigateUrl = "Default.aspx?N=" & imgIndex - 1
End If
If imgIndex < images.Length - 1 then
lnkNext.NavigateUrl = "Default.aspx?N=" & imgIndex + 1
End If
...
End Sub
HTML 部分代码
<asp:HyperLink runat="server" id="lnkPrev" Text="< Previous" />
<asp:HyperLink runat="server" id="lnkNext" Text="Next >" />
上面代码比较容易理解，当点下一张，上一张的链接时，参数N的值加1，或者减1。
最后，为了实现比较直观的效果，我们放置一个datalist控件，其中显示图象文件夹下的所有文件，每当浏览一张新的图片时，则将当前正在浏览的图片的名称以链接的形式加亮显示，代码如下：
Sub Page_Load(sender as Object, e as EventArgs)
...
dlIndex.DataSource = images
dlIndex.DataBind()
End Sub
Sub dlIndex_ItemDataBound(sender as Object, e as DataListItemEventArgs)
If e.Item.ItemType = ListItemType.Item OrElse _
e.Item.ItemType = ListItemType.AlternatingItem then
'Get the Hyperlink
Dim hl as HyperLink = CType(e.Item.FindControl("lnkPic"), HyperLink)
'Set the Text and Navigation properties
hl.Text = Path.GetFileNameWithoutExtension(_
DataBinder.Eval(e.Item.DataItem, "Name").ToString()) & _
" (" & _
Int(DataBinder.Eval(e.Item.DataItem, "Length") / 1000) & _
" KB)"
hl.NavigateUrl = "Default.aspx?N=" & e.Item.ItemIndex
End If
End Sub
HTML部分代码
<asp:DataList runat="server" id="dlIndex" OnItemDataBound="dlIndex_ItemDataBound"
| 
