- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口样式通过代码设置，为什么窗口菜单栏和状态栏样式没有变？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173376)
-- 发布时间：2021/11/26 15:45:00
-- 窗口样式通过代码设置，为什么窗口菜单栏和状态栏样式没有变？
窗口样式通过代码设置，为什么窗口菜单栏和状态栏样式没有变
此主题相关图片如下：样式设置.png
-- 发布时间：2021/11/26 16:03:00
--
怎么设置的？请不要吝啬您的代码
-- 发布时间：2021/11/26 16:21:00
-- 在窗体itemclick事件设置的
Select Case e.StripItem.Name
\'设置窗体和表格样式;
Case "BeigeOne"
Forms("MainForm").SetTheme("BeigeOne")
Ribb
For Each dt As DataTable In DataTables
dt.Theme = "BeigeOne"
Next
Case "ExpressionLight"
Forms("MainForm").SetTheme("ExpressionLight")
For Each dt As DataTable In DataTables
dt.Theme = "ExpressionLight"
Next
Case "MacBlue"
Forms("MainForm").SetTheme("MacBlue")
For Each dt As DataTable In DataTables
dt.Theme = "MacBlue"
Next
Case "MacSilver"
Forms("MainForm").SetTheme("MacSilver")
For Each dt As DataTable In DataTables
dt.Theme = "MacSilver"
Next
Case "Office2007Blue"
Forms("MainForm").SetTheme("Office2007Blue")
For Each dt As DataTable In DataTables
dt.Theme = "Office2007Blue"
Next
Case "Office2007Silver"
Forms("MainForm").SetTheme("Office2007Silver")
For Each dt As DataTable In DataTables
dt.Theme = "Office2007Silver"
Next
Case "Office2007Black"
Forms("MainForm").SetTheme("Office2007Black")
For Each dt As DataTable In DataTables
dt.Theme = "Office2007Black"
Next
Case "Office2010Blue"
Forms("MainForm").SetTheme("Office2010Blue")
For Each dt As DataTable In DataTables
dt.Theme = "Office2010Blue"
Next
Case "Office2010Silver"
Forms("MainForm").SetTheme("Office2010Silver")
For Each dt As DataTable In DataTables
dt.Theme = "Office2010Silver"
Next
Case "Office2010Black"
Forms("MainForm").SetTheme("Office2010Black")
For Each dt As DataTable In DataTables
dt.Theme = "Office2010Black"
Next
Case "Office2010Green"
Forms("MainForm").SetTheme("Office2010Green")
For Each dt As DataTable In DataTables
dt.Theme = "Office2010Green"
Next
Case "Office2013Gray"
Forms("MainForm").SetTheme("Office2013Gray")
For Each dt As DataTable In DataTables
dt.Theme = "Office2013Gray"
Next
Case "Office2013DarkGray"
Forms("MainForm").SetTheme("Office2013DarkGray")
For Each dt As DataTable In DataTables
dt.Theme = "Office2013DarkGray"
Next
End Select
-- 发布时间：2021/11/26 16:30:00
--
窗口菜单不是C1的，需要另外调用代码处理
Forms("MainForm").SetTheme("BeigeOne")
Forms("MainForm").Strips("状态栏").theme = "BeigeOne"
-- 发布时间：2021/11/26 19:19:00
--
蓝老师，非常感谢，还有一个问题，如何保存样式的设置，就是我下次打开项目还是这个样式.
-- 发布时间：2021/11/27 8:48:00
--
把样式名称保存到设置中：http://www.foxtable.com/webhelp/topics/1544.htm
在主窗口窗口afterload事件，查设置是否有保存的样式，有就取出来用