| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 新版本的控件风格如何批量设置？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110386) |
| -- 作者：rjh4078 -- 发布时间：2017/12/1 20:55:00 -- 新版本的控件风格如何批量设置？ 我看到新版本里 tab date的很多控件都有了风格 我之前的项目如何不用每个每个去调整 直接用代码切换到我想要的风格？ 比如把日期选择框都换到2010silver
|
| -- 作者：有点蓝 -- 发布时间：2017/12/1 21:02:00 -- 参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109965&skin=0 |
| -- 作者：rjh4078 -- 发布时间：2017/12/2 17:59:00 -- --------------------------- 错误 --------------------------- 编译错误:“FlatStyle”不是“WinForm.Control”的成员。 错误代码：c.FlatStyle = FlatStyle.Standard --------------------------- 确定 --------------------------- 另外如何判断某个控件能够调整风格 如果全部设置会报错 Dim c As WinForm.Control For Each c In Forms("销售单").Controls Select Case c.Gettype.Name Case "Button" c.FlatStyle = FlatStyle.Standard c.VisualStyle = IVisualStyle.Office2010Black \'Case "TextBox", "DateTimePicker", "CheckBox", "CheckedComboBox", "CheckedListBox", "ComboBox", "GroupBox", "ListBox", "NumericComboBox" \'c.FlatStyle = FlatStyle.Standard \'c.VisualStyle = IVisualStyle.Office2010Black End Select Next |
| -- 作者：有点甜 -- 发布时间：2017/12/3 22:16:00 -- Dim c As object For Each c In e.form.Controls Select Case c.Gettype.Name Case "Button" c.FlatStyle = FlatStyle.Standard c.VisualStyle = IVisualStyle.Office2010Black Case "TextBox", "DateTimePicker", "CheckBox", "CheckedComboBox", "CheckedListBox", "ComboBox", "GroupBox", "ListBox", "NumericComboBox" c.VisualStyle = IVisualStyle.Office2010Black End Select Next |
| -- 作者：rjh4078 -- 发布时间：2018/5/21 17:09:00 -- 使用代码控制的时候 弹出这样的提示 但是我看属性里有啊 未找到类型“CheckedListBox”的公共成员“VisualStyle”。
|
| -- 作者：有点甜 -- 发布时间：2018/5/21 17:11:00 -- 提示没有，就是没有。对于没有的，请单独处理。 |