vb中显示文本问题

Question

我用MSFlexGrid 显示MySQL数据库中的数据 但是我想在显示时突出某些字段，比如让所显示的数据中的所有“安全”字段都变为红色，从而与其他字段形成对比，该怎么做，谢谢大家了！

Answer 1

with mshflexgrid
    .textmatrix(0,0)="安全"
    .row=0
    .col=0
    .cellbackcolor=vbred
end with

Answer 2

Public Sub Highlight_Red_Display(fg As MSFlexGrid, ByVal Col_To_Change As Long)
        Dim i As Long
        
        If Col_To_Change = 0 Or Col_To_Change > fg.Cols - 1 Then Exit Sub
        
        With fg
            For i = .FixedRows To .Rows - .FixedRows
                .Col = Col_To_Change
                .Row = i
                If Trim(.TextMatrix(.Row, .Col)) = "安全" Then .CellBackColor = vbRed
            Next
        End With
End Sub参数说明:
fg是你的MSFlexGrid控件名称,Col_To_Change是"安全"的列编号,另外此段代码不可添加DoEvents

Answer 3

第一行提示类型未定义,那就是你用的是MSHFLEXGRID控件,单元格颜色,那段代码还是可以.某个字的字体颜色,控件不支持,其它犇人也许可以实现.

Answer 4

哪能不能用别的控件来实现某个字的颜色改变 比如datagrid

Answer 5

MSFlexGrid.cell(index).cellbackcolour=vbred