在我们的日常生活中数码照像设备已经很普遍了我们会经常拍摄一些相片以供留念而随着数码照片的增多往往需要很好地管理这些照片以便更好地查阅留念现在网上有不少的电子相册都能很好的实现这些功能那我们能否自己动手创建自己的相册呢？当然可以在这篇文章中我们将利用来创建一个简单的在线相册以收藏我们的照片
首先来看下这个相册有哪些功能在这个相册中我们必须先把预先摄影好的照片放到一个目录下去之后可以供在网上使用上一张下一张的链接一张张地查看
下面先介绍如何获得文件夹中的图片我们可以使用SystemIO命名空间中的DirectoryInfo类来实现将文件夹所在的路径做为参数传递到该类的构造函数中并声明一个DirectoryInfo类的实例DirectoryInfo类中有一个GetFiles()的方法会返回FileInfo的对象数组而每一个FileInfo的实例将包含指定路径下文件的具体信息下面的代码片段说明了该过程
Sub Page_Load(sender as Object e as EventArgs)
Get list of images
Dim dirInfo as New DirectoryInfo(ServerMapPath())
Dim images() as FileInfo = FilterForImages(dirInfoGetFiles())
End Sub
其中用Servermappath获得当前目录的路径而dirinfogetfiles()将会返回该目录下的所有文件而由于我们的是相册只需要看到比如JPGBMPGIF等图象文件所以我们可以通过程序实现只装载这些类型的文件这通过一个自定义的过程FilterForImages来实现该过程将只返回指定文件夹中图象类型的文件代码如下
Function FilterForImages(images() as FileInfo) as FileInfo()
Dim newImages as New ArrayList(imagesLength)
Dim i as Integer
For i = to imagesLength
If PathGetExtension(images(i)Name) = jpg OrElse _
PathGetExtension(images(i)Name) = jpeg OrElse _
PathGetExtension(images(i)Name) = png OrElse _
PathGetExtension(images(i)Name) = gif then
newImagesAdd(images(i))
End If
Next
Return CType(newImagesToArray(GetType(FileInfo)) FileInfo())
End Function
该过程对于传递进来的FileInfo参数数组进行遍历
对文件夹中的文件的后缀名进行叛断
如果属于图象文件
则添加到newimages数组中去
并以arraylist形式返回
接下来我们看下如何显示每一张图片并以上一张下一张来显示为了知道当前浏览的是第几张图片可以通过使用传递参数的方法来实现先往窗体中添加一个image控件和文本框程序代码如下
Sub Page_Load(sender as Object e as EventArgs)
Dim imgIndex as Integer =
If Not RequestQueryString(N) is Nothing AndAlso _
IsNumeric(RequestQueryString(N)) then
imgIndex = CInt(RequestQueryString(N))
End If
currentImgTitleText = You are Viewing: & _
PathGetFileNameWithoutExtension(images(imgIndex)Name) & _
( & imgIndex + & of & imagesLength & )
currentImgImageUrl = PathGetFileName(images(imgIndex)Name)
End Sub
HTML部分代码
<asp:Label runat=server id=currentImgTitle /><br />
<asp:Image runat=server id=currentImg />
在上面的代码中使用变量imgindex来表示当前浏览的是第几张图片刚开始时候N=则获得images数组中的第一个变量也即第一张图片之后每次读取该变量值则可以知道当前浏览的是第几张图片
