待解决问题

没有使用用户控件的在线相册,请老师指正离问题结束时间还有250天11小时

学员：曾平提问时间：2008-09-13 19:28:55

我花了两个来小时,把程序变成了VB版的,另外去掉了用户控件直接使用文件操作类(返回list),代码如下:
Private oper As ImageFileOperator = New ImageFileOperator()
Private Property imagesInFolder() As List(Of String)
Get
If ViewState("imagesInFolder") Is DBNull.Value Then
Return ViewState("imagesInFolder") = Nothing
Else
Return CType(ViewState("imagesInFolder"), List(Of String))
End If
End Get
Set(ByVal value As List(Of String))
ViewState("imagesInFolder") = value
End Set
End Property

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim pathstr As String = Server.MapPath("./images/")
imagesInFolder = oper.GetAllImageFiles(pathstr)
End If
For Each img As String In imagesInFolder
Dim btn As LinkButton = New LinkButton()
btn.Text = img + " "
btn.CommandName = "ImageLnkClick"
btn.CommandArgument = img
Dim btnClick As New EventHandler(AddressOf Me.btnOnClick)
AddHandler btn.Click, btnClick
'//将新创建的控件追加到用户控件中
Me.PlaceHolder1.Controls.Add(btn)
Next
End Sub
Private Sub btnOnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Label1.Text = "你选择的是：" & CType(sender, LinkButton).Text
Me.Image1.ImageUrl = "~/images/" & CType(sender, LinkButton).Text
End Sub
屏幕刷新好慢