VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/01/12(Fri) 00:16
投稿者： tea
Ｅメール：
ＵＲＬ：
タイトル： MSFlexGridの行を色分けするには？

MSFlexGridに1行ごとにClipTextの内容を表示させていますが、ClipTextの.TeamCharが"A"
の場合にMSFlexGridに表示させている1行のForeColorを赤色(vbRed)に表示させ、.TeamChar
が"B"の場合にMSFlexGridに表示させている1行のForeColorを青色(vbBlue)にしたいんです。
自力で考えた下記のコードではForeColorがすべて青色になってしまいます。
MSFlexGridの行を色分けする方法を教えてください。よろしくお願いします。
OS WindowsXP
VB6.0SP6

Public Property Get ClipText() As String
   With mp
       ClipText = Format(.TimeOnQuarter, "nn:ss") & vbTab & _
                   .TeamChar & vbTab & _
                   PlayerUniformNumberText & vbTab & _
                   PlayerName & vbTab & _
                   TopicString
        If .TeamChar = "A" Then
            frmMain.MSFlexGrid.ForeColor = vbRed
        ElseIf .TeamChar = "B" Then
            frmMain.MSFlexGrid.ForeColor = vbBlue
        End If
    End With
End Property

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -