| 投稿日 | ： 2007/01/12(Fri) 08:14 |
| 投稿者 | ： tea |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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
'１行全体を
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