我对Ms Flex Grid 不熟，问一个简单的问题？

Question

这个问题以前有老兄提问过，如果显示第i行成蓝色，写如下代码
for j=0 to msflexgrid.cols-1
    msflexgrid.cellbackcolor(i,j)=vbBlue
next j

Answer 1

在combo box的list里加上1,2,3,4,5Private Sub Combo1_Click()
Dim i As Integer
For i = 1 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.Col = i
    MSFlexGrid1.CellBackColor = &HFFFFFF
Next
MSFlexGrid1.Row = Combo1.Text
For i = 1 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.Col = i
    MSFlexGrid1.CellBackColor = &HC00000
Next
End Sub

Answer 2

Option Explicit'    Purpose:
'    Author:吴文智
'      Date:2001-11-09
'Description:要试用本例请在窗体中填加 一个MSFlexGrid和一个Combo
'            然后在代码窗体中粘贴如下代码
'            Good luck!Private Sub Form_Load()
    MSFlexGrid1.Rows = 10
    Combo1.AddItem "1"
    Combo1.AddItem "2"
    Combo1.AddItem "3"
    Combo1.AddItem "4"
    Combo1.AddItem "5"
    Combo1.ListIndex = 0
End SubPrivate Sub Combo1_Click()
    Dim lngCol As Long
    
    With MSFlexGrid1
        .Row = CLng(Combo1.Text)
        For lngCol = .FixedCols To .Cols - 1
            .Col = lngCol
            .CellBackColor = vbBlue
        Next
    End With
End Sub