选定区域的背景色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 选定区域的背景色

共有1975人关注过本帖树形打印复制链接主题：选定区域的背景色

hdffzxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：393 积分：3723 威望：0 精华：0 注册：2013/10/9 23:09:00

选定区域的背景色 发帖心情

Post By：2016/1/11 23:29:00 [只看该作者]

请教老师：

1、窗口的table的选定区域的默认背景色可以设置吗？不要UseVisualStyle ，这会改变表格的立体化的表头；

2、我用如下程序临时标注了下背景色后，再取消后，选定区域的背景色竟然不着色了，何解？

Dim r As Row=args(0)

Dim cs1 As C1.Win.C1FlexGrid.CellStyle= Tables("主窗口表").grid.Styles.Add("选中样式")

cs1.foreColor =Color.red

cs1.backColor =Color.Khaki

Dim cs2 As C1.Win.C1FlexGrid.CellStyle= Tables("主窗口表").grid.Styles.Add("未选样式")

cs2.foreColor =Color.black

cs2.backColor =Color.white

For Each c As Col In r.Table.Cols

If r.Checked Then

r.Table.Grid.SetCellStyle(r.Table.HeaderRows+r.Index,c.Index+1,cs1)

Else

r.Table.Grid.SetCellStyle(r.Table.HeaderRows+r.Index,c.Index+1,cs2)

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 0:04:00 [只看该作者]

1、mark 选中颜色，drawcell事件

Dim cl = e.Table.grid.getCellRange(e.Row.index+1, e.Col.index+1)
If e.Row.Index > = e.Table.TopPosition AndAlso e.Row.Index <= e.Table.BottomPosition AndAlso e.Col.Index >= e.Table.LeftCol AndAlso e.Col.Index <= e.Table.RightCol Then
    If cl.style Is Nothing Then
        Dim cs1 As C1.Win.C1FlexGrid.CellStyle=e.Table.grid.Styles.Add("选中样式")
        cs1.foreColor=Color.red
        cs1.backColor =Color.Khaki
        cl.style=cs1
    Else
        cl.style.foreColor=Color.red
        cl.style.backColor =Color.Khaki
    End If
Else
    cl.style = Nothing
End If