datagrid 的樣式表(DataGridTableStyle)應用...

最新推荐文章于 2020-06-26 22:25:46 发布

LiloZhu

最新推荐文章于 2020-06-26 22:25:46 发布

阅读量2.7k

点赞数

分类专栏： VB.NET 文章标签： datagrid styles header integer

本文链接：https://blog.csdn.net/zwxrain/article/details/249300

版权

VB.NET 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

首先我們先定一個 datatable 和一個datarow

Private idtb_temp As New DataTable
  Private idrw_row As DataRow

  private sub GetDataTable()
         idtb_temp.Columns.Add("prdodr_subodr_code")              '''定義datatable 的列名

        idtb_temp.TableName = "SearchTable"
        Dim ldcl_header As Windows.Forms.DataGridTextBoxColumn
        Dim ldgts_styles As New Windows.Forms.DataGridTableStyle
        ldgts_styles.SelectionForeColor = System.Drawing.Color.Yellow
         '''選中行的前景色，即字體顏色
        ldgts_styles.SelectionBackColor = System.Drawing.Color.Brown     '''選中行的背景色

        ldgts_styles.ForeColor = System.Drawing.Color.Coral
      ''' datagrid 中將要顯示的字的顏色
        ldgts_styles.AlternatingBackColor = System.Drawing.Color.Cyan
         '''datagrid中奇數行所顯示的顏色
        ldgts_styles.BackColor = System.Drawing.Color.Cyan
     '''datagrid中偶數行所顯示的顏色

ldgts_styles.AllowSorting = False
'''些樣式表定義datagrid不允許自動排序..

ldgts_styles.MappingName = "SearchTable"

        ldcl_header = New Windows.Forms.DataGridTextBoxColumn
        '''實例化一個datagridtextboxcolumn
        ldcl_header.MappingName = "prdodr_subodr_code"
        '''引用前面定義的 “列名”
        ldcl_header.HeaderText = "第一列"
       '''datagrid 中顯示的表列頭文字
        ldcl_header.ReadOnly = True            '''些列設定為只讀
        ldcl_header.TextBox.BorderStyle = BorderStyle.Fixed3D
        ldcl_header.TextBox.ForeColor = System.Drawing.Color.Red

ldgts_styles.GridColumnStyles.Add(ldcl_header)

        For i As Integer = 0 To 7
            idrw_row = idtb_temp.NewRow
            idrw_row.Item("prdodr_subodr_code") = "第" & i & "行"
            idtb_temp.Rows.Add(idrw_row)

        idtb_temp.DefaultView.AllowNew = False
        Me.DataGrid1.TableStyles.Add(ldgts_styles)
        Me.DataGrid1.DataSource = idtb_temp
  end sub