投稿日 | : 2007/01/12(Fri) 09:53 |
投稿者 | : tea |
Eメール | : |
URL | : |
タイトル | : Re^6: MSFlexGridの行を色分けするには? |
魔界の仮面弁士さん、回答ありがとうございます。
CellForeColorだということが理解できました。
実行してみますとMSFlexGridの行は最初はすべて赤色になってしまい、次に青色に変わり
最終行のみが何故か黒色になります・・・。
よろしくお願いします。
Public Property Get ClipText() As String
Dim Co As Integer
Dim Ro As Integer
With mp
ClipText = Format(.TimeOnQuarter, "nn:ss") & vbTab & _
.TeamChar & vbTab & _
PlayerUniformNumberText & vbTab & _
PlayerName & vbTab & _
TopicString
For Ro = frmMain.grdJournal.FixedRows To frmMain.grdJournal.Rows - _
frmMain.grdJournal.FixedRows Step 1
'1行全体を
For Co = frmMain.grdJournal.FixedCols To _
frmMain.grdJournal.Cols - frmMain.grdJournal.FixedCols
frmMain.grdJournal.Row = Ro
frmMain.grdJournal.Col = Co
If .TeamChar = "A" Then
frmMain.grdJournal.CellForeColor = vbRed
Else
frmMain.grdJournal.CellForeColor = vbBlue
End If
Next Co
Next Ro
End With
End Property