1

Tenho o seguinte código na ação do botão:

 pnl1.BackColor = Color.DarkOrange
 pnl2.BackColor = Color.DarkOrange
 pnl3.BackColor = Color.DarkOrange
 pnl4.BackColor = Color.DarkOrange
 pnl5.BackColor = Color.DarkOrange
 pnl6.BackColor = Color.DarkOrange
 ... tenho 100 Panel'seguinte

Repetir o código 100x se torna ridículo além de inviável, o que pensei foi algo parecido com isso:

For i = 0 to 100    
     (pnl+i.toString).BackColor = Color.DarkOrange
Next

Assim funcionaria melhor...

Mas não estou conseguindo, pensei até em Macro Substituição mas ainda não conheço muito bem a linguagem.

Desde já obrigado!

2 Respostas 2

2

Uma maneira de fazer isso é percorrer os controles do formulário e verificar se é um Panel, se for, você executa a ação.

For Each pnl As Control In Me.Controls
   If TypeOf (pnl) Is Panel Then
     pnl.BackColor = Color.DarkOrange
   End If
Next
1
  • 1
    Muito obrigado! Consegui tratar dessa forma! Commented 10/03/2015 às 16:56
1

Um jeito bem simples:

For Each pI As Panel In MyClass.Controls
    pI.BackColor = Color.DarkOrange
Next

Se quiser para um grupo de panels:

Dim PaneisParaEditar As Panel() = { Pane1, Panel2, Panel3 }
For Each pI As Panel In PaneisParaEditar
    pI.BackColor = Color.DarkOrange
Next

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .