System.Web.UI.WebControls.ImageButton

Melecio · #1 (**permalink**) 18/08/2011, 10:48

hola estoy haciendo este codigo

Dim dirInfo As New DirectoryInfo(Server.MapPath(navegar))
Dim listado As System.IO.FileInfo() = dirInfo.GetFiles("*.*")

Dim tabla As New Data.DataTable

tabla.Columns.Add("Descargar")
tabla.Columns.Add("Nombre")
tabla.Columns.Add("Ultima modificacion")
tabla.Columns.Add("PESO")

For i As Integer = 0 To listado.Length - 1

Dim icono As ImageButton = New ImageButton()

icono.ImageUrl = "imagenesoplat/descargar.png"
icono.DescriptionUrl = listado(i).Name
icono.OnClientClick = "javascript:window.open('" & navegar & "/" & listado(i).Name & "');"
icono.ToolTip = listado(i).Name
form1.Controls.Add(icono)

tabla.Rows.Add(icono, listado(i).Name, listado(i).LastWriteTime, listado(i).Length / 1024 & " KB")

Next

GridView1.DataSource = tabla
GridView1.DataBind()

el problema es que en el gridview dondedeveria ir la imagen me sale System.Web.UI.WebControls.ImageButton

pero si le agrego form1.Controls.Add(icono) me sale todo bien pero no me lo coloca en el grid view me lo pone afuera

Melecio · #2 (**permalink**) 18/08/2011, 11:23

me podrian ayudar

Melecio · #3 (**permalink**) 18/08/2011, 11:37

System.Web.UI.WebControls.ImageButton no se porque sale esto enves del componente

Melecio · #4 (**permalink**) 18/08/2011, 12:05

alguien sabe porque me daesto System.Web.UI.WebControls.ImageButton

Melecio · #5 (**permalink**) 18/08/2011, 12:26

For i As Integer = 0 To listado.Length - 1

Dim icono As ImageButton = New ImageButton()

icono.ImageUrl = "imagenesoplat/descargar.png"
icono.DescriptionUrl = listado(i).Name
icono.OnClientClick = "javascript:window.open('" & navegar & "/" & listado(i).Name & "');"
icono.ToolTip = listado(i).Name

Dim aa = Items(i).Cells("Descargar").Controls.Add(icono)

tabla.Rows.Add(aa, listado(i).Name, listado(i).LastWriteTime, listado(i).Length / 1024 & " KB")

Next

GridView1.DataSource = tabla
GridView1.DataBind()

Melecio · #6 (**permalink**) 18/08/2011, 13:03

que tengo que imporar para que esto jale

Melecio · #7 (**permalink**) 18/08/2011, 13:22

alguien me podria ayudar con este codigo porfavor

Melecio · #8 (**permalink**) 18/08/2011, 14:03

vamos el que me de la respuesta de dare karama suficiente

Melecio · #9 (**permalink**) 18/08/2011, 14:38

llevo un rato con esto no se como

Melecio · #10 (**permalink**) 18/08/2011, 15:25

vamos alguien debe de saber esto

jaullo · #11 (**permalink**) 18/08/2011, 16:06

Hola,

Lo primero que te diria es que estas complicandolo mas de lo que deberias al hacerlo por codigo, porque simplemente no agregas el grid y usas templateFields para mostrar los valores, inclusive el boton con la image, es mucho mas sencillo y veras que te ahorras problemas. No estoy seguro si el datatable soporte el control con la image, por ahi podrias usar el Server.MapPath, pero en este momento no lo recuerdo bien.

Pero lo mejor, seria usar templatefields
<asp:TemplateField>
<ItemTemplate>
<asp:Image ID="Image1" runat="server" ImageUrl='<%# Eval("Image") %>' />
</ItemTemplate>
</asp:TemplateField>

Saludos,

Jason Ulloa
Microsoft Community Contributor

Melecio · #12 (**permalink**) 19/08/2011, 06:48

ok pero en el codigo de vb no agregaria lo que ya tengo sino con un escript vb lo hago porque no se como hacerlo ese codigo lo vi varias veces pero no se como aplicarlo a la pagina
gracias por tu comentario

Melecio · #13 (**permalink**) 19/08/2011, 06:50

Cita:

Iniciado por jaullo

Hola,

Lo primero que te diria es que estas complicandolo mas de lo que deberias al hacerlo por codigo, porque simplemente no agregas el grid y usas templateFields para mostrar los valores, inclusive el boton con la image, es mucho mas sencillo y veras que te ahorras problemas. No estoy seguro si el datatable soporte el control con la image, por ahi podrias usar el Server.MapPath, pero en este momento no lo recuerdo bien.

Pero lo mejor, seria usar templatefields
<asp:TemplateField>
<ItemTemplate>
<asp:Image ID="Image1" runat="server" ImageUrl='<%# Eval("Image") %>' />
</ItemTemplate>
</asp:TemplateField>

Saludos,

Jason Ulloa
Microsoft Community Contributor

ok segun este codigo es una imagen pero yo quiero que al darle click me descarge un archivo que logro sacar con el ciclo for

Melecio · #14 (**permalink**) 19/08/2011, 07:37

este codigo puede jalar

Dim imagen As System.Web.UI.WebControls.Image = DirectCast(e.Row.FindControl("imgestado"), System.Web.UI.WebControls.Image)

como podria hacer que jalara esta parte e.Row.FindControl("imgestado")

como podria hacer un areferencia al renglon del datagridview porque esto
jala biene en

Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

If e.Row.RowType = DataControlRowType.DataRow Then
Dim KeyID As String = GridView3.DataKeys(e.Row.RowIndex).Value.ToString( )

Dim imagen As System.Web.UI.WebControls.Image = DirectCast(e.Row.FindControl("imgestado"), System.Web.UI.WebControls.Image)

imagen.ImageUrl = "GreenCircle5.jpg"

End If

End Sub

Melecio · #15 (**permalink**) 19/08/2011, 08:35

este codigo como podria aplicarlo

Dim imagen As System.Web.UI.WebControls.Image = DirectCast(e.Row.FindControl("imgestado"), System.Web.UI.WebControls.Image)

imagen.ImageUrl = "GreenCircle5.jpg"

en donde quiero que vaya en el grid

Melecio · #16 (**permalink**) 19/08/2011, 09:06

Dim dirInfo As New DirectoryInfo(Server.MapPath(navegar))
Dim listado As System.IO.FileInfo() = dirInfo.GetFiles("*.*")

Dim tabla As New Data.DataTable

tabla.Columns.Add("Descargar")
tabla.Columns.Add("Nombre")
tabla.Columns.Add("Ultima modificacion")
tabla.Columns.Add("PESO")

For i As Integer = 0 To listado.Length - 1

Dim icono As ImageButton = New ImageButton()

icono.ImageUrl = "imagenesoplat/descargar.png"
icono.DescriptionUrl = listado(i).Name
icono.OnClientClick = "javascript:window.open('" & navegar & "/" & listado(i).Name & "');"
icono.ToolTip = listado(i).Name
form1.Controls.Add(icono)

tabla.Rows.Add(icono, listado(i).Name, listado(i).LastWriteTime, listado(i).Length / 1024 & " KB")

Next

GridView1.DataSource = tabla
GridView1.DataBind()

Melecio · #17 (**permalink**) 20/08/2011, 14:17

For i As Integer = 0 To listado.Length - 1

Dim icono As ImageButton = New ImageButton()

icono.ImageUrl = "imagenesoplat/descargar.png"
icono.DescriptionUrl = listado(i).Name
icono.OnClientClick = "javascript:window.open('" & navegar & "/" & listado(i).Name & "');"
icono.ToolTip = listado(i).Name
form1.Controls.Add(icono)

tabla.Rows.Add(icono, listado(i).Name, listado(i).LastWriteTime, listado(i).Length / 1024 & " KB")

Next

Melecio · #18 (**permalink**) 22/08/2011, 12:04

que tal raza ya pude conesto no de la forma que queria pero lo solucione

aqui esta

primero el gridview

Código ASP:

Ver original<asp:GridView ID="GridView1" runat="server" CssClass="gridview" 
            onselectedindexchanged="GridView1_SelectedIndexChanged" 
            AutoGenerateColumns="False" 
            DataKeyNames="Nombre" SelectedIndex="0" autogenerateselectbutton="false"  >              
          <Columns>          
              <asp:BoundField DataField="Nombre" HeaderText="Nombre"/>
              <asp:BoundField DataField="PESO" HeaderText="PESO"/>
              <asp:BoundField DataField="Ultima modificacion" HeaderText="Ultima modificacion"/>                                     
              <asp:TemplateField HeaderText="Descargar">
                
                <ItemTemplate>
                    <img alt="" src="imagenesoplat/descargar.png" />   
                </ItemTemplate>          
              </asp:TemplateField>
          </Columns>
 
    
      </asp:GridView>

codigo

Código ASP:

Ver originalImports System.IO
Imports System.Web.UI.WebControls
Imports System.Web.UI
Imports System.Web.UI.WebControls.GridViewRowEventArgs
Imports System.Object
Imports System.Web.UI.Control
Imports System.Web.UI.WebControls.Image
Imports System.Web.UI.WebControls.ImageButton
 
Partial Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Button1 As System.Web.UI.WebControls.ImageButton
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
    End Sub
    Private Sub cargar()
 
        For Each fichero As String In System.IO.Directory.GetDirectories(Server.MapPath("directorio"))
 
            ddl_carpetas.Items.Add(fichero.Substring(fichero.LastIndexOf("\") + 1))
 
 
        Next
    End Sub
 
    Private Sub archivos(ByVal navegar As String)
        Dim dirInfo As New DirectoryInfo(Server.MapPath(navegar))
        Dim listado As System.IO.FileInfo() = dirInfo.GetFiles("*.*")
 
        Dim tabla As New Data.DataTable
 
        tabla.Columns.Add("Nombre")
        tabla.Columns.Add("Ultima modificacion")
        tabla.Columns.Add("PESO")
 
 
        For i As Integer = 0 To listado.Length - 1
 
 
            tabla.Rows.Add(listado(i).Name, listado(i).LastWriteTime, listado(i).Length / 1024 & " KB")
        Next
 
        GridView1.DataSource = tabla
        GridView1.DataBind()
 
    End Sub
 
    Protected Sub carpetas_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ddl_carpetas.SelectedIndexChanged
 
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles boton_abrir.Click
 
 
        Dim dira As String
        dira = ddl_carpetas.SelectedItem.ToString
 
        Call archivos("directorio/" & dira)
 
 
    End Sub
 
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles boton_cargar.Click
 
 
 
        Call cargar()
 
        boton_cargar.Visible = False
        boton_abrir.Visible = True
        lbl_texto.Visible = True
        ddl_carpetas.Visible = True
        boton_recargar.Visible = True
 
    End Sub
 
    Protected Sub boton_recargar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles boton_recargar.Click
        Response.Redirect("")
    End Sub
 
    
 
 
    
    Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
 
            e.Row.Attributes.Add("onmouseover", "this.style.cursor='hand';")
            e.Row.Attributes.Add("onmouseout", "this.style.textDecoration='none';")
            e.Row.Attributes.Add("onclick", ClientScript.GetPostBackClientHyperlink(Me.GridView1, "Select$" + e.Row.RowIndex.ToString()))
 
        End If
    End Sub
 
 
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
 
 
        Dim strRuta As String
 
        strRuta = "directorio/" & ddl_carpetas.SelectedItem.ToString & "/" & GridView1.Rows(GridView1.SelectedIndex).Cells(0).Text
 
        Response.Redirect(strRuta)
 
    End Sub
 
End Class

soludos a todos los que vieron mi problema pero ningumo me respondio

talvez a alguien le sirva

io_web · #19 (**permalink**) 22/08/2011, 12:07

O rayos!!!

apenas te iba a dar la respuesta pero pues ya vi que lo solucionaste.

na ntk bro echale ganaz ke pues io tambien traigo mis dudas. Animo bato.

:o jotes: