我希望MSHFlexGrid中相邻的列/单元格的颜色互不相同,也就是把他们的背景颜色/字体颜色设为不同,可是在MSHFlexGrid中我找不到定位单元格/行/列的方法!非常着急!
请知道该如何处理的朋友多多指教,在下将感激不尽!

解决方案 »

  1.   

    MSHFlexGrid.col=列
    MSHFlexGrid.row=行
    MSHFlexGrid.CellBackColor=颜色^_^
      

  2.   

    Private Sub Form_Load()
    Dim i As Integer, j As Integer
    With MSFlexGrid1
    .Rows = 5
    .Cols = 5
    For i = 0 To 4
    For j = 0 To 4
    .Row = i
    .Col = j
    .CellBackColor = Choose((i * 5 + j) Mod 3 + 1, vbRed, vbBlue, vbBlack)
    .Text = Chr(i * 5 + j + 65)
    .ForeColor = Choose((i * 5 + j) Mod 3 + 1, vbBlack, vbRed, vbBwhite)
    Next
    Next
    End With
    End Sub