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

返答をありがとうございます。

環境については、聞いていたものを書いてしまいました。
すみません。

もう少し詳しく説明しますと、ハンディターミナルにて
バーコード入力を伴うシステム開発をしています。

ハンディターミナルのシステムは
WindowsR Embedded Version 7.00
でした。

FrameWorkはよくわかりませんが、
.NET Compact Framework v3.5
になるのでしょうか？（wiki調べ）

開発時では、ターゲットデバイスをWindowsCEにし、
エミュレータで動作確認をしています。


DataGridの背景色の変更は、Paint メソッドをオーバーライドしています。
背景色を変更する部分を抜き出してみました。

既存プログラムを変更しているので、理解は怪しいですが。。。
他に、列幅や右寄せ設定等しています。
このやり方が良くないのでしょうか？

-------------------------------------------------------------------
Public Class DataGridColumnStyles
    Inherits DataGridTextBoxColumn

    Protected BackColorColNm As String = ""

    '//************************************************************
    '//●BackColor プロパティ
    '//************************************************************
    Public Property BackColorColumnName() As String
        Get
            Return BackColorColNm
        End Get
        Set(ByVal value As String)
            BackColorColNm = value
        End Set
    End Property

    '//************************************************************
    '//●Paint オーバライド
    '//************************************************************
    Protected Overloads Overrides Sub Paint( _
        ByVal g As Graphics, _
        ByVal bounds As Rectangle, _
        ByVal [source] As CurrencyManager, _
        ByVal rowNum As Integer, _
        ByVal backBrush As Brush, _
        ByVal foreBrush As Brush, _
        ByVal alignToRight As Boolean _
    )
        '// 背景色変更
        Dim dtView As System.Data.DataRowView = CType(CType([source], CurrencyManager).List(rowNum), System.Data.DataRowView)
        Dim szArgb As String = dtView.Item(BackColorColNm)
        If szArgb <> "" Then
            backBrush = New SolidBrush(Color.FromArgb(CType(szArgb, Integer)))
        End If
        MyBase.Paint(g, bounds, [source], rowNum, backBrush, foreBrush, alignToRight)

    End Sub
End Class

Public Shared Sub SetAlimentRight( _
      ByRef dg As DataGrid _
    , ByRef dt As DataTable _
    , ByRef RightAlimentFlagList As ArrayList _
    , Optional ByVal BackColorColName As String = "" _
)
    If IsNothing(RightAlimentFlagList) Then Exit Sub

    Dim addTableStyle As New DataGridTableStyle

    For i As Integer = 0 To dt.Columns.Count - 1

        Dim addColumnStyles = New DataGridColumnStyles
        With addColumnStyles
            '// 背景色指定列名
            .BackColorColumnName = BackColorColName
        End With
        addTableStyle.GridColumnStyles.Add(addColumnStyles)

    Next
    dg.TableStyles.Clear()
    dg.TableStyles.Add(addTableStyle)
    dg.DataSource = dt '//dg表示

End Sub

Private Sub dg_SetDeleteRow(ByVal selRow As Integer)

    Dim dtGridData As DataTable = CType(dgList.DataSource, DataTable)
    If selRow = -1 Then

        '// ヘッダクリック
        If mbCheckAllSelect Then
            '// 全解除
            For i As Integer = 0 To dtGridData.Rows.Count - 1
                dtGridData.Rows(i).Item("BACKCOLOR") = ""
            Next
        Else
            '// 全選択
            For i As Integer = 0 To dtGridData.Rows.Count - 1
                dtGridData.Rows(i).Item("BACKCOLOR") = Color.Gray.ToArgb
            Next
        End If
        dgList.DataSource = dtGridData
        '// 全選択フラグ
        mbCheckAllSelect = Not mbCheckAllSelect

    Else
        '// データ行クリック
        If dtGridData.Rows(selRow).Item("BACKCOLOR") = "" Then
            dtGridData.Rows(selRow).Item("BACKCOLOR") = Color.Gray.ToArgb
        Else
            dtGridData.Rows(selRow).Item("BACKCOLOR") = ""
        End If
    End If

    Call DataGridAllColumnStyle.SetAlimentRight(dgList, dtGridData, New ArrayList(New Integer() {3}), "BACKCOLOR")
    Call SelectChangeRow(miRowNum)

    If selRow > 0 Then
        dgList.CurrentCell = New DataGridCell(selRow, 1)
    End If
End Sub

色々試している内にレスが！
再度御返答ありがとうございます。

> VertScrollBar 相当の動作が必要ならば、こういうことはできます。
> 内包コントロールを直接取り出しているので、あまり行儀の良いコードでは無いですけれども。
このような方法もあるのですね。
勉強になります。
今回は使わなくてすみましたが、複数グリッドの表示の同期等の案件が出た時には
使わせていただきます。


> ここでいう「選択した行」とは、何のことでしょうか?
「選択した行」と一言で言っても、色々なケースが考えられるんですね(^^;
(c)のケースは考えた事がありませんでした。
一応、選択行取得のソースを乗せておきます。
色々とありがとうございました。

    Private Sub form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            AddHandler Me.dgList.MouseUp, AddressOf Me.dg_MouseUp
    End Sub

    Private Sub dg_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim hitinfo As DataGrid.HitTestInfo
        hitinfo = (CType(sender, DataGrid).HitTest(e.X, e.Y))
        Dim selRow As Integer = hitinfo.Row.ToString
        Call dg_SetDeleteRow(selRow)
    End Sub

    Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
            MyBase.OnKeyDown(e)
            If e.KeyCode = Keys.Enter Then
                Call dg_SetDeleteRow(Me.dgList.CurrentRowIndex)
            End If
            Return
    End Sub