テクパー2020 テクニカルヘルパー |
----+----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