如何把msflexgrid的某一列的内容全部改成红色或绿色！？在线等！

Question

试验成功立马给分！

Answer 1

dim i as integermsflexgrid1.col = 2
for i = 1 to msflexgrid1.rows - 1
    msflexgrid1.row = i
    msflexgrid1.cellforecolor = vbred
next

Answer 2

Private Sub Form_Load()
MSFlexGrid1.Rows = 5
MSFlexGrid1.Cols = 5
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Long
MSFlexGrid1.Row = MSFlexGrid1.MouseRow
For i = 0 To 4
    MSFlexGrid1.Col = i
    MSFlexGrid1.CellBackColor = RGB(255, 0, 0)
Next i
End Sub