1. 程式人生 > >datagridview 手動新增控制元件列方法(圖)

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("專案1")
        columnCmbox.Items.Add("專案2")
        '"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)
'----------------------------------------------------