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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容