Ver Mensaje Individual
  #8 (permalink)  
Antiguo 20/03/2006, 16:12
Avatar de mabarcau
mabarcau
 
Fecha de Ingreso: mayo-2005
Mensajes: 317
Antigüedad: 19 años, 10 meses
Puntos: 0
De acuerdo 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.