控件风格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件风格

共有1748人关注过本帖树形打印复制链接主题：控件风格

jianjingmaoyi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

控件风格

Post By：2017/11/23 16:30:00 [只看该作者]

我想遍历设置,这样不可以设置吗?

Public Sub ControlStyle(ByVal FrmName As String)

Dim c As WinForm.Control

For Each c In Forms(FrmName).Controls

Select Case c.GetType.Name

Case "Button"

c.VisualStyle = VisualStyleEnum.Office2007Blue

Case "TextBox", "DateTimePicker", "CheckBox", "CheckedComboBox", "CheckedListBox", "ComboBox", "GroupBox", "ListBox", "NumericComboBox"

c.VisualStyle = VisualStyleEnum.Office2007Blue()

c.BackColor = [Color]

End Select

End Sub

jianjingmaoyi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

Post By：2017/11/23 16:48:00 [只看该作者]

为嘛按钮不能用代码设置样式

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 17:17:00 [只看该作者]

我这样测试没问题

Dim btn As WinForm.Button = e.Form.Controls("Button1")
btn.FlatStyle = FlatStyle.Standard
btn.VisualStyle = IVisualStyle.Office2007Black

主题：控件风格