Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/04/2010, 17:36
humb3rt0x
 
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