以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选定区域的背景色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79897)
--  作者：hdffzxf
--  发布时间：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
Next
--  作者：大红袍
--  发布时间：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
--  作者：大红袍
--  发布时间：2016/1/12 0:05:00
--  
2、这段代码应该是没问题的。加入msgbox，看看是否触发了事件。
--  作者：hdffzxf
--  发布时间：2016/1/12 0:07:00
--  
就是什么情况下会造成选定区域无法正常显示默认的背景色？
--  作者：大红袍
--  发布时间：2016/1/12 0:10:00
--  
以下是引用hdffzxf在2016/1/12 0:07:00的发言：
就是什么情况下会造成选定区域无法正常显示默认的背景色？

 

使用风格，就不能显示自己设置的背景颜色。默认就是高亮的蓝色。