VB.net DataGridViewのカラム(列)をコードで生成する方法

更新:2018.3.11

目次

データグリッドビューの列をコードで生成する方法

Private Sub createDgvColLv1(ByRef dgv As DataGridView)

    Dim txtCode As New DataGridViewTextBoxColumn()
    With txtCode
        .DataPropertyName = "111コード"
        .Name = .DataPropertyName
        .HeaderText = "コード"
        .Width = 60
        .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        .ReadOnly = False
    End With
    dgv.Columns.Add(txtCode)

    Dim txtName As New DataGridViewTextBoxColumn()
    With txtName
        .DataPropertyName = "111名称"
        .Name = .DataPropertyName
        .HeaderText = "111名称"
        .Width = 150
        .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
        .ReadOnly = False
    End With
    dgv.Columns.Add(txtName)

    Dim intDGVWidht As Integer = 3
    For Each col As DataGridViewColumn In dgv.Columns
        intDGVWidht = intDGVWidht + col.Width
    Next

    With dgv
        .RowsDefaultCellStyle.Font = New Font("MS UI Gothic", 10)
        .ReadOnly = True
        .AllowUserToDeleteRows = False
        .AllowUserToAddRows = False
        .MultiSelect = False
        .SelectionMode = DataGridViewSelectionMode.FullRowSelect
        .Width = intDGVWidht + SystemInformation.VerticalScrollBarWidth
        .RowHeadersVisible = False
        .AllowUserToResizeColumns = False
        .AllowUserToResizeRows = False
        .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        .CurrentCell = Nothing
    End With
End Sub
IT関係関連記事





AccessVBA小技集
2017/05/04






これからブログなどのサイトを作りたいと思っている人は、お名前.comでのドメイン取得がオススメです。

■□━━ 急げ、ドメインは早い者勝ち! ━━□■
     ■お名前.com

アマゾンの2019年本屋大賞一覧

そして、バトンは渡された
ひと
ベルリンは晴れているか
熱帯
ある男

楽天市場のおすすめ商品一覧

お金2.0 新しい経済のルールと生き方 [ 佐藤航陽 ]
全部レンチン!やせるおかず 作りおき 時短、手間なし、失敗なし
「読む力」と「地頭力」がいっきに身につく 東大読書 [ 西岡 壱誠 ]