SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: zetaperu en Miércoles 1 de Febrero de 2006, 19:05

Título: Poner Color Automaticamente A Una Columna Flexgrid
Publicado por: zetaperu en Miércoles 1 de Febrero de 2006, 19:05

Bueno muchachos podria alguien darme una pista de como seleccionar de un color cualquiera automaticamente una columna determinada y sus filas respectivas en un msflexgrid recorriendo todas las filas desde un recordset de ado?

tengo un cuadro de texto que busca por nombres a los clientes y automaticamente los registros coincidentes aparecen en el msflexgrid, hasta ahy todo bien pero completar la idea es como al momento de buscar atravez del campo nombre se ponga de un color  (ejemplo verde) la columna nombre y todas las filas respectivas de ese campo.

Espero me den una mano.  :comp:

Título: Re: Poner Color Automaticamente A Una Columna Flexgrid
Publicado por: ebolo en Jueves 2 de Febrero de 2006, 20:12

Hola zetaperu, para colorear toda una columna, debes jugar con las propiedades siguientes:
   MSFlexGrid1.SelectionMode=flexSelectionByColumn
   MSFlexGrid1.BackColorSel = vbRed

Y si lo que quieres colorear es una celda, usa la propiedad:
   MSFlexGrid1.CellBackColor = vbred
claro posicionándote antes en la celda a colorear.

Saludos.

Título: Re: Poner Color Automaticamente A Una Columna Flexgrid
Publicado por: zetaperu en Jueves 9 de Marzo de 2006, 23:58

Que tal foro....... hace ya 2 meses que halle la solucion a la inquietud que les planteaba pero por razones de mucho trabajo recien logro tomarme un tiempo para hacerles llegar el codigo que quizas lo necesiten o pronto requeriran

'se supone que por aqui viene un recordset
If Len(Phonenumber) > 0 Then
         .Rows = RS.RecordCount + 1
            For i = 1 To RS.RecordCount
                .Row = i
                .Col = 3
                .CellBackColor = &HC0C0FF
                .Text = RS!cust_id
                CustID = .Text
                ' Y sigo poniendo todo los campos que deseo
                .Col = 0
                If Not IsNull(RS!cust_id) Then .Text = RS!cust_id
                .Col = 1
                If Not IsNull(RS!cust_salutation) Then .Text = RS!cust_salutation
             RS.MoveNext
              Next i
        ElseIf Len(Text3) > 0 Then
            .Rows = RS.RecordCount + 1
                For i = 1 To RS.RecordCount
                    .Row = i
                    .Col = 2
                    .CellBackColor = &HC0FFC0
                    .Text = RS!cust_id
                    CustID = .Text
                 'Igual aqui sigo poniendo todos los campos que deseo
                    .Col = 0
                    If Not IsNull(RS!cust_id) Then .Text = RS!cust_id
                    .Col = 1
                    If Not IsNull(RS!cust_salutation) Then .Text = RS!cust_salutation
                   -----
                   -----          
                    RS.MoveNext
                Next i
        End If
    End If

Cualquier cosa consulten, siempre es bueno aprender de todos.

ZetaPeru

Título: Re: Poner Color Automaticamente A Una Columna Flexgrid
Publicado por: Makko en Viernes 10 de Marzo de 2006, 01:13

Gracias por compartir amigo.  :hola: