For Each Item In Me.Controls If typeOf Item Is System.Windows.Forms.Label Then With CType(Item, System.Windows.Forms.Label) .ForeColor = Color.FromName(LabelForeColor) .BackColor = Color.FromName(LabelBackColor) End With End If Next Item
Public Sub LabelsColors(ByVal frm As System.Windows.Forms.Form) For Each Item In frm.Controls If TypeOf Item Is system.windows.forms.label then With CType(Item, System.Windows.Forms.Label) .ForeColor = Color.FromName(labelforecolor) .BackColor = color.fromname(labelbackcolor) End With End If Next Item End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question