https://foro.gambas-es.org/viewtopic.php?f=1&t=5002&p=28990#p28990 ----------------------------------- Shell Viernes, 27 Noviembre 2015, 13:55 Re: Evento Data, Colorear Celdas Y Ver Texto ----------------------------------- Hice un pequeño cambio y ha funcionado, pero "el reloj" se muestra cuando cambio el tamaño de alguna de las columnas. ( Son muchos registros ) Tengo que probar tu método, Jorge. Creo que es algo más lento. Lo que he cambiado en el evento Data fue grdTabla[row][colum] por grdTabla.Data.BackGround . La verdad es que es rápido. [code linenumbers=false syntax=gambas] Public Sub grdTabla_Data(Row As Integer, Column As Integer) Dim camposactuales As String[] Dim f As New Font camposactuales = Split(registros[row], "::", "", True) camposactuales.Remove(0) camposactuales.Remove(camposactuales.Length - 1) If grdTabla.Columns[column].Width < f.TextWidth(camposactuales[column]) Then grdTabla.Columns[column].Width = f.TextWidth(camposactuales[column]) Endif If row Mod 2 = 0 Then grdTabla.Data.Background = Color.White Else grdTabla.Data.Background = Color.LightBackground Endif grdTabla.Data.Text = camposactuales[column] End[/code] Lo cierto es que se muestra el texto y los colores [img]http://foro.gambas-es.org/files/images/768/muestra.png[/img] Esta forma de hacerlo lo he visto con una base de datos. Adjunto lo principal. [code linenumbers=false syntax=gambas] Public Sub Form_Activate() 'Cambia el contador de filas del gridview de 0 al numero de registros 'Esto maneja el Trigger del evento del manejador Data GridView1.Rows.Count = $res.Count End Public Sub GridView1_Data(Row As Integer, Column As Integer) $res.MoveTo(Row) GridView1.Data.Text = Str($res[GridView1.Columns[Column].Text]) End [/code] En el propio evento Data se actualiza que registro quiero ver y me muestra cada campo que voy a mostrar. Saludos