20/03/2006, 16:12
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 317
Antigüedad: 19 años, 8 meses Puntos: 0 | |
Exitos Totales Hola amigos, por fin encontre lo que estaba buscando, gracias a todos por su colaboracion, de lo contrario no hubiese insistido, ahi les alcanzo el codigo necesario para darle un poquito mas de vida al paginado:
Private Sub dgProcesoes_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgProcesoes.ItemCreated
If e.Item.ItemType = ListItemType.Pager Then
For Each cont As System.Web.UI.WebControls.TableCell In e.Item.Controls
For Each cont2 As System.Web.UI.Control In cont.Controls
If cont2.GetType.ToString = "System.Web.UI.WebControls.DataGridLinkButton" Then
If DirectCast(cont2, System.Web.UI.WebControls.LinkButton).Text = "..." Then
Dim pag As String = DirectCast(cont2, System.Web.UI.WebControls.LinkButton).CommandArgum ent
If Integer.Parse(pag) <= dgProcesoes.CurrentPageIndex Then
DirectCast(cont2, System.Web.UI.WebControls.LinkButton).Text = "<IMG id='imgSiguiente' style='CURSOR: hand' height='14' border=0 src='/Tenders/images/anterior.gif' width='20'>Anterior"
Else
DirectCast(cont2, System.Web.UI.WebControls.LinkButton).Text = "Siguiente<IMG id='imgSiguiente' style='CURSOR: hand' height='14' border=0 src='D:/Inetpub/wwwroot/Tenders/images/siguiente.gif' width='20'>"
End If
End If
End If
Next
Next
End If
End Sub
A mi me ha servido, ahi puede agregarse, botones, letras, etc.
Saludos,
Miguel Abarca U. |