テクパー2020
テクニカルヘルパー


 VisualBasic アプリ開発入門 

『データグリッドビュー(DataGredView)』の使い方>

フォームにデータグリッドビューを作ります。(こんなイメージかな)
コーディングはフォーム・ロード(イベント)でデータグリッドビューを設定しています。

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0  

Public Class Form1
    '******************************************************************************
    '*  フォームのロード(イベント処理)
    '******************************************************************************
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'データグリッドビューの列見出し(タイトル名,幅)の定義
        Dim aryColHeader() As String = {"ユーザーID", "操作者名", "パスワード", "性別", "作成日"}
        Dim aryColLength() As Integer = {160, 180, 160, 60, 100}

        'データグリッドビューの編集
        With DataGridView1

            .Columns.Clear()

            'データグリッドビューのプロパティ
            .BackgroundColor = Color.LightGray                          '背景色
            .RowsDefaultCellStyle.BackColor = Color.Honeydew            '行の背景色
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Ivory    '行の交互背景色

            'データグリッドビューの列数の設定
            .ColumnCount = 5

            'データグリッドビューの列情報の設定
            For i As Integer = 0 To 4

                .Columns(i).HeaderText = aryColHeader(i)                '列ヘッダーのタイトル
                .Columns(i).Width = aryColLength(i)                     '列の幅

                '列ヘッダーのタイトルフォント指定
                .Columns(i).HeaderCell.Style.Font = New Font("MS UI Gothic", 10)
                .Columns(i).HeaderCell.Style.ForeColor = Color.Magenta

                '列ヘッダーのタイトル位置指定(MiddleLeft,MiddleCenter,MiddleRight)
                .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

                '列の文字位置指定(MiddleLeft,MiddleCenter,MiddleRight)
                .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

                '列の文字フォント指定
                .Columns(i).DefaultCellStyle.Font = New Font(Control.DefaultFont, FontStyle.Regular)
                .Columns(i).DefaultCellStyle.Font = New Font("MS UI Gothic", 11)
                .Columns(i).DefaultCellStyle.ForeColor = Color.Blue

                '列のソート方法指定(Automatic,NotSortabler,Programmatic)
                .Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable

                '列のサイズ変更方法指定(True:可,NotSet:,False:不可)
                .Columns(i).Resizable = DataGridViewTriState.True

                '列の入力可否指定(True:表示,False:入力可)
                .Columns(i).ReadOnly = False

                '列の表示指定(True:表示,False:非表示)
                .Columns(i).Visible = True

            Next

        End With

    End Sub

End Class