- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- TABLE外围边框颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135065)
-- 发布时间：2019/5/16 9:54:00
-- TABLE外围边框颜色
请教老师，table的外围边框线颜色怎样设置？我模仿论坛中Panel重绘边框线颜色无法实现，好像也不是用TableLayoutPanel（绘制单元格和内边框）
table的外围边框是否是由Panel形成的？在网上查询，也没有得到结果。
这样的代码也不行，e.Form.Controls("Table1").Table.Grid.styles.border.color = Color.Red，因为不是Grid相关类的成员
此主题相关图片如下：11.jpg
-- 发布时间：2019/5/16 10:44:00
--
全局代码
Public Sub panel_Paint(sender As Object, e As windows.forms.PaintEventArgs)
e.Graphics.DrawLine(Pens.Red, 0, 0, 0, Sender.Height - 2)
End Sub
绑定事件代码
Dim p As C1.Win.C1FlexGrid.C1FlexGridBase = forms("窗口1").controls("table1").basecontrol
addhandler p.paint, addressof panel_paint
p.refresh
-- 发布时间：2019/5/16 11:35:00
--
谢谢老师指导，还有个问题，红色线是画出来了，原来白色的边框线还在，红色线是覆盖在白色边框线上的，怎样去除原来的白色边框，用新绘的红色边框
后面再执行这段代码就可以了
Dim Table1 As Table = e.Form.Controls("Table1").Table
Dim grid = Table1.Grid
grid.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
Tables("窗口2_table1").Grid.Styles.EmptyArea.Border.Style = 0