MSHFlexGridの文字の色を変更したい

解決

---

VB6.0 SP6  WindowsXP

MSHFlexGridでバックカラーを条件によって変更すると、文字の色が黒→白に変更されてしまいます。文字の色を変更しないためにはどうすればよろしいでしょうか。教えてください。

Private Sub A(Index As Integer, bRet As Boolean)

    With MSHFlexGrid1
        .Row = Index
        .Col = 1
        .CellAlignment = flexAlignCenterCenter
        .Text = "OK"  '←ココではまだ字は白いです。

        If bRet = False Then
            .CellForeColor = &H8080FF
            Call MsgBox("ERROR")
        Else
            .CellForeColor = &HFFFFFF  '<-字が白くなります。
        End If
    End With
End Sub

編集    削除

---

.Text = "OK"  '←ココではまだ字は白いです。==>  黒の間違いでは？？

 .CellForeColor  は文字の色の設定ですよ。

 .CellForeColor = &HFFFFFF  '<-字が白くなります。

文字の色を白にセットしているのだから白で当たり前では？？

バックカラー は   .CellBackColor

編集    削除

---

1月さん
>   .Text = "OK"  '←ココではまだ字は白いです。==>  黒の間違いでは？？

はい、黒の間違いです。
指摘ありがとうございます。

おかげさまで、バックの色を変更することができました。ありがとうございます。

編集    削除

---

すみません。解決チェックするのを忘れていました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。