Foxtable(狐表)用户栏目专家坐堂 → 新版本的控件风格如何批量设置?


  共有1954人关注过本帖树形打印复制链接

主题:新版本的控件风格如何批量设置?

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24808 威望:0 精华:0 注册:2012/3/26 21:47:00
新版本的控件风格如何批量设置?  发帖心情 Post By:2017/12/1 20:55:00 [只看该作者]

我看到新版本里 tab date的很多控件都有了风格
我之前的项目如何不用每个每个去调整 直接用代码切换到我想要的风格?
比如把日期选择框都换到2010silver

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/1 21:02:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24808 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24808 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2018/5/21 17:09:00 [只看该作者]

使用代码控制的时候 弹出这样的提示  但是我看属性里有啊
未找到类型“CheckedListBox”的公共成员“VisualStyle”。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/21 17:11:00 [只看该作者]

提示没有,就是没有。对于没有的,请单独处理。

 回到顶部