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

VB2005, WinFormsです。

当初、ListView の Details を使ってデータセットのデータを表示しようとしていたのですが、
データバインド非対応なので手間が掛かりそうだと判断し、DataGridView を使用することにしました。

しかし、Windows ユーザなら見た目はエクスプローラで見慣れた ListView の方がアプリに対する違和感が少なくなるかなと思いまして、
DataGridView の外観を調整して ListView の Details っぽく見せようとしています。

そこで以下のように DataGridView のプロパティを設定しました。

        Dim col1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Dim col2 As New System.Windows.Forms.DataGridViewTextBoxColumn
        col1.HeaderText = "col1"
        col2.HeaderText = "col2"
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {col1, col2})

        '↓このように設定
        DataGridView1.BackgroundColor = Color.White
        DataGridView1.GridColor = Color.White
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

これで一応 ListView っぽく見えるのですが、行選択したときに列の境界の縦線が白く見えます。
これを無くすにはどのようにすればよいのでしょうか？

■No6077 (ぽぴ王子 さん) に返信
 
> こういった努力をしても、Windows のテーマを変更したり、OS を変更したりしたら（例えば XP → Vista とか）
> 全く違う見え方になりかねません。
> ListView がなぜ ListView というコンポーネントとして用意されているかを考えてみるべきでしょう。

確かにListViewの概観にしたいのが目的なら、ListViewを使うのが一番のような気がしてきました…。
この返信を読む前に自己解決しましたので一応コードを載せておきますが、
ListViewを習熟して何とか少ない工数で製造できるようになりたいと思います。
アドバイスありがとうございました！

---
GridColorを白くしてグリッド線を消すのではなく、OwnerDrawでグリッド線を描画しないようにしました。
CellPaintingを以下のように、です。

        Dim backColorBrush As New SolidBrush(e.CellStyle.BackColor)
        Dim foreColorBrush As New SolidBrush(e.CellStyle.ForeColor)

        If e.RowIndex >= 0 Then

            If (e.State And DataGridViewElementStates.Selected) = DataGridViewElementStates.Selected Then
                foreColorBrush = New SolidBrush(e.CellStyle.SelectionForeColor)
                backColorBrush = New SolidBrush(e.CellStyle.SelectionBackColor)
            Else
                foreColorBrush = New SolidBrush(e.CellStyle.ForeColor)
                backColorBrush = New SolidBrush(e.CellStyle.BackColor)
            End If

            e.Graphics.FillRectangle(backColorBrush, e.CellBounds)

            If (e.Value IsNot Nothing) Then
                e.Graphics.DrawString(CStr(e.Value), e.CellStyle.Font, foreColorBrush, e.CellBounds.X + 2, e.CellBounds.Y + 2, StringFormat.GenericDefault)
            End If

            e.Handled = True

        End If

>         Dim backColorBrush As New SolidBrush(e.CellStyle.BackColor)
>         Dim foreColorBrush As New SolidBrush(e.CellStyle.ForeColor)
            ↓
        Dim backColorBrush As SolidBrush
        Dim foreColorBrush As SolidBrush

あぁもぅ見直せよ自分…

■No6093 (魔界の仮面弁士 さん) に返信
> 各 Brush の Dispose (または Using ステートメント) が抜けているような。

            e.Handled = True
の下に
            backColorBrush.Dispose()
            foreColorBrush.Dispose()
が抜けてました。

実は…抜けていたというよりDisposeが必要なこと自体が分かっていませんでした(-_-;
コンパイルも通るし、実行時エラーも出ないし、動作テストも通っていて、テスト方法が分からないです。多分今まで作ったプログラムも…（激汗）
なんとなくこれはまずいなというのは分かってはいるのですが…