VB6如何改变MSFlexGrid 表中某行的背景颜色

Answer 1

Private Sub Command1_Click() '按下按钮改变背景色
setrowbgcolor MSFlexGrid1, 3, vbRed '改MSFlexGrid1第3行背景为红色
End Sub

Private Sub setrowbgcolor(obj As MSFlexGrid, row As Long, color As Long) '改色子程序
'用法 setrowbgcolor MSFlexGrid的实例名称,行号,颜色数值
Dim col As Long, x As Long, y As Long
col = obj.Cols '取MSFlexGrid的列数
x = obj.row '保存MSFlexGrid的原焦点
y = obj.col
obj.row = row '设MSFlexGrid要改色的行
For i = 0 To col - 1 '开始改,每单元格一循环,如果有Fixedcol 不改色将 i=0 改成 i=1
obj.col = i
obj.CellBackColor = color '设置单元格背景颜色
Next
obj.row = x '还原焦点
obj.col = y
End Sub

Answer 2

可能循环改变，不支持一行改变，建议用其它方法，不要设置行颜色，这个我试过，也有这种控件，用起来用慢，没必要。不行你就试试吧。

Answer 3

VSFLEXGRID控件属性 BackColorFixed 属性 MSFlexGrid 也差不多

Answer 4

代码如下：

With Me.MSFlexGrid1
.Row = 2
.Col = 2
.CellBackColor = vbRed
End With

Answer 5

∫(0→1)x/(1+x^2)dx
=(1/2)∫(0→1)1/(1+x^2)d(1+x^2)
=(1/2)[ln(1+x^2)]|(0→1)
=(1/2)[ln(1+1)-ln(1+0)]
=ln2/2