Olá.
Este é o código:
Private Sub SELECIONA()
Dim i As Integer, sProcura As String, sGrid As String
Dim bComp As Byte
grade.Visible = True
sProcura = UCase(TEXTevento.Text)
bComp = Len(sProcura)
If IsNumeric(TEXTevento.Text) = True Then
For i = 0 To grade.Rows - 1
sGrid = UCase(grade.TextMatrix(i, 1))
If sProcura = Left$(sGrid, bComp) Then
grade.Row = i
grade.Col = 0
grade.ColSel = grade.Cols - 1
grade.TopRow = grade.Row
Grade.CellFontBold = True
Grade.CellFontItalic = True
Exit For
End If
Next
Else
For i = 0 To grade.Rows - 1
sGrid = UCase(grade.TextMatrix(i, 2))
If sProcura = Left$(sGrid, bComp) Then
grade.Row = i
grade.Col = 0
grade.ColSel = grade.Cols - 1
On Error Resume Next
grade.TopRow = grade.Row
Grade.CellFontBold = True
Grade.CellFontItalic = True
Exit For
End If
Next
End If
End Sub
O que está acontecendo é o seguinte :
O Flex é todo transparenete sem linhas sem grades sem nada , a medida que o cara digita algo no text ele sleciona no flex certo, só que ao invés de selecionar eu queria que ele apenas mude a fonte da linha selecionada para italico e bold, por isso coloquei o (grade.CellFontBold = True) só que não está funcionando, ele muda a cor da fonte por causa do highlight mais não fica bold nem italico.
O que pode estar errado?