MSFlexGrid question - please have a look

  • Thread starter Thread starter mcnews
  • Start date Start date
M

mcnews

everything work but the CellBackColor

For x = 0 To aFrzSpecs(5, iFI) - 1
j = j + 1&
.Col = j
'If txtColumnWidth = "" Then
.ColWidth(j) = (.Width / (aFrzSpecs(5, iFI) + 1)) +
(300 / (aFrzSpecs(5, iFI) + 1))
'Else
' .ColWidth(j) = Val(txtColumnWidth.Text)
'End If

.CellAlignment = flexAlignCenterCenter
.CellBackColor = 12058551 '&H80FF80
.Text = Str(x + 1)

'Debug.Print x + 1

Next x

it only changes the right most cell.
 
Private Sub MSFlexGrid0_LeaveCell()
If boolChangeColor Then
MSFlexGrid0.CellBackColor = &H80000005
MSFlexGrid0.CellFontBold = False
End If
End Sub
 
Back
Top