Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/10/2004, 19:28
Avatar de Mickel
Mickel
 
Fecha de Ingreso: mayo-2002
Ubicación: Lima, Peru
Mensajes: 4.619
Antigüedad: 22 años
Puntos: 7
Invoca ModificarPaginador(datagrid)

Public Shared Sub ModificarPaginador(ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
Dim lit_tipo As ListItemType = e.Item.ItemType
If lit_tipo = ListItemType.Pager Then
Dim cell_Paginador As TableCell = CType(e.Item.Controls(0), TableCell)
For num_Pagina As Int32 = 0 To cell_Paginador.Controls.Count Step 2
Dim obj_Pagina As Object = cell_Paginador.Controls(num_Pagina)
If TypeOf obj_Pagina Is LinkButton Then
Dim lnb_Pagina As LinkButton = CType(obj_Pagina, LinkButton)
lnb_Pagina.Text = "[ " + lnb_Pagina.Text + " ]"
Else
Dim lbl_Pagina As Label = CType(obj_Pagina, Label)
lbl_Pagina.Text = "Paginas " + lbl_Pagina.Text
End If
Next
End If
End Sub