gridsamp

    Function DefDataGridViewStyle(ByRef DataGridView As DataGridView, ByVal intSortMode As Integer) As Boolean
        DefDataGridViewStyle = False
        On Error GoTo EXCEPT_01
        '*******DataGrid基準設定***************************
        DataGridView.RowHeadersWidth = 25
        DataGridView.ColumnHeadersHeight = 20
        'DataGridView.ScrollBars = System.Windows.Forms.ScrollBars.Both '----スクロールバー
        DataGridView.AllowUserToAddRows = False '------------------------------------Row追加の許可なし
        DataGridView.ReadOnly = True '-----------------------------------------------Row更新の許可なし
        DataGridView.AllowUserToDeleteRows = False '---------------------------------Row削除の許可なし
        DataGridView.AllowUserToOrderColumns = False '-------------------------------手動列移動不可
        'DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect '------全Cell選択可能
        DataGridView.MultiSelect = False '-------------------------------------------複数選択不可
        DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None '----------高さ調節不可
        DataGridView.AllowUserToResizeColumns = True '-------------------------------列幅変更可能
        DataGridView.ColumnHeadersHeightSizeMode = _
            DataGridViewColumnHeadersHeightSizeMode.DisableResizing '----------------Columヘッダー高さ調整不可
        DataGridView.AllowUserToResizeRows = False '---------------------------------Rowの高さ変更不可
        DataGridView.RowHeadersWidthSizeMode = _
            DataGridViewRowHeadersWidthSizeMode.DisableResizing '--------------------Rowヘッダー幅調整不可
        DataGridView.RowHeadersVisible = True '--------------------------------------RowヘッダーVisible
        DataGridView.ShowCellToolTips = False '--------------------------------------ToolTips非表示
        Select Case intSortMode
            Case 0 '-----------------------------------------------------------------全てのColでSortを許可する
            Case 1
                For Each c As DataGridViewColumn In DataGridView.Columns '-----------全てのColでSortを制限する
                    c.SortMode = DataGridViewColumnSortMode.Programmatic '-----------プログラムで可能,NotSortable---全て不可
                Next c
            Case Else
                For Each c As DataGridViewColumn In DataGridView.Columns '-----------全てのColでSortを制限する
                    c.SortMode = DataGridViewColumnSortMode.NotSortable '------------プログラムで可能,NotSortable---全て不可
                Next c
        End Select
        '*****************************************************
        DefDataGridViewStyle = True
EXCEPT_01:
    End Function