MSFlexGridでセルの色を条件付で変更するには？ (ID:122539)

名前

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

本文 MSFlexGridでクリックした列の一行目に値が入っている場合は、そのクリックし たセルの色を赤にし前にクリックしたセルを白に、入っていない場合には色を変 えないというプログラムを作っているのですが、下のようにすると一行目の色が 変わってしまうし、ほかに方法が思い浮かびません。何か方法はありませんでし ょうか？環境はVB6.0です。 Private Sub MSFGrid_Click() Dim Col1, Col2, Row1, Row2 As Integer With MSFGrid .Col = 0 If .Text = "" Then Else Col1 = .Col Row1 = .Row .Col = Col2 .Row = Row2 .CellBackColor = vbWhite .Col = Col1 .Row = Row1 .CellBackColor = vbRed Col2 = Col1 Row2 = Row1 End If End With