14/04/2010, 17:36
|
| | Fecha de Ingreso: febrero-2010
Mensajes: 24
Antigüedad: 14 años, 10 meses Puntos: 0 | |
Repeater carga imagenes de un directorio Hola Bueno tengo un problema , tengo un repeater que me muestra imagenes de un directorio, ya que le asigno un array, pero este array es de una dimension, ahora mi array es 2 dimesiones, y quiro solo que me muestre la informacion que esta en la primera dimensión: aca Pongo el codigo:
client code: Veran la etiqueta img, tiene como origen un arry de una dimension: <asp:Repeater ID="Rp_Producto" runat="server">
<ItemTemplate>
<p><img src="<%# Container.DataItem %>" /></p>
<p>
<asp:Label ID="Label1" runat="server" Text="<%# Container.DataItem %>"></asp:Label></p>
</div>
</ItemTemplate>
</asp:Repeater>
behind code: Imports System.IO
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim NomCat As String
Dim NomFile As String
Dim j As Integer = 0
NomCat = Request("categoria")
NomCat = Replace(NomCat, "'", "")
If NomCat <> Nothing Then
Dim imagenes(Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/")).Length, 1) As String
Dim sFile As String
For Each sFile In Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/"))
NomFile = Path.GetFileNameWithoutExtension(sFile).ToString ' solo es el nombre
If NomFile <> "Thumbs" Then
sFile = Replace(sFile, "\", "/")
Dim i As Integer = 0
i = InStr(sFile, "images")
Dim QuitarSec As String
QuitarSec = Left(sFile, i - 1)
sFile = Replace(sFile, QuitarSec, "")
imagenes(j, 0) = sFile
imagenes(j, 1) = NomFile
j += 1
End If
Next
Rp_Producto.DataSource = imagenes
Rp_Producto.DataBind()
End If
End Sub |