datagridview 手动添加控件列方法(图)

datagridview 手动添加控件列方法，来自于网络，备份一下，以免忘记。呵呵。。。

 datagridview编辑时，随便添加一列，设置为非显示。

然后就可以添加一下的代码了。

'++++++++++++++++++++++++++++++
        '指定行数の追加
        DataGridView1.Rows.Add(20)
'----------------------------------------------------

 '++++++++++++++++++++++++++++++
        '自定义设定光标进入单元格是否编辑模式（编辑模式）
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
'----------------------------------------------------

 '++++++++++++++++++++++++++++++
        '表格前面的空白列不显示
        DataGridView1.RowHeadersVisible = False
'----------------------------------------------------

 '++++++++++++++++++++++++++++++
        'CheckBox列を追加する
        Dim column As New DataGridViewCheckBoxColumn
        column.Width = 20
        DataGridView1.Columns.Add(column)
 '----------------------------------------------------

 '++++++++++++++++++++++++++++++
        'DataGridViewTextBoxColumn列を作成する
        Dim textColumn As New DataGridViewTextBoxColumn()
        'データソースの"Column1"をバインドする
        textColumn.DataPropertyName = "txtClm"
        '名前とヘッダーを設定する
        textColumn.Name = "txtClm"
        textColumn.HeaderText = "txtClm"
        '列を追加する
        DataGridView1.Columns.Add(textColumn)
 '----------------------------------------------------

 '++++++++++++++++++++++++++++++
        Dim columnCmbox As New DataGridViewComboBoxColumn()
        'ComboBoxのリストに表示する項目を指定する
        columnCmbox.Items.Add("項目１")
        columnCmbox.Items.Add("項目２")
        '"Week"列にバインドされているデータを表示する
        columnCmbox.DataPropertyName = "cmbClm"
        '"Week"列の代わりにComboBox列を表示する
        DataGridView1.Columns.Insert(2, columnCmbox)
        'DataGridView1.Columns.Remove("cmbClm")
        columnCmbox.Name = "cmbClm"
'----------------------------------------------------

 '++++++++++++++++++++++++++++++
        'DataGridViewLinkColumnの作成
        Dim columnLnk As New DataGridViewLinkColumn()
        '列の名前を設定
        columnLnk.Name = "Link"
        '全てのリンクに"詳細閲覧"と表示する
        columnLnk.UseColumnTextForLinkValue = True
        columnLnk.Text = "詳細閲覧"
        'マウスポインタがリンク上にあるときだけ下線をつける
        columnLnk.LinkBehavior = LinkBehavior.HoverUnderline
        '自動的に訪問済みとならないようにする
        'デフォルトでTrue
        columnLnk.TrackVisitedState = True
        'DataGridViewに追加する
        DataGridView1.Columns.Add(columnLnk)
'----------------------------------------------------