我想遍历设置,这样不可以设置吗?
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.
c.BackColor = [Color]
End Select
Next
End Sub