Foxtable(狐表)用户栏目专家坐堂 → TABLE外围边框颜色


  共有2223人关注过本帖树形打印复制链接

主题:TABLE外围边框颜色

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
TABLE外围边框颜色  发帖心情 Post By:2019/5/16 9:54:00 [只看该作者]

请教老师,table的外围边框线颜色怎样设置?我模仿论坛中Panel重绘边框线颜色无法实现,好像也不是用TableLayoutPanel(绘制单元格和内边框)

 

table的外围边框是否是由Panel形成的?在网上查询,也没有得到结果。

 

这样的代码也不行,e.Form.Controls("Table1").Table.Grid.styles.border.color = Color.Red,因为不是Grid相关类的成员

 

 


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By: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

[此贴子已经被作者于2019/5/16 11:36:45编辑过]

 回到顶部