C# と VB.NET の質問掲示板

いつも参考にさせてもらっています。

DataGridViewの奇数行の背景色を元に戻す方法があればアドバイスをお願いいたします。

現在、DataGridViewのAlternatingRowsDefaultCellStyleのBackColorを黄色に設定しています。
初回グリッド表示をすると奇数行は黄色になり偶数行は白色（おそらくSystemColors.Windowと思います）になります。

グリッドの各行には「使用ボタン」があり、ボタンを押すことで押された行の背景色はグレーになります。（使用しない行となります）
グレーになった行で再度使用ボタンを押すとその行の背景色は元に戻り（白色or黄色）ます。（使用する行となります）

奇数行をグレーに変更して、再度、黄色に戻したいのですが戻ることができません。

現在このように書いています。

With dgvMain
  If .Rows(GRID_GYOU).Cells("使用区分").Value = 0 Then
    '行の色は濃いグレー色
    .Rows(GRID_GYOU).DefaultCellStyle.BackColor Color.FromArgb(255, 112, 112, 112)     '濃いグレー色
  Else
    .Rows(GRID_GYOU).DefaultCellStyle.BackColor = System.Drawing.SystemColors.Window
    .AlternatingRowsDefaultCellStyle.BackColor = Color.FromArgb(255, 255, 128)     '黄色
    .Refresh()　'←これはいらないかも
  End If
End With

上のコードでは黄色になってほしいのですが白色になります。
全体を白色にして、奇数行を再度設定としています。

環境はWinXP Home+SP2 + Frameworks2.0 + VB2005Pro です。

よきアドバイスよろしくお願いします。

やじゅさん アドバイスありがとうございます。

DefaultCellStyleにグレー色を設定しているのでやっぱりだめなのでしょうか。
奇数／偶数行を見て、DefaultCellStyleに色を指定すればいくのですが・・・

なにかすっきりとしないのです。簡単にできそうな気がしたのですが。
他に方法がありましたらアドバイスお願いします。

Dim x As Integer = Math.IEEERemainder(GRID_GYOU, 2)
If x = 0 Then
  '行の色は白
  .Rows(GRID_GYOU).DefaultCellStyle.BackColor = Color.White
Else
  '行の色は黄色
  .Rows(GRID_GYOU).DefaultCellStyle.BackColor = Color.FromArgb(255, 255, 128)     '黄色
End If

■No17037 (もねを さん) に返信

やじゅさんの示してくださった .Net ユーザーエクスペリエンス研究所（えムナウさんのサイト）から

（優先順位高）
> Rows[m].Cells[n].Style               (プロパティウィンドウからは指定不可)
> Rows[m].DefaultCellStyle             (プロパティウィンドウからは指定不可)
> RowTemplate.DefaultCellStyle
> AlternatingRowsDefaultCellStyle
> RowsDefaultCellStyle
> Columns[n].DefaultCellStyle
> DefaultCellStyle
（優先順位低）

こんな感じになっている、と解説されています。
もねをさんの場合、AlternatingRowsDefaultCellStyle を設定している行に対して
Rows[m].DefaultCellStyle を設定している、という形ですよね。
Rows[m]〜 の方が Alternating〜 よりも優先順位が高いわけで、設定したらその色に
なるのは当然ですと。

で、それを元に戻すにはどうすればいいか、という話ですね。
ここで押さえておきたいのは、Rows[m]〜 を設定したからと言って、Alternating〜
が上書きされているわけではない、ということです。
つまり、元に戻すために Alternating〜 を設定する必要はありません。
逆に言えば、Rows[m]〜 を無効にしてしまえば、その後ろに設定されている Alternating〜
が表示されるはずです。

というわけで

With dgvMain
  If .Rows(GRID_GYOU).Cells("使用区分").Value = 0 Then
    '行の色は濃いグレー色
    .Rows(GRID_GYOU).DefaultCellStyle.BackColor = Color.FromArgb(255, 112, 112, 112)     '濃いグレー色
  Else
    .Rows(GRID_GYOU).DefaultCellStyle = Nothing
  End If
End With

でOK（テストしてません）。

ちなみに

Dim x As Integer = Math.IEEERemainder(GRID_GYOU, 2)

これは GRID_GYOU Mod 2 で求められるはずです。

ところで GRID_GYOU って変数でしょうか。どうも全部大文字だと定数に見えて仕方がないですが。