ImageButton
Publicado por Cristian (85 intervenciones) el 19/06/2009 01:10:26
Hola a todos otra vez,
Bueno he podido solucionar mi problema en parte. Necesito mostrar imágenes recorriendo una base de datos, leer la ruta y mostrarla, a su vez al hacer un click en cada imagen llamar a una funcion JavaScript para mostrarla en primer plano y hasta aca esta bien, el tema es que una vez que la abre me vuelve a cargar la pagina y no necesito eso, ya intente en el Load con el PostBack pero nada, alguna solucion ¿???
Muchas gracias, y espero alguien me ayude ¡!!!
Dim rowCnt As Integer
Dim rowCtr As Integer
Dim cellCtr As Integer
Dim cellCnt As Integer
rowCnt = 3
cellCnt = 3
For rowCtr = 1 To rowCnt
Dim tRow As New TableRow()
Dim tRow2 As New TableRow()
For cellCtr = 1 To cellCnt
Dim tCell As New TableCell()
Dim tcell2 As New TableCell()
Dim a As New ImageButton
nima = nima + 1
nimactr = nimactr + 1
If nima >= 8 Then
Exit Sub
End If
a.ImageUrl = rutaimagen
a.BorderWidth = 1
a.Height = 150
a.Width = 150
a.BorderColor = Drawing.Color.AntiqueWhite
imagen = a.ImageUrl
a.Attributes.Add("onclick", "javascript:url3('" & imagen & "');")
tCell.Controls.Add(a) 'objeto image (a)
tCell.BorderWidth = 1
tRow.Cells.Add(tCell)
ta.Rows.Add(tRow)
Next
Next
Bueno he podido solucionar mi problema en parte. Necesito mostrar imágenes recorriendo una base de datos, leer la ruta y mostrarla, a su vez al hacer un click en cada imagen llamar a una funcion JavaScript para mostrarla en primer plano y hasta aca esta bien, el tema es que una vez que la abre me vuelve a cargar la pagina y no necesito eso, ya intente en el Load con el PostBack pero nada, alguna solucion ¿???
Muchas gracias, y espero alguien me ayude ¡!!!
Dim rowCnt As Integer
Dim rowCtr As Integer
Dim cellCtr As Integer
Dim cellCnt As Integer
rowCnt = 3
cellCnt = 3
For rowCtr = 1 To rowCnt
Dim tRow As New TableRow()
Dim tRow2 As New TableRow()
For cellCtr = 1 To cellCnt
Dim tCell As New TableCell()
Dim tcell2 As New TableCell()
Dim a As New ImageButton
nima = nima + 1
nimactr = nimactr + 1
If nima >= 8 Then
Exit Sub
End If
a.ImageUrl = rutaimagen
a.BorderWidth = 1
a.Height = 150
a.Width = 150
a.BorderColor = Drawing.Color.AntiqueWhite
imagen = a.ImageUrl
a.Attributes.Add("onclick", "javascript:url3('" & imagen & "');")
tCell.Controls.Add(a) 'objeto image (a)
tCell.BorderWidth = 1
tRow.Cells.Add(tCell)
ta.Rows.Add(tRow)
Next
Next
Valora esta pregunta


0