Torna al Thread

Dim iFileCnt As Integer = 0 Dim dirInfo As New System.IO.DirectoryInfo(Server.MapPath("~/Images/")) Dim listfiles As FileInfo() = dirInfo.GetFiles("*.*") If listfiles.Length > 0 Then For Each file As FileInfo In listfiles ' CHECK THE TYPE OF FILE. If Trim(listfiles(iFileCnt).Extension) = ".jpg" Or _ Trim(listfiles(iFileCnt).Extension) = ".jpeg" Or _ Trim(listfiles(iFileCnt).Extension) = ".png" Or _ Trim(listfiles(iFileCnt).Extension) = ".bmp" Or _ Trim(listfiles(iFileCnt).Extension) = ".gif" Then Dim img As New Image Dim newDiv As New HtmlGenericControl("div") ' ADD IMAGE. img.ImageUrl = "~/Images/" & listfiles(iFileCnt).Name img.Width = "70" img.Height = "70" newDiv.Attributes.Add("style", "float:left;padding:30px 30px;margin:20px 3px;height:auto;overflow:hidden;") newDiv.Controls.Add(img) ' ADD A TEXT. LinkButton1.Controls.Add(newDiv) img.Attributes.Add("onmouseover", "javascript:this.style.borderStyle='solid';this.style.borderWidth='1px';") img.Attributes.Add("onmouseout", "javascript:this.style.borderStyle='none';this.style.borderWidth='none';") End If iFileCnt = iFileCnt + 1 Next End If
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5