投稿日 | : 2007/01/12(Fri) 08:14 |
投稿者 | : tea |
Eメール | : |
URL | : |
タイトル | : Re^2: MSFlexGridの行を色分けするには? |
> http://hanatyan.sakura.ne.jp/vbhlp/MSFlexNO6.htm#selcolor
花ちゃんさん、回答ありがとうございます。
サンプルを参考にしてコードを記述してみましたが、MSFlexGridに表示させてみましたが、
最初が"A"が表示されているので赤色に表示されますが、最後の行は"B"のため、すべてが
青色になってしまいます。どうかよろしくお願いします。
Public Property Get ClipText() As String
Dim Co As Integer
With mp
ClipText = Format(.TimeOnQuarter, "nn:ss") & vbTab & _
.TeamChar & vbTab & _
PlayerUniformNumberText & vbTab & _
PlayerName & vbTab & _
TopicString
'1行全体を
For Co = frmMain.grdJournal.FixedCols To _
frmMain.grdJournal.Cols - frmMain.grdJournal.FixedCols
frmMain.grdJournal.Col = Co
If .TeamChar = "A" Then
frmMain.grdJournal.ForeColor = vbRed
Else
frmMain.grdJournal.ForeColor = vbBlue
End If
Next Co
End With
End Property