主题：Foxtable 2020 春季更新说明(2020年5月18日更新！)

目前发现新表格样式与旧版本不一致的问题有6个，如果用新版测试后想回到旧版，必须在启动项目前先删除BIN文件夹：

AfterOpenProject代码：

For Each dt As DataTable In DataTables '设置表样式的背景色

    '问题1 下面这行代码在【经典】表格样式时【无效】:

    dt.SysStyles("Fixed").BackColor = Color.yellow '标题行

    '问题2 下面这行代码虽然有效,但在【非经典】表格样式时会在【冻结区】（非【冻结区】不受影响）【强制】启动【交替行】:

    dt.SysStyles("Frozen").BackColor = Color.PeachPuff '冻结区

    '问题3 下面这行代码如果不执行就不应该【强制】改变前面已经设定过背景色的列标题背景色，或请提供【关闭】代码:

    'dt.SysStyles("SelectedColumnHeader").BackColor = color.pink '选定列的列标题

    '问题4 下面这行代码如果不执行就不应该【强制】启用交替行，或【关闭交替显示】选项默认应该是关闭的，或请提供【关闭】代码:

    'dt.SysStyles("Alternate").BackColor = Color.cyan '交替行

Next

'设置表标题背景色

Dim mp As C1Command.C1DockingTab = BaseMainForm.controls("MainPages")

For Each page As C1Command.C1DockingTabPage In mp.TabPages

    '问题5 下面这行代码原来的字体色是黑色加粗,现在却变成了白色正常:

    page.TabBackColorSelected = Color.cyan '表标题选中背景色

    '问题6 下面这行代码本来是鼠标滑过表标题时的背景色,现在却变成了未选中表标题的背景色:

    page.TabBackColor = Color.lightpink '鼠标滑过表标题时的背景色

Next

AddHandler mp.ControlAdded, AddressOf MainPages_ControlAdded '注册事件

'以下是表标题背景色设置的全局代码：

'Public Sub MainPages_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs)

'    Dim page As C1Command.C1DockingTabPage = e.Control

'    page.TabBackColorSelected = Color.cyan '表标题选中时的背景色

'    page.TabBackColor = Color.lightpink '鼠标滑过表标题时的背景色

'End Sub

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.foxdb