Private Sub Command1_Click()
Dim i, j As Long
With MSHFlexGrid1
For i = 1 To .Rows - 1
For j = 1 To .Cols - 1
If j Mod 2 = 0 Then
.TextMatrix(i, j) = "a"
Else
.TextMatrix(i, j) = "b"
End If
Next j
Next i
End With
End Sub
Private Sub MSHFlexGrid1_RowColChange()
Dim i, j As Long
Dim iRow As Long
With MSHFlexGrid1
iRow = .Row '---------------------'選中的行
.Col = 0
For i = 1 To .Rows - 1
.Row = i
For j = 1 To .Cols - 1
.Col = j '----------列
.CellBackColor = RGB(255, 255, 255) '原來的顏色
Next j
Next i
End With
With MSHFlexGrid1
.Row = iRow '---------------------'選中的行
For j = 1 To .Cols - 1
.Col = j '--------------列
.CellBackColor = RGB(0, 200, 100) '選中後的顏色
Next j
End With
Private Sub MSFlexGrid1_Click()
For i = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = &H800000
Next i
End Sub
可能有断续,效果不是很好,但确实可以实现你要的.
Private Sub Form_Load()
With MSFlexGrid1
.FillStyle = flexFillRepeat
.SelectionMode = flexSelectionByRow
.BackColorSel = vbBlue
.ForeColorSel = vbYellow
.FocusRect = flexFocusNone
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.SelectionMode = flexSelectionByRow
.BackColorSel = vbBlue
.ForeColorSel = vbYellow
.FocusRect = flexFocusNone
End With
End Sub