加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

vb.net的datagridview如何让表格根据表格数据来改变颜色,如值为

发布时间:2020-12-17 07:47:12 所属栏目:百科 来源:网络整理
导读:vb.net的datagridview如何让表格根据表格数据来改变颜色,如值为1时表格为红色,2时为蓝色 Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load Dim 数据表 As New DataSet() 数据表.Tables.Add() Dim aa As DataTable = 数据表.T

vb.net的datagridview如何让表格根据表格数据来改变颜色,如值为1时表格为红色,2时为蓝色

Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        Dim 数据表 As New DataSet()
        数据表.Tables.Add()
        Dim aa As DataTable = 数据表.Tables(0)
        aa.Columns.Add("lb")
        aa.Rows.Add("a")
        aa.Rows.Add("b")
        Dim biaoge As DataGridView = New DataGridView
        biaoge.Parent = Me
        biaoge.Location = New Point(10,46)
        biaoge.DataSource = aa
        TextBox1.Text = biaoge.ColumnCount.ToString + "列"
        TextBox1.Text += " " + biaoge.Columns.Count.ToString
        表格控件颜色控制(biaoge,1)
    End Sub
    Sub 表格控件颜色控制(表格控件 As DataGridView,参数 As Int16)
        Dim 行数 As Int16 = 表格控件.Rows.Count - 1
        Do
            '表格控件.Rows(行数).DefaultCellStyle.BackColor = IIf(参数 = 行数 Mod 2,Color.AliceBlue,Color.Beige)
            表格控件.Rows(行数).Cells(0).Style.BackColor = IIf(参数 = 行数 Mod 2,Color.Beige)
            行数 -= 1
        Loop While (行数 >= 0)
    End Sub

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读