Private Sub GroupBoxLabelFont() Dim curGBs as IEnumerable = From c In Me.Controls Where c.GetType.Tostring = GetType(GroupBox).TString For Each curGB As GroupBox in curGBs Dim curLBLs as IEnumerable= From c In curGB.Controls Where c.GetType.Tostring = GetType(Label).TString For Each curLBL As Label in curLBLs curLBL.ForeColor = Color.DarkRed Next Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question