以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何给RecordGrid控件的网格线变成黑色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195615)

--  作者：lihe60 --  发布时间：2025/2/22 11:19:00 --  如何给RecordGrid控件的网格线变成黑色 如题

--  作者：有点蓝 --  发布时间：2025/2/22 12:01:00 --   Dim bctr = Forms("窗口1").Controls("RecordGrid1").BaseControl Dim cs1 As C1.Win.C1FlexGrid.CellStyle = bctr.Styles.Add("样式1") cs1.Border.Color = Color.Black For i As Integer = 0 To bctr.rows.count - 1     bctr.SetCellStyle(i, 0, cs1) Next bctr.Styles.Normal.Border.color = Color.Black

--  作者：vbmic --  发布时间：2025/2/22 13:22:00 --   老师厉害！我不依赖AI是看不懂代码了。\' 声明一个变量bctr，它被赋值为名为"窗口1"的窗体中的名为"RecordGrid1"的控件的基础控制对象 \' 这一步是为了后续能够方便地操作RecordGrid1控件的底层相关属性和方法 Dim bctr = Forms("窗口1").Controls("RecordGrid1").BaseControl \' 创建一个新的CellStyle对象，命名为cs1，并将其添加到基础控制对象bctr的样式集合中，样式名称为"样式1" Dim cs1 As C1.Win.C1FlexGrid.CellStyle = bctr.Styles.Add("样式1") \' 设置新创建的样式cs1的边框颜色为黑色 cs1.Border.Color = Color.Black \' 开始一个循环，从0开始，到bctr（即RecordGrid1控件的基础控制对象）的行数减1结束 \' 这个循环的目的是遍历RecordGrid1控件的每一行 For i As Integer = 0 To bctr.rows.count - 1     \' 对于每一行i，在第一列（索引为0）设置之前创建的样式cs1     \' 这样就会使每一行的第一列都应用样式1，也就是拥有黑色的边框     bctr.SetCellStyle(i, 0, cs1) Next \' 将基础控制对象bctr（即RecordGrid1控件）的正常状态下的边框颜色设置为黑色 \' 这一步可能是为了确保除了特定列（这里是第一列）之外的其他部分的边框颜色也统一为黑色 bctr.Styles.Normal.Border.color = Color.Black