Resaltar una fila de un msflexgrid o mshflexgrid
Como puedo hacer para resaltar una determinada fila de un control msflexgrid o mshflexgrid
cuando quiero resaltar una fila osea sombrearla yo utilizo este codigo, en donde mando por parametro quizaz el dato de una columna caracterisitica q tenga en mi caso le mando un codigo de las 1 era columna donde aparecen todos los codigo de mi lista
Function enfocarUltimo(cod As String)
Dim filas As Double
Dim i As Double
Dim tam As Integer
Dim column As Integer
band = False
filas = frmformulario.mshflex.Rows
column = frmformulario.mshflex.Cols - 1
tam = Len(cod)
Dim val As Integer
val = 1
i = 1
While i < filas
If cod = left(frmformulario.mshflex.TextMatrix(i, 1), tam) Then
With frmformulario.mshflex
.RowSel = i
.Row = i
.TopRow = i
.ColSel = column
End With
i = filas + 1
band = True
End If
i = i + 1
Wend
End Function
Function enfocarUltimo(cod As String)
Dim filas As Double
Dim i As Double
Dim tam As Integer
Dim column As Integer
band = False
filas = frmformulario.mshflex.Rows
column = frmformulario.mshflex.Cols - 1
tam = Len(cod)
Dim val As Integer
val = 1
i = 1
While i < filas
If cod = left(frmformulario.mshflex.TextMatrix(i, 1), tam) Then
With frmformulario.mshflex
.RowSel = i
.Row = i
.TopRow = i
.ColSel = column
End With
i = filas + 1
band = True
End If
i = i + 1
Wend
End Function