打开登录窗口,点击【退出】按钮,出现如下错误,【退出】代码:Syscmd.Project.Exit()
表样式内部函数如下:
此主题相关图片如下:snap1.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-11/202111131815839085.jpg)
Dim name As String =args(0)
Dim b As Table = Tables(name)
Dim dt As DataTable = b.DataTable
b.UseVisualStyle = False '关闭系统界面风格,否则部分设置不起作用
b.ListMode = True '整行突出显示
b.Grid.Styles("UnchangedRowHeader").forecolor = Color.White '行号字体颜色
b.Grid.Styles("UnchangedRowHeader").BackColor = Color.DarkBlue '行号背景颜色
dt.SysStyles("EmptyArea").BackColor = Color.black '空白区背景颜色
dt.SysStyles("Alternate").BackColor = Color.LightCyan '交替行颜色(淡青色)
dt.SysStyles("CurrentRow").BackColor = Color.DarkOrange '当前行颜色(深橙色)
dt.SysStyles("Fixed").BackColor = Color.DarkBlue '标题行颜色(深蓝色)
dt.SysStyles("Fixed").ForeColor = Color.White '标题行字颜色
dt.SysStyles("SelectedRowHeader").BackColor = Color.DarkBlue '选定行的行标题颜色(深蓝色)
dt.SysStyles("SelectedRowHeader").ForeColor = Color.White '选定行的行标题字颜色(?)
dt.SysStyles("SelectedRowHeader").FontBold = True '选定行的行标题字加粗(?)
dt.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan '选定列的列标题颜色(深青色)
dt.SysStyles("SelectedColumnHeader").ForeColor = Color.White '选定列的列标题字颜色
dt.SysStyles("Focus").BackColor = Color.DarkCyan '焦点单元格颜色(深青色)(?)
dt.SysStyles("Focus").ForeColor = Color.White '焦点单元格字颜色(?)