---------------------------
错误
---------------------------
编译错误:“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
加好友 
发短信
Post By：2017/12/1 20:55:00 [只看该作者]
